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:
- Sut i boblogi celloedd eraill wrth ddewis gwerthoedd yn rhestr ostwng Excel?
- Sut i awtocomplete wrth deipio rhestr ostwng Excel?
- Sut i greu calendr rhestr ostwng yn Excel?
- Sut i greu gwymplen gyda nifer o ddetholiadau neu werthoedd yn Excel?
Offer Cynhyrchiant Swyddfa Gorau
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...
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!