Šajā rakstā mēs izmantosim pirms darblapas dubultklikšķa notikuma, lai pārbaudītu un noņemtu atzīmi no šūnas.
Neapstrādāti dati sastāv no dažiem pārtikas produktiem. Mēs vēlamies atzīmēt tās preces, kuras esam iegādājušies.
Veicot dubultklikšķi uz šūnas, tai tiks pievienota atzīme. Tādā pašā veidā to var noņemt, vēlreiz veicot dubultklikšķi uz tā.
Koda skaidrojums
Ja Target.Column = 3 Tad
Iepriekš minētais kods tiek izmantots, lai ierobežotu dubultklikšķa notikuma izpildi tikai tad, ja dubultklikšķis tiek veikts šūnā trešajā slejā.
Atcelt = taisnība
Iepriekš minētais kods tiek izmantots, lai novērstu šūnas nokļūšanu rediģēšanas režīmā.
Target.Font.Name = "Marlett"
Iepriekš minēto kodu izmanto, lai mērķa šūnai piešķirtu Marlett fontu.
Ja Mērķis = "" Tad
Mērķis = "a"
Citādi
Mērķis = ""
Beigas Ja
Iepriekš minēto kodu izmanto, lai ievietotu atzīmi un noņemtu to. Marletta fontā “a” apzīmē ērču zīmi, un tukšs tiek izmantots, lai noņemtu atzīmi.
Lūdzu, sekojiet tālāk norādītajam kodam
Opcija Explicit Private Sub Worksheet_BeforeDoubleClick (ByVal Target as Range, Cancel as Boolean) 'Pārbaude, vai mērķa šūna atrodas trešajā kolonnā If Target.Column = 3 Tad' Novērst šūnas pāreju rediģēšanas režīmā Atcelt = True 'Šūnas mērķa fonta veida maiņa. Fonts.
Ja jums patika šis emuārs, kopīgojiet to ar saviem draugiem Facebook. Varat arī sekot mums Twitter un Facebook.
Mēs labprāt uzklausītu jūsu viedokli, dariet mums zināmu, kā mēs varam uzlabot savu darbu un padarīt to labāku jums. Rakstiet mums e -pasta vietnē