Hur avmarkerar eller avmarkerar alla kryssrutor samtidigt i Excel?
Hur kunde du avmarkera eller avmarkera alla markerade kryssrutor samtidigt i ett kalkylblad enligt följande skärmdump? I den här artikeln kommer jag att prata om några snabbkoder för att lösa det.
Avmarkera eller avmarkera alla markerade kryssrutor med VBA-kod
Avmarkera eller avmarkera alla markerade kryssrutor med VBA-kod
Avmarkera eller avmarkera alla markerade kryssrutor (Form Controls):
Om dina kryssrutor är formulärkontroller kan du avmarkera dem direkt med följande VBA-kod:
1. Håll ner ALT + F11 nycklar för att öppna Microsoft Visual Basic för applikationer fönster.
2. Klicka Insert > Modulernaoch klistra in följande kod i Modulerna Fönster.
VBA-kod: Avmarkera eller avmarkera alla markerade kryssrutor (Form Controls):
Sub ClearCheckBoxes()
'Updateby Extendoffice
Dim chkBox As Excel.CheckBox
Application.ScreenUpdating = False
For Each chkBox In ActiveSheet.CheckBoxes
chkBox.Value = xlOff
Next chkBox
Application.ScreenUpdating = True
End Sub
3. Tryck sedan på F5 för att köra den här koden, och alla kryssrutor har inte avmarkerats på en gång i det aktiva kalkylbladet.
Avmarkera eller avmarkera alla markerade kryssrutor (ActiveX-kontroller):
Om kryssrutorna är ActiveX-kontroller, använd nedanstående VBA-kod:
1. Håll ner ALT + F11 nycklar för att öppna Microsoft Visual Basic för applikationer fönster.
2. Klicka Insert > Modulernaoch klistra in följande kod i Modulerna Fönster.
VBA-kod: Avmarkera eller avmarkera alla kryssrutor (ActiveX-kontroller):
Sub clearcheckbox()
'Updateby Extendoffcie
Dim c As Object
For Each c In ActiveSheet.OLEObjects
If InStr(1, c.Name, "CheckBox") > 0 Then
c.Object.Value = False
End If
Next
End Sub
3. Tryck sedan på F5 för att köra den här koden, och alla kryssrutor har avmarkerats samtidigt i det aktiva kalkylbladet.
Infoga flera kryssrutor i val samtidigt
Kutools för Excel's Kryssrutor för satsinsats verktyget kan hjälpa dig att snabbt infoga flera kryssrutor samtidigt. Klicka för att ladda ner Kutools för Excel!
Bästa kontorsproduktivitetsverktyg
Uppgradera dina Excel-färdigheter med Kutools för Excel och upplev effektivitet som aldrig förr. Kutools för Excel erbjuder över 300 avancerade funktioner för att öka produktiviteten och spara tid. Klicka här för att få den funktion du behöver mest...
Fliken Office ger ett flikgränssnitt till Office och gör ditt arbete mycket enklare
- Aktivera flikredigering och läsning i Word, Excel, PowerPoint, Publisher, Access, Visio och Project.
- Öppna och skapa flera dokument i nya flikar i samma fönster, snarare än i nya fönster.
- Ökar din produktivitet med 50 % och minskar hundratals musklick för dig varje dag!