Cum se inserează rapid mai multe casete de selectare în Excel?

Cum putem introduce rapid mai multe casete de selectare în Excel? Vă rugăm să urmați aceste metode dificile în Excel:

Introduceți mai multe casete de selectare cu mâner de umplere

Introduceți mai multe casete de selectare cu cod VBA

Introduceți și ștergeți mai multe casete de selectare cu un singur clic utilizând Kutools pentru Excel

Introduceți mai multe casete de selectare cu mâner de umplere

În Excel, Fill Handle este o funcție puternică pentru a face multe lucruri. Poate umple și casetele de selectare. Mai întâi, trebuie să inserați o casetă de selectare. Procedați după cum urmează:

1. Clic Dezvoltator în bara de meniu, apoi faceți clic pe Inserași alegeți imaginea casetei de selectare de sub Controlul formularului. Vedeți captura de ecran:

2. Faceți clic pe imaginea casetei de selectare și veți vedea indicatorul plus, faceți clic pe locul în care doriți să adăugați caseta de selectare.

3. Bifați caseta de selectare și mutați-o într-o celulă, apoi ștergeți numele casetei de selectare.

4. Apoi selectați celula în care rămâne caseta de selectare. Și apoi trageți mânerul de umplere peste intervalul de celule pe care doriți să le completați. Vedeți captura de ecran:

Introduceți mai multe casete de selectare cu cod VBA

Dacă credeți că prima metodă este oarecum supărătoare, următorul cod VBA vă poate ajuta să introduceți cu ușurință și rapid mai multe casete de selectare.

1. Clic Dezvoltator > Visual Basic, un nou Microsoft Visual Basic pentru aplicații fereastra va fi afișată, faceți clic pe Insera > Moduleși introduceți următorul cod în Module:

Sub InsertCheckBoxes()
'Updateby Extendoffice
Dim Rng As Range
Dim WorkRng As Range
Dim Ws As Worksheet
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
Set Ws = Application.ActiveSheet
Application.ScreenUpdating = False
For Each Rng In WorkRng
    With Ws.CheckBoxes.Add(Rng.Left, Rng.Top, Rng.Width, Rng.Height)
        .Characters.Text = Rng.Value
    End With
Next
WorkRng.ClearContents
WorkRng.Select
Application.ScreenUpdating = True
End Sub

2. Apoi apasa pentru a rula codul. Și o casetă de prompt va apărea pentru a vă reaminti să selectați o gamă de celule pe care doriți să le inserați casetele de selectare. Vedeți captura de ecran:

3. Apoi faceți clic pe OK, casetele de selectare au fost inserate în gamă cu îngrijire și frumos. Vedeți captura de ecran:

Introduceți mai multe casete de selectare cu Kutools pentru Excel

Aici vă pot prezenta un mod ușor și la îndemână de a insera mai multe casete de selectare-Kutools pentru Excel, Cu său Casetă de selectare Inserare lot caracteristică, puteți insera casetele de selectare în celule goale sau celule cu date.

După instalare Kutools pentru ExcelVă rugăm să efectuați pașii următori:

1. Selectați o gamă de celule pe care doriți să le inserați casetele de selectare.

2. Clic Kutools > Insera > Căsuțe de selectare pentru inserții în lot, vezi captura de ecran:

3. Apoi, celulele selectate au fost completate cu casetele de selectare, după cum se arată în următoarele capturi de ecran:

Introduceți casete de selectare în celule goale	Introduceți casete de selectare în celulele de date

Articolul legate:

Cum să ștergeți rapid mai multe casete de selectare în Excel?