Come centrare automaticamente la casella di controllo nella cella in Excel?
Durante l'inserimento di caselle di controllo nelle celle in Excel, potresti notare che è difficile disporre tutte le caselle di controllo in modo ordinato come mostrato nell'immagine a sinistra. In realtà, puoi spostare tutte le caselle di controllo al centro della cella per mantenerle in ordine. Il metodo in questo articolo può aiutarti.
Casella di controllo centratura automatica nella cella con codice VBA
Casella di controllo centratura automatica nella cella con codice VBA
Per centrare automaticamente tutte le caselle di controllo nelle celle in un foglio di lavoro corrente, eseguire le seguenti operazioni.
1. Nel foglio di lavoro, è necessario centrare automaticamente tutte le caselle di controllo, premere il pulsante altro + F11 chiavi per aprire il Microsoft Visual Basic, Applications Edition finestra.
2. Nel Microsoft Visual Basic, Applications Edition finestra, fare clic inserire > Moduli. Quindi copia e incolla il codice VBA nella finestra del codice.
Codice VBA: centra automaticamente tutte le caselle di controllo nelle celle
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. premi il F5 chiave. Quindi tutte le caselle di controllo vengono spostate al centro delle celle immediatamente come mostrato nell'immagine sottostante.
Note:: Questo codice VBA può essere applicato sia a CheckBox (controllo ActiveX) che a CheckBox (controllo modulo).
Mancia: Se desideri inserire più caselle di controllo in un intervallo selezionato in blocco, puoi provare il Caselle di controllo inserimento batch utilità pf Kutools for Excel. Oppure inserire in batch più pulsanti di opzione con l'estensione Pulsanti di opzione di inserimento batch utilità. Inoltre, puoi eliminare tutte le caselle di controllo contemporaneamente con il file Caselle di controllo Elimina batch utilità come mostrato nelle schermate di seguito. Puoi andare a scarica gratuitamente il software senza limitazioni in 30 giorni.
Articoli correlati:
- Come creare un elenco a discesa con più caselle di controllo in Excel?
- Come modificare un valore o un colore di cella specificato quando la casella di controllo è selezionata in Excel?
- Come evidenziare una cella o una riga con la casella di controllo in Excel?
- Come controllare la casella di controllo in base al valore della cella in Excel?
I migliori strumenti per la produttività in ufficio
Potenzia le tue competenze di Excel con Kutools per Excel e sperimenta l'efficienza come mai prima d'ora. Kutools per Excel offre oltre 300 funzionalità avanzate per aumentare la produttività e risparmiare tempo. Fai clic qui per ottenere la funzionalità di cui hai più bisogno...
Office Tab porta l'interfaccia a schede in Office e semplifica notevolmente il tuo lavoro
- Abilita la modifica e la lettura a schede in Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Apri e crea più documenti in nuove schede della stessa finestra, piuttosto che in nuove finestre.
- Aumenta la produttività del 50% e riduce ogni giorno centinaia di clic del mouse!