Hur infogar jag snabbt flera kryssrutor i Excel?

Hur kan vi snabbt infoga flera kryssrutor i Excel? Följ dessa knepiga metoder i Excel:

Infoga flera kryssrutor med Fill Handle

Infoga flera kryssrutor med VBA-kod

Infoga och ta bort flera kryssrutor med ett klick genom att använda Kutools för Excel

Infoga flera kryssrutor med Fill Handle

I Excel är Fill Handle en kraftfull funktion för att göra många saker. Den kan också fylla i kryssrutorna. Först måste du infoga en kryssruta. Gör enligt följande:

1. Klicka Utvecklare i menyraden och klicka sedan på Insertoch välj kryssrutans bild under Formkontroll. Se skärmdump:

2. Klicka på kryssrutans bild så visas plusteckenpekaren, klicka där du vill lägga till kryssrutan.

3. Markera kryssrutan och flytta den till en cell och radera sedan kryssrutans namn.

4. Markera sedan cellen där kryssrutan finns. Dra sedan fyllningshandtaget över det cellområde som du vill fylla. Se skärmdump:

Infoga flera kryssrutor med VBA-kod

Om du tycker att den första metoden är något besvärlig kan följande VBA-kod hjälpa dig att enkelt och snabbt infoga flera kryssrutor.

1. Klicka Utvecklare > Visual Basic, en ny Microsoft Visual Basic för applikationer fönstret visas, klicka Insert > Modulernaoch mata in följande kod i Modulerna:

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. Klicka sedan för att köra koden. Och en snabbruta dyker upp för att påminna dig om att välja ett cellområde som du vill infoga kryssrutorna. Se skärmdump:

3. Och klicka sedan på OK, kryssrutorna har satts in i området snyggt och vackert. Se skärmdump:

Infoga flera kryssrutor med Kutools för Excel

Här kan jag presentera dig för ett enkelt och praktiskt sätt att infoga flera kryssrutor-Kutools för Excel, med dess Kryssruta för batchinsats kan du infoga kryssrutorna i tomma celler eller celler med data.

När du har installerat Kutools för Excel, gör med följande steg:

1. Markera ett cellområde som du vill infoga kryssrutorna.

2. Klicka Kutools > Insert > Kryssrutor för satsinsats, se skärmdump:

3. Då har dina valda celler fyllts med kryssrutorna enligt följande skärmdumpar:

Infoga kryssrutor i tomma celler	Infoga kryssrutor i dataceller

Relaterade Artikel:

Hur tar jag snabbt bort flera kryssrutor i Excel?