Skip i'r prif gynnwys

 Sut i fewnosod marciau ticio a chroesi yn gyflym mewn celloedd?

Awdur: Xiaoyang Wedi'i Addasu Diwethaf: 2020-04-26

Mewn taflen waith, gallwn fewnosod y marciau ticio a chroesi trwy ddefnyddio'r nodwedd Symbol yn ddiofyn, ond, bydd yn ddiflas os gallwch chi fewnosod un symbol bob tro. Yr erthygl hon, byddaf yn siarad am rai triciau i chi fewnosod y marciau ticio a chroesi yn Excel yn gyflym.

Mewnosod marciau ticio a chroesi mewn celloedd sydd â chymeriad llwybr byr

Mewnosod marciau ticio a chroesi mewn celloedd sydd â chod VBA


Mewnosod marciau ticio a chroesi mewn celloedd sydd â chymeriad llwybr byr

I fewnosod y marciau ticio a chroesi yn gyflym, gall y llythyren llwybr byr “a” ac “r” wneud ffafr i chi. Gwnewch fel hyn:

1. Dewiswch y celloedd colofn lle rydych chi am fewnosod y marciau ticio a chroesi, ac yna dewiswch y Gwefannau ffont o dan y Hafan tab, gweler y screenshot:

2. Nawr, pan fyddwch chi'n nodi'r llythyren “a” yn y gell, bydd yn dod yn farc ticio, ac os byddwch chi'n teipio'r llythyren “r”, bydd yn dod yn farc croes, gweler y screenshot:


Mewnosod marciau ticio a chroesi mewn celloedd sydd â chod VBA

Dyma ffordd gyflym a hawdd arall i chi fewnosod y marciau ticio a chroesi trwy gliciau yn unig.

1. Cliciwch ar y dde ar y tab dalen rydych chi am ei fewnosod marciau ticio a chroesi, ac yna dewis Gweld y Cod o'r ddewislen cyd-destun, yn yr agoriad Microsoft Visual Basic ar gyfer cymwysiadau ffenestr, copïo a gludo'r cod canlynol i'r Modiwl gwag:

Cod VBA: Mewnosod marciau ticio a chroesi mewn celloedd:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
'Updateby Extendoffice
    If Target.Cells.Count = 1 Then
        If Not Intersect(Target, Range("B2:B12")) Is Nothing Then
            With Target
                .Font.Name = "Wingdings"
                .Font.Size = 12
                If .FormulaR1C1 = " û " Then
                    .FormulaR1C1 = "ü"
                Else
                    .FormulaR1C1 = " û "
                End If
            End With
        End If
        Cancel = True
    End If
End Sub

Nodyn: Yn y cod uchod, B2: B12 yw'r celloedd lle rydych chi am fewnosod y marciau ticio a chroesi, gallwch chi newid cyfeirnod y gell i'ch angen.

2. Yna arbedwch y cod a chau'r cod hwn, nawr, pan fyddwch chi'n clicio cell ddwywaith, mae marc croes wedi'i fewnosod, ac wrth glicio ddwywaith yr eildro, mae marc ticio yn cael ei arddangos, gweler y screenshot:


Cadwch y symbolau penodol a'u mewnosod yn unrhyw le y mae ei angen arnoch:

Mae adroddiadau Testun Auto nodwedd o Kutools ar gyfer Excel yn gallu'ch helpu chi i arbed y symbolau, fformwlâu, data neu eitemau eraill yn y cwarel Autotext, ac yna gallwch chi eu hailddefnyddio yn unrhyw le yn y ffeil Excel sydd ei hangen arnoch chi.

Kutools ar gyfer Excel: gyda mwy na 300 o ychwanegiadau Excel defnyddiol, am ddim i geisio heb unrhyw gyfyngiad mewn 30 diwrnod. Dadlwythwch a threial am ddim Nawr!

Offer Cynhyrchiant Swyddfa Gorau

🤖 Kutools AI Aide: Chwyldro dadansoddi data yn seiliedig ar: Cyflawniad Deallus   |  Cynhyrchu Cod  |  Creu Fformiwlâu Personol  |  Dadansoddi Data a Chynhyrchu Siartiau  |  Invoke Swyddogaethau Kutools...
Nodweddion Poblogaidd: Darganfod, Amlygu neu Adnabod Dyblygiadau   |  Dileu Rhesi Gwag   |  Cyfuno Colofnau neu Gelloedd heb Colli Data   |   Rownd heb Fformiwla ...
Super-edrych: VLookup Meini Prawf Lluosog    VLookup Gwerth Lluosog  |   VLookup Ar Draws Taflenni Lluosog   |   Edrych Niwlog ....
Rhestr gwympo Uwch: Creu Rhestr Gollwng yn Gyflym   |  Rhestr Gollwng Dibynnol   |  Rhestr Gollwng Aml-ddewis ....
Rheolwr Colofn: Ychwanegu Nifer Penodol o Golofnau  |  Symud Colofnau  |  Toglo Statws Gwelededd Colofnau Cudd  |  Cymharwch Ystodau a Cholofnau ...
Nodweddion dan Sylw: Ffocws ar y Grid   |  Golwg Dylunio   |   Bar Fformiwla Mawr    Rheolwr Llyfr Gwaith a Thaflen   |  Llyfrgell Adnoddau (Testun Auto)   |  Dewiswr Dyddiad   |  Cyfuno Taflenni Gwaith   |  Amgryptio/Dadgryptio Celloedd    Anfon E-byst trwy Restr   |  Hidlo Super   |   Hidlo Arbennig (hidlo mewn print trwm/italig/strikethrough...) ...
15 Set Offer Gorau12 Testun offer (Ychwanegu Testun, Dileu Cymeriadau,...)   |   50 + Siart Mathau (Siart Gantt,...)   |   40+ Ymarferol Fformiwlâu (Cyfrifwch oedran yn seiliedig ar ben-blwydd,...)   |   19 mewnosod offer (Mewnosod Cod QR, Mewnosod Llun o'r Llwybr,...)   |   12 Trosi offer (Rhifau i Eiriau, Trosi arian cyfred,...)   |   7 Uno a Hollti offer (Rhesi Cyfuno Uwch, Celloedd Hollt,...)   |   ... a mwy

Supercharge Eich Sgiliau Excel gyda Kutools ar gyfer Excel, a Phrofiad Effeithlonrwydd Fel Erioed Erioed. Kutools ar gyfer Excel Yn Cynnig Dros 300 o Nodweddion Uwch i Hybu Cynhyrchiant ac Arbed Amser.  Cliciwch Yma i Gael Y Nodwedd Sydd Ei Angen Y Mwyaf...

Disgrifiad


Mae Office Tab yn dod â rhyngwyneb Tabbed i Office, ac yn 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!
Comments (1)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Wondering how to add more ranges to 'If Not Intersect(Target, Range("B2:B12")) Is Nothing Then' for example I have a number of cell ranges such as D2,D12 then F7,F32 how can I add this macro to all the cells? Cheers
There are no comments posted here yet
Leave your comments
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations