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

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

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


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 (1)
Dim sgôr eto. Byddwch y cyntaf i sgorio!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Yn meddwl tybed sut i ychwanegu mwy o ystodau at 'Os Ddim yn Croestorri (Targed, Ystod ("B2:B12")) A Oes Dim Yna' er enghraifft mae gen i nifer o ystodau celloedd fel D2, D12 yna F7, F32 sut alla i ychwanegu hyn macro i'r holl gelloedd? Lloniannau
Nid oes unrhyw sylwadau wedi'u postio yma eto
Gadewch eich sylwadau
Postio fel Gwestai
×
Graddiwch y swydd hon:
0   Cymeriadau
Lleoliadau a Awgrymir