Note: The other languages of the website are Google-translated. Back to English

Sut i ychwanegu marc gwirio mewn cell gyda chlicio ddwywaith yn Excel?

Fel rheol, ar gyfer mewnosod marc gwirio mewn cell, mae angen i chi fynd i mewn i'r blwch deialog Symbol, dod o hyd i'r symbol marc gwirio a'i fewnosod â llaw. Ond nid yw mor hawdd darganfod symbol y marc gwirio yn y blwch deialog Symbol gan fod nifer o symbolau wedi'u rhestru y tu mewn. Sut i ychwanegu marc gwirio mewn cell yn Excel yn gyflym? Bydd yr erthygl hon yn dangos dull VBA i chi ychwanegu marc gwirio mewn cell yn hawdd gyda chlicio dwbl yn unig.

Cliciwch ddwywaith i ychwanegu marc gwirio mewn cell gyda chod VBA


Cliciwch ddwywaith i ychwanegu marc gwirio mewn cell gyda chod VBA

Gall y cod VBA canlynol eich helpu i ychwanegu marc gwirio mewn cell gyda chlicio ddwywaith. Gwnewch fel a ganlyn.

1. Agorwch y daflen waith sydd ei hangen arnoch i ychwanegu marc gwirio i'r gell, yna cliciwch ar y dde a dewis Gweld y Cod o'r ddewislen clicio ar y dde.

2. Yn y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr, copïo a gludo'r cod VBA isod i'r Côd ffenestr.

Cod VBA: Cliciwch ddwywaith i ychwanegu marc gwirio mewn cell

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Not Intersect(Target, Range("B1:B10")) Is Nothing Then
        Application.EnableEvents = False
        If ActiveCell.Value = ChrW(&H2713) Then
            ActiveCell.ClearContents
        Else
            ActiveCell.Value = ChrW(&H2713)
        End If
        Cancel = True
    End If
    Application.EnableEvents = True
End Sub

Nodyn: Yn y cod, B1: B10 yw'r amrediad y byddwch chi'n ychwanegu marc gwirio gyda chlicio dwbl. Newidiwch ef yn seiliedig ar eich angen.

3. Gwasgwch y Alt + Q allweddi i gau'r Microsoft Visual Basic ar gyfer Ceisiadau ffenestr a dychwelyd i'r daflen waith.

Nawr, cliciwch ddwywaith ar unrhyw gell yn ystod B1: B10, bydd y marc gwirio yn cael ei nodi'n awtomatig. A chlicio ddwywaith ar y gell eto, bydd y marc gwirio a fewnosodwyd yn cael ei dynnu.

Os oes angen i chi ddefnyddio'r marciau gwirio yn eich gwaith dyddiol Excel yn aml, dyma fi'n argymell y Testun Auto Cyfleustodau Kutools ar gyfer Excel. Gyda'r nodwedd hon, gallwch arbed marc gwirio fel cofnod testun auto, ac yna ei ail-ddechrau yn y dyfodol gyda dim ond un clic yn Excel fel y demo isod a ddangosir.
Dadlwythwch a rhowch gynnig arni nawr! (llwybr 30 diwrnod am ddim)


Erthyglau perthnasol:


Yr Offer Cynhyrchedd Swyddfa Gorau

Mae Kutools for Excel yn Datrys y rhan fwyaf o'ch Problemau, ac yn Cynyddu Eich Cynhyrchedd 80%

  • Ailddefnyddio: Mewnosod yn gyflym fformwlâu cymhleth, siartiau ac unrhyw beth rydych chi wedi'i ddefnyddio o'r blaen; Amgryptio Celloedd gyda chyfrinair; Creu Rhestr Bostio ac anfon e-byst ...
  • Bar Fformiwla Gwych (golygu llinellau lluosog o destun a fformiwla yn hawdd); Cynllun Darllen (darllen a golygu nifer fawr o gelloedd yn hawdd); Gludo i'r Ystod Hidlo...
  • Uno Celloedd / Rhesi / Colofnau heb golli Data; Cynnwys Celloedd Hollt; Cyfuno Rhesi / Colofnau Dyblyg... Atal Celloedd Dyblyg; Cymharwch y Meysydd...
  • Dewiswch Dyblyg neu Unigryw Rhesi; Dewiswch Blank Rows (mae pob cell yn wag); Darganfyddiad Gwych a Darganfyddiad Niwlog mewn Llawer o Lyfrau Gwaith; Dewis ar Hap ...
  • Copi Union Celloedd Lluosog heb newid cyfeirnod fformiwla; Auto Creu Cyfeiriadau i Daflenni Lluosog; Mewnosod Bwledi, Blychau Gwirio a mwy ...
  • Testun Detholiad, Ychwanegu Testun, Tynnu yn ôl Swydd, Tynnwch y Gofod; Creu ac Argraffu Subtotals Paging; Trosi rhwng Cynnwys a Sylwadau Celloedd...
  • Hidlo Super (arbed a chymhwyso cynlluniau hidlo i ddalenni eraill); Trefnu Uwch yn ôl mis / wythnos / dydd, amlder a mwy; Hidlo Arbennig gan feiddgar, italig ...
  • Cyfuno Llyfrau Gwaith a Thaflenni Gwaith; Uno Tablau yn seiliedig ar golofnau allweddol; Rhannwch Ddata yn Daflenni Lluosog; Trosi Swp xls, xlsx a PDF...
  • Mwy na 300 o nodweddion pwerus. Yn cefnogi Swyddfa / Excel 2007-2019 a 365. Yn cefnogi pob iaith. Defnydd hawdd yn eich menter neu sefydliad. Nodweddion llawn treial am ddim 30 diwrnod. Gwarant arian yn ôl 60 diwrnod.
tab kte 201905

Mae Tab Office yn Dod â rhyngwyneb Tabbed i'r Swyddfa, a Gwneud Eich Gwaith yn Haws o lawer

  • Galluogi golygu a darllen tabbed yn Word, Excel, PowerPoint, Cyhoeddwr, Mynediad, Visio a Phrosiect.
  • Agor a chreu dogfennau lluosog mewn tabiau newydd o'r un ffenestr, yn hytrach nag mewn ffenestri newydd.
  • Yn cynyddu eich cynhyrchiant 50%, ac yn lleihau cannoedd o gliciau llygoden i chi bob dydd!
gwaelod officetab
sylwadau (9)
Dim sgôr eto. Byddwch y cyntaf i sgorio!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
como eu faço pra inserir a marca de seleção na célula, porém sem deletar o número que estiver digitado nela ou seja, a marca sairia na frente do número quando eu der duplo clique... e quando eu quizer a pagaru a duplo, a marca sairia na frente do número quando eu der duplo clique... clique novamente ea célula voltaria ao normar (continuaria apenas o número).
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Ola Luiz, tente essa alteracao. Mae'r swyddogaethau hyn yn cynnwys A2:A10 a D2:D5, newid yn cydymffurfio â'r angen.

Tadao


Is-daflen Waith Breifat_Cyn Clic Dwbl(Targed ByVal Fel Ystod, Canslo Fel Boole)
Os Ddim yn Croestorri (Targed, Undeb (Ystod ("A2: A10")), Ystod ("D2: D5"))) Yn Dim Yna
Application.EnableEvents = Gau
Os Chwith(ActiveCell.Value, 1) = ChrW(&H2713) Yna
ActiveCell.Value = Iawn(ActiveCell, Len(ActiveCell) - 1)
ActiveCell.HorizontalAlignment = xlRight
arall
ActiveCell.Value = ChrW(&H2713) & ActiveCell.Value
Gorffennwch Os
Diddymu = Gwir
Gorffennwch Os
Application.EnableEvents = Gwir
Is-End
Lleihawyd y sylw hwn gan y safonwr ar y wefan
A oes ffordd i ddolennu'r cod hwn fel ei fod ar lawer o daflenni gwaith mewn un llyfr gwaith?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo leoflute, Ar ôl pwyso'r Alt + F11 allweddi i agor y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr, cliciwch ddwywaith Llyfr Gwaith hwn i agor y Y Llyfr Gwaith hwn (Cod) ffenestr, ac yna copïwch y cod isod i'r ffenestr cod. Peidiwch ag anghofio newid enwau'r dalennau a'r ystod celloedd yn y cod. Is-lyfr Gwaith Preifat_Taflen Cyn DwblClic(ByVal Sh Fel Gwrthrych, Targed ByVal Fel Ystod, Canslo Fel Boole)
'Diweddarwyd gan Extendoffice 20201012
Dim xStrRg, xStrWs, xStrWsName Fel Llinynnol
Dim xEEBol, xWSNBol, xBol Fel Boole
Dim xArrWs
Dim xArrRg
Dim xI, xJ Fel Cyfanrif
Dim xWs Fel Taflen Waith
Dim xRg Fel Ystod

xStrWs = "dalen 5, dalen 1, dalen 2" 'Enwau'r daflen waith benodol
xStrRg = "B3: B10" "Ystod y celloedd y byddwch yn mewnosod marciau gwirio
xArrWs = Hollti(xStrWs, ",")
xArrRg = Hollti(xStrRg, ",")

xEEBol = Cais.EnableEvents
Application.EnableEvents = Gau
Ar Ail-ddechrau Gwall Nesaf
xStrWsName = Sh.Name
xBol = Gau
xWSNBol = Gau
Ar gyfer xI = 0 I UBound(xArrWs)
Os xStrWsName = xArrWs(xI) Yna
xWSNBol = Gwir
Allanfa Ar Gyfer
Gorffennwch Os
Nesaf xI

Os xWSNBol Yna
Gosod xWs = Application.Worksheets.Item(xArrWs(xI))
Ar gyfer xJ = 0 I UBound(xArrRg)
Gosod xRg = Sh.Range(xArrRg(xJ))
Os Nid yw Croestorri (Targed, xRg) Yn Dim Yna
xBol = Gwir
Allanfa Ar Gyfer
Gorffennwch Os
Nesaf xJ
Gorffennwch Os

Os xBol Yna
Os ActiveCell.Value = ChrW(&H2713) Yna
ActiveCell.ClearContents
arall
ActiveCell.Value = ChrW(&H2713)
Gorffennwch Os
Diddymu = Gwir
Gorffennwch Os
Application.EnableEvents = xEEBol
Is-End

Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo yno! Beth fyddwn i'n ei ychwanegu at y cod uchod i gael y gell i newid lliw pan fydd y blwch ticio yn cael ei ychwanegu?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo grisial
a oes modd cael marciau gwirio yn A1:A10 ynghyd â B3:B10?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Sut mae ailadrodd hyn ar gyfer colofnau lluosog? 
Er enghraifft mae ei angen arnaf yn y canlynol:
E, F, I, J, M, N, Q, R, U, V, Y, Z, AC, AD, AG, AH, AK, AL, AO, AP, AS, AT, AW, AX
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Eu gostaria de saber se é possível adicionar a marca com apenas um clique ao invés de dois.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo Ulisses Nonato,
Os ydych chi am ychwanegu marc siec i gell gyda dim ond un clic llygoden, gall y cod VBA canlynol wneud ffafr i chi.
Mae angen i chi glicio ar y llygoden dde botwm i actifadu'r cod.
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
    'Updated by Extendoffice 20220714
    If Not Intersect(Target, Range("B1:B10")) Is Nothing Then
        Application.EnableEvents = False
        If ActiveCell.Value = ChrW(&H2713) Then
            ActiveCell.ClearContents
        Else
            ActiveCell.Value = ChrW(&H2713)
        End If
        Cancel = True
    End If
    Application.EnableEvents = True
End Sub
Nid oes unrhyw sylwadau wedi'u postio yma eto
Gadewch eich sylwadau
Postio fel Gwestai
×
Graddiwch y swydd hon:
0   Cymeriadau
Lleoliadau a Awgrymir