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

Sut i blwch gwirio auto-ganolfan yn y gell yn Excel?

Wrth fewnosod blychau gwirio mewn celloedd yn Excel, efallai y byddwch yn sylwi ei bod yn anodd trefnu pob blwch gwirio yn drefnus fel y dangosir y screenshot chwith. A dweud y gwir, gallwch chi symud pob blwch gwirio i ganolfan y celloedd i'w cadw mewn trefn daclus. Gall dull yn yr erthygl hon eich helpu chi.

Blwch gwirio awto-ganolfan yn y gell gyda chod VBA


Blwch gwirio awto-ganolfan yn y gell gyda chod VBA

I ganoli pob blwch gwirio mewn celloedd yn awtomatig mewn taflen waith gyfredol, gwnewch fel a ganlyn.

1. Yn y daflen waith, mae angen i chi ganoli'r holl flychau gwirio yn awtomatig, pwyswch y Alt + F11 allweddi i agor y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr.

2. Yn y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr, cliciwch Mewnosod > Modiwlau. Yna copïwch a gludwch god VBA i mewn i'r ffenestr cod.

Cod VBA: Canoli pob blwch gwirio mewn celloedd yn awtomatig

Sub CenterCheckbox ()
    Dim xRg As Range
    Dim chkBox As OLEObject
    Dim chkFBox As CheckBox
    On Error Resume Next
    Application.ScreenUpdating = False
    For Each chkBox In ActiveSheet.OLEObjects
        If TypeName(chkBox.Object) = "CheckBox" Then
            Set xRg = chkBox.TopLeftCell
            chkBox.Width = xRg.Width * 2 / 3
            chkBox.Height = xRg.Height
            chkBox.Left = xRg.Left + (xRg.Width - chkBox.Width) / 2
            chkBox.Top = xRg.Top + (xRg.Height - chkBox.Height) / 2
        End If
    Next
    For Each chkFBox In ActiveSheet.CheckBoxes
        Set xRg = chkFBox.TopLeftCell
        chkFBox.Width = xRg.Width * 2 / 3
        chkFBox.Height = xRg.Height
        chkFBox.Left = xRg.Left + (xRg.Width - chkFBox.Width) / 2
        chkFBox.Top = xRg.Top + (xRg.Height - chkFBox.Height) / 2
    Next
    Application.ScreenUpdating = True
End Sub

3. Gwasgwch y F5 allwedd. Yna mae'r holl flychau gwirio yn cael eu symud i ganol y celloedd ar unwaith fel y dangosir isod y screenshot.

Nodyn: Gellir cymhwyso'r cod VBA hwn i CheckBox (ActiveX Control) a CheckBox (Rheoli Ffurflen).

Tip: Os ydych chi am fewnosod blychau gwirio lluosog mewn ystod ddethol mewn swmp, gallwch roi cynnig ar y Mewnosod Swp Blychau Gwirio pf cyfleustodau Kutools ar gyfer Excel. Neu swp mewnosodwch Botymau Opsiwn lluosog gyda'r Mewnosod Swp Botymau Opsiwn cyfleustodau. Ar ben hynny, gallwch chi ddileu'r holl flychau gwirio ar unwaith gyda'r Blychau Gwirio Swp Dileu dangosir cyfleustodau fel isod sgrinluniau. Gallwch chi fynd i rhad ac am ddim lawrlwytho'r meddalwedd heb unrhyw gyfyngiad yn 30 diwrnod.


Erthyglau cysylltiedig:


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 Office / Excel 2007-2021 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
Mae eich sgript VDA yn gweithio'n rhannol. Oherwydd pan wnes i ei gymhwyso, mae cell gysylltiedig wrth ymyl Checkbox yn cael ei newid a chael ei chysylltu â chell oddi tano.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Gweithiodd hyn yn wych i mi ac eithrio nid yw'n ei alinio â'r testun yn y gell nesaf sydd wedi'i halinio â'r gwaelod. A oes ffordd i alinio'r blychau ticio ar gyfer aliniad gwaelod er mwyn eu cael i alinio â'r testun yn y gell nesaf? Diolch!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Nid yw'r VBA yn gweithio o gwbl i mi. Pan fyddaf yn pwyso F5, mae'n ymddangos bod y modiwl yn rhedeg, ond ni symudodd y blychau ticio.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Ar ôl ychydig mwy o arbrofi, gwnes i wybod bod y VBA yn gweithio ar gyfer blychau gwirio sydd wedi'u mewnosod â llaw, ond os ydw i'n defnyddio mewnosodiad swp Kutools, nid yw'n gwneud hynny. Sut mae canoli'r holl flychau gwirio a fewnosodwyd gyda Kutools?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo quadma,
Mae'r cod hefyd yn gweithio ar gyfer y blychau gwirio a fewnosodwyd gan Kutools. Pa fersiwn Excel ydych chi'n ei ddefnyddio?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Rwy'n defnyddio swyddfa 360. Rwy'n meddwl mai'r mater rydw i'n ei gael yw pan fyddaf yn defnyddio mewnosodiad swp Kutools, mae maint gwrthrych y blwch ticio mor eang â'r golofn y mae wedi'i fewnosod ynddo (hy lled gwrthrych y blwch gwirio yw yn fwy na'i uchder), gyda'r blwch ticio gweladwy ei hun yn cael ei adael wedi'i gyfiawnhau o fewn y gwrthrych. Os byddaf yn dewis yr holl wrthrychau blwch ticio ac yna'n eu newid maint fel bod yr uchder a'r hyd yn gyfartal, ac yna'n rhedeg y VBA, yna mae'n canoli'r blychau gwirio yn y golofn.





Mae hyn yn ymddangos fel cam diangen, o ystyried bod blychau gwirio yn sgwâr, pam nad yw Kultools yn gwneud gwrthrychau'r blwch siec yn sgwâr?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo quadma,
Mae'r blychau gwirio a fewnosodwyd gan Kutools yr un fath â'r Blwch Gwirio (Rheoli Ffurflenni) a fewnosodwyd gan Excel.
Dydw i ddim yn deall yn iawn i chi ddweud "gwneud y checkbox object square". Fel arfer mae blwch siec yn cynnwys y maes blwch a'r maes gwerth. Mae Kutools yn cadw gwerth y blychau gwirio yn wag os yw'r celloedd a ddewiswyd yn wag. Ac os oes gwerthoedd mewn celloedd dethol, bydd gwerth y gell yn cael ei gymryd fel gwerth y blwch ticio.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Rydw i wedi uwchlwytho llun i ddangos yr hyn yr wyf yn ei olygu. Gobeithio bod hynny'n helpu.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo quadma, cefais eich pwynt. Byddwn yn meddwl am y peth ac yn diolch i chi am eich amynedd.
Nid oes unrhyw sylwadau wedi'u postio yma eto
Gadewch eich sylwadau
Postio fel Gwestai
×
Graddiwch y swydd hon:
0   Cymeriadau
Lleoliadau a Awgrymir

Dilynwch ni

Hawlfraint © 2009 - www.extendoffice.com. | Cedwir pob hawl. Wedi ei bweru gan ExtendOffice. | Map o'r safle
Mae Microsoft a logo'r Swyddfa yn nodau masnach neu'n nodau masnach cofrestredig Microsoft Corporation yn yr Unol Daleithiau a / neu wledydd eraill.
Wedi'i warchod gan Sectigo SSL