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 lawrlwythwch y feddalwedd am ddim heb unrhyw gyfyngiad mewn 30 diwrnod.
Erthyglau cysylltiedig:
- Sut i greu rhestr ostwng gyda blychau gwirio lluosog yn Excel?
- Sut i newid gwerth neu liw cell penodedig pan fydd blwch gwirio yn cael ei wirio yn Excel?
- Sut i dynnu sylw at gell neu res gyda blwch gwirio yn Excel?
- Sut i wirio blwch gwirio yn seiliedig ar werth celloedd 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!