Skip i'r prif gynnwys

Sut i ychwanegu symbolau ticio a chroesi i mewn i'r gwymplen yn Excel?

Fel rheol, ar ôl mewnosod symbolau ticio a chroesi mewn celloedd sydd â swyddogaeth symbolau ac yna creu rhestrau cwympo gyda nhw fel ffynhonnell ddata, bydd y canlyniadau'n cael eu harddangos fel ü neu û mewn celloedd cwympo. Sut i arddangos y gwir ✓ a symbolau mewn celloedd ar ôl dewis eitemau o'r gwymplen? Bydd y dull VBA isod yn helpu i greu rhestr ticio a chroesi i lawr yn Excel.

Ychwanegwch symbolau ticio a chroesi i mewn i'r gwymplen gyda chod VBA


Ychwanegwch symbolau ticio a chroesi i mewn i'r gwymplen gyda chod VBA

Gyda'r cod VBA isod, gallwch fewnosod rhestrau gwympo a chroesi i mewn i gelloedd penodol yn Excel. Gwnewch fel a ganlyn.

1. Yn y daflen waith byddwch yn creu rhestrau gwympo a chroesi symbolau, cliciwch ar y dde ar y tab dalen a dewis Gweld y Cod o'r ddewislen cyd-destun.

2. Yna y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr yn agor, copïwch isod god VBA i mewn i ffenestr y Cod.

Cod VBA 1: Ychwanegu symbolau ticio a chroesi i mewn i'r gwymplen

Private Sub Worksheet_Change(ByVal Target As Range)
'Update by Extendoffice 20180703
    If Intersect(Target, Range("B1:B10")) Is Nothing Then Exit Sub
    If Target.Value = "Tick" Then
        Target.Value = "P"
    ElseIf Target.Value = "Cross" Then
        Target.Value = "S"
    End If
End Sub

3. Ewch ymlaen i glicio Mewnosod > Modiwlau, yna copïwch y cod 2 canlynol i mewn i ffenestr y Modiwl.

Cod VBA 2: Ychwanegu symbolau ticio a chroesi i mewn i'r gwymplen

Sub usingSymbols()
'Update by Extendoffice 20180703
    Dim xRg As Range
    Set xRg = Range("B1:B10")
    xRg.Font.Name = "Wingdings 2"
    xRg.Validation.Add xlValidateList, , , "Tick,Cross"
End Sub

Nodyn: Yn y cod uchod, B1: B10 yw'r ystod o gelloedd y byddwch chi'n eu creu rhestr ostwng a chroesi. Newidiwch yr ystod yn ôl yr angen.

4. Gwasgwch y F5 allwedd i redeg y cod.

Nawr mae'r rhestrau gwympo a chroesi symbolau wedi'u mewnosod yn ystod B1: B10. Dewiswch Ticiwch o'r gwymplen fydd yn mewnosod ✓ yn y gell, a dewiswch Cross yn arddangos symbol. Gweler y screenshot:


Erthyglau cysylltiedig:

Offer Cynhyrchiant Swyddfa Gorau

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...

tab kte 201905


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 (0)
No ratings yet. Be the first to rate!
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations