Sett inn flere boksene med fyllhåndtaket
I Excel, fyllhåndtaket er en kraftig funksjon for å gjøre mange ting. Det kan fylle boksene også. Først må du sette inn en sjekkheftet. Gjør som følger:
1. Klikk Developer i menylinjen, og klikk deretter Sett inn, og velger avmerkingsboksen bilde i Form Control. Se skjermbilde:
to. Klikk på avkrysnings bildet, og du vil se plusstegn peker, klikker du der du vil legge til avkrysnings
3.. Kryss av i boksen, og flytte den til en celle, og deretter slette navnet på sjekkheftet.
4. Deretter velger du cellen der avkrysnings bo i. Og så drar fyllhåndtaket over området av celler som du ønsker å fylle. Se skjermbilde:
Sett flere boksene med VBA-kode
Hvis du tror den første metoden er litt plagsom, kan følgende VBA-kode hjelpe deg enkelt og raskt sette inn flere boksene
1.. Klikk Developer > Visual Basic, en ny Microsoft Visual Basic for Applications-vinduet vises, klikker du Sett > Modul, og skriv inn følgende kode i modulen:
Sub InsertCheckBoxes () 'Update 20140506Dim RNG Som RangeDim WorkRng Som RangeDim Ws Som WorksheetOn Error Resume NextxTitleId = "KutoolsforExcel" Set WorkRng = Application.SelectionSet WorkRng = Application.InputBox (" Range ", xTitleId, WorkRng.Address, Type: = 8) Sett Ws = Application.ActiveSheetApplication.ScreenUpdating = FalseFor Hver RNG I WorkRng Med Ws.CheckBoxes.Add (Rng.Left, Rng.Top, Rng.Width, Rng.Height ) .Characters.Text = Rng.Value Ende WithNextWorkRng.ClearContentsWorkRng.SelectApplication.ScreenUpdating = TrueEnd SUB2. Klikk deretter på knappen for å kjøre koden. Og en rask boks vil komme ut for å minne deg på å velge et område av celler som du ønsker å sette inn de boksene. Se skjermbilde:
tre. Og klikk deretter på OK, avmerkingsboksene er satt inn i området pent og vakkert. Se skjermbilde:
Sett flere boksene med Kutools for Excel
Her kan jeg presentere deg en enkel og praktisk måte å sette inn flere boksene-Kutools for Excel, med sin Batch Sett Sjekk Box-funksjonen, du kan sette av i rutene til tomme celler eller celler med data.
Kutools for Excel omfatter mer enn 120 praktiske Excel-verktøy. Gratis å prøve uten begrensning i 30 dager. . Få den nå
Etter installering Kutools for Excel, kan du gjøre med følgende:
1. Velg et område av celler som du ønsker å sette inn de boksene.
To. Klikk Kutools > Sett Verktøy > Batch Sett Sjekk Box, se skjermbilde:
tre. Så de valgte cellene har blitt fylt med avmerkingsboksene som følgende skjermbilder som vises.
Sett boksene inn tomme celler Sett boksene til dataceller For å vite mer om denne funksjonen, kan du gå til Batch Sett Sjekk Box
Hvis du tror den første metoden er litt plagsom, kan følgende VBA-kode hjelpe deg enkelt og raskt sette inn flere boksene
1.. Klikk Developer > Visual Basic, en ny Microsoft Visual Basic for Applications-vinduet vises, klikker du Sett > Modul, og skriv inn følgende kode i modulen:
Sub InsertCheckBoxes () 'Update 20140506Dim RNG Som RangeDim WorkRng Som RangeDim Ws Som WorksheetOn Error Resume NextxTitleId = "KutoolsforExcel" Set WorkRng = Application.SelectionSet WorkRng = Application.InputBox (" Range ", xTitleId, WorkRng.Address, Type: = 8) Sett Ws = Application.ActiveSheetApplication.ScreenUpdating = FalseFor Hver RNG I WorkRng Med Ws.CheckBoxes.Add (Rng.Left, Rng.Top, Rng.Width, Rng.Height ) .Characters.Text = Rng.Value Ende WithNextWorkRng.ClearContentsWorkRng.SelectApplication.ScreenUpdating = TrueEnd SUB2. Klikk deretter på knappen for å kjøre koden. Og en rask boks vil komme ut for å minne deg på å velge et område av celler som du ønsker å sette inn de boksene. Se skjermbilde:
tre. Og klikk deretter på OK, avmerkingsboksene er satt inn i området pent og vakkert. Se skjermbilde: