Note: The other languages of the website are Google-translated. Back to English
Oturum aç Kaydol

Excel'de aynı anda tüm onay kutularının işaretini nasıl kaldırabilirim veya seçimini kaldırabilirim?

Aşağıdaki ekran görüntüsü gösterildiği gibi, bir çalışma sayfasındaki tüm işaretli onay kutularının işaretini nasıl kaldırabilir veya seçimlerini kaldırabilirsiniz? Bu yazıda, onu çözmek için bazı hızlı kodlardan bahsedeceğim.

doc işaretini kaldır onay kutuları 1

VBA kodu ile tüm işaretli onay kutularının işaretini kaldırın veya işaretlerini kaldırın

ok mavi sağ balon VBA kodu ile tüm işaretli onay kutularının işaretini kaldırın veya işaretlerini kaldırın

İşaretli tüm onay kutularının işaretini kaldırın veya işaretlerini kaldırın (Form Denetimleri):

Onay kutularınız form denetimleriyse, aşağıdaki VBA kodu ile bunların işaretlerini bir kerede kaldırabilirsiniz:

1. Basılı tutun ALT + F11 tuşlarını açmak için Uygulamalar için Microsoft Visual Basic pencere.

2. tıklayın Ekle > modülve aşağıdaki kodu modül Pencere.

VBA kodu: İşaretli tüm onay kutularının işaretini kaldırın veya işaretlerini kaldırın (Form Denetimleri):

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. Daha sonra tuşuna basın. F5 Bu kodu çalıştırmak için anahtar ve etkin çalışma sayfasındaki tüm işaretli onay kutularının işareti kaldırılmıştır.

İşaretli tüm onay kutularının işaretini kaldırın veya seçimlerini kaldırın (ActiveX Denetimleri):

Onay kutuları ActiveX Denetimleriyse, lütfen aşağıdaki VBA kodunu uygulayın:

1. Basılı tutun ALT + F11 tuşlarını açmak için Uygulamalar için Microsoft Visual Basic pencere.

2. tıklayın Ekle > modülve aşağıdaki kodu modül Pencere.

VBA kodu: İşaretli tüm onay kutularının işaretini kaldırın veya işaretlerini kaldırın (ActiveX Denetimleri):

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. Daha sonra tuşuna basın. F5 Bu kodu çalıştırmak için anahtar ve etkin çalışma sayfasındaki tüm işaretli onay kutularının seçimi kaldırıldı.

Seçimlere aynı anda birden çok onay kutusu ekleyin

Kutools for Excel's Toplu Ek Kontrol Kutuları yardımcı program, aynı anda birden çok onay kutusunu hızlı bir şekilde eklemenize yardımcı olabilir. Kutools for Excel'i indirmek için tıklayın!

En İyi Ofis Üretkenliği Araçları

Kutools for Excel Sorunlarınızın Çoğunu Çözer ve Verimliliğinizi% 80 Artırır

  • Yeniden: Hızlıca yerleştirin karmaşık formüller, grafikler ve daha önce kullandığınız her şey; Hücreleri Şifrele şifre ile; Posta Listesi Oluşturun ve e-posta gönder ...
  • Süper Formül Çubuğu (birden çok metin ve formül satırını kolayca düzenleyin); Okuma Düzeni (çok sayıda hücreyi kolayca okuyun ve düzenleyin); Filtrelenmiş Aralığa Yapıştır...
  • Hücreleri / Satırları / Sütunları Birleştirme Veri kaybetmeden; Bölünmüş Hücre İçeriği; Yinelenen Satırları / Sütunları Birleştirme... Yinelenen Hücreleri Önleyin; Aralıkları Karşılaştır...
  • Yinelenen veya Benzersiz'i seçin Satırlar; Boş Satırları Seçin (tüm hücreler boştur); Süper Bul ve Bulanık Bul Birçok Çalışma Kitabında; Rastgele Seçim ...
  • Tam kopya Formül referansını değiştirmeden Birden Çok Hücre; Otomatik Referans Oluştur Birden Çok Sayfaya; Madde İşaretleri Ekle, Onay Kutuları ve daha fazlası ...
  • Metni Çıkar, Metin Ekle, Konuma Göre Kaldır, Alanı Kaldır; Sayfalama Alt Toplamları Oluşturma ve Yazdırma; Hücre İçeriği ve Yorumları Arasında Dönüştür...
  • Süper Filtre (filtre şemalarını kaydedin ve diğer sayfalara uygulayın); Gelişmiş Sıralama ay / hafta / gün, sıklık ve daha fazlasına göre; Özel Filtre kalın, italik ...
  • Çalışma Kitaplarını ve Çalışma Sayfalarını Birleştirin; Tabloları anahtar sütunlara göre birleştirin; Verileri Birden Çok Sayfaya Bölme; Toplu dönüştürme xls, xlsx ve PDF...
  • 300'den fazla güçlü özellik. Office / Excel 2007-2021 ve 365'i destekler. Tüm dilleri destekler. Kuruluşunuzda veya kuruluşunuzda kolay devreye alma. Tam özellikler 30 günlük ücretsiz deneme. 60 günlük para iade garantisi.
kte sekmesi 201905

Office Tab, Office'e Sekmeli Arayüz Getirir ve İşinizi Çok Daha Kolay Hale Getirir

  • Word, Excel, PowerPoint'te sekmeli düzenlemeyi ve okumayı etkinleştirin, Publisher, Access, Visio ve Project.
  • Yeni pencereler yerine aynı pencerenin yeni sekmelerinde birden çok belge açın ve oluşturun.
  • Üretkenliğinizi% 50 artırır ve her gün sizin için yüzlerce fare tıklamasını azaltır!
ofis tabanı
Yorumları sıralama ölçütü
Yaşlılar önden
En yeni ilk
Yorumlar (14)
Henüz derecelendirme yok. İlk değerlendiren siz olun!
biqbob
biqbob
Bu yorum sitedeki moderatör tarafından en aza indirildi
Bu vba kodu için çok teşekkürler, çok yardımcı oldu.

F5'e basarak çalışmasını sağlayamayan insanlar için FYI, basitçe:

geliştirici sekmesi > makrolar > yeni oluşturulan modülü seçin ve seçenekler'e tıklayın > kısayol için ctrl+j veya ctrl+k gibi bir karakter yazın.
cevap
0
0
R.Rothman
R.Rothman     biqbob
Bu yorum sitedeki moderatör tarafından en aza indirildi
Bu konudaki yardımın için teşekkürler. Çok takdir edilmektedir. Ancak lütfen unutmayın: 2. ADIM İÇİN KODDAKİ YAZIM YANLIŞTIR. VBA kodu: İşaretli tüm onay kutularının işaretini kaldırın veya seçimini kaldırın (ActiveX Denetimleri):
Alt clearcheckbox()
Extendoffcie tarafından güncelleme
Dim c Nesne Olarak
ActiveSheet.OLEObjects'deki Her c İçin
InStr(1, c.Name, "CheckBox") > 0 ise
c.Object.Value = Yanlış
Eğer son
Sonraki
End Sub

"Extendoffcie" SÖZCÜĞÜNÜN DOĞRU YAZILI OLMADIĞINI LÜTFEN DİKKATE ALIN. OLMAMALIDIR"Extendoffice"?? Her neyse, bunu oraya koymak istedim
cevap
0
0
Ariel
Ariel
Bu yorum sitedeki moderatör tarafından en aza indirildi
Kutuları temizlemek için makroyu etkinleştirmek için bir düğme kullanmak istersem ne olur?
cevap
0
0
gökyang
gökyang     Ariel
Bu yorum sitedeki moderatör tarafından en aza indirildi
Merhaba, Ariel,
Makroyu etkinleştirmek için bir düğme kullanmak için, önce Şekiller açılır listesinden bir düğme eklemeli, ardından düğmeyi sağ tıklatmalı, bağlam menüsünden Makro Ata'yı seçmeli ve ardından Makro Ata iletişim kutusunda makro adını seçmelisiniz. . Ardından Tamam'a tıklayın ve makro kodu düğmeye bağlanacaktır.
Lütfen deneyin, umarım size yardımcı olabilir!
Ekleri Görüntüle (1 / 5)
cevap
Report
0
0
Haziran
Haziran
Bu yorum sitedeki moderatör tarafından en aza indirildi
Etkin sayfada yalnızca belirli bir hücre aralığındaki kutuların işaretini nasıl kaldırırım? Bir sayfada 3 listem var (Günlük/Haftalık/Aylık görevler) ve her liste için "Tümünü Temizle" düğmesi yapmak istedim.
cevap
0
0
Reika
Reika
Bu yorum sitedeki moderatör tarafından en aza indirildi
Büyük yardım! teşekkür ederim!
cevap
0
0
JL
JL
Bu yorum sitedeki moderatör tarafından en aza indirildi
OMG TEŞEKKÜR EDERİM, BU SİTE HAYAT KURTARICI :)
cevap
0
0
Linds
Linds
Bu yorum sitedeki moderatör tarafından en aza indirildi
Merci beaucoup d'avoir partage le code pour décocher des éléments "CheckBox", cela m'a sauvé ! :o) En etkili, en kodlayıcı ve gerçek olmayan olaylar, en kötü durumlar, en iyi durumlar (en kılık değiştirme du formüller) ve "Seçim" yönteminin bir parçası est, comme nous le savons tous, à bannir), tout simplement car :=> la propriété ".CheckBoxes" n'existe pas en propriété d'une "Çalışma sayfası" !=> l'Objet "Onay Kutuları" artı olmayan şekiller için dans l'explorateur d'objets !C'est lunaire cette histoire...Alors merci énormément.Bien à vous.
cevap
0
0
MandyZhou
MandyZhou     Linds
Bu yorum sitedeki moderatör tarafından en aza indirildi
bonjour Lindas,
Seni seviyorum. Heureux que cela yardımcısı. Soru sor, n'hésitez pas à nous iletişim cihazı. Une bonne journée'yi geç.
içtenlikle,
Mandy
cevap
Report
0
0
Pfleger Siegfried
Pfleger Siegfried
Bu yorum sitedeki moderatör tarafından en aza indirildi
Merhaba,
en güncel bilgileri içeren tarihler için onay kutusu1 u. CheckBox2 nicht aktif sein

Özel Alt CheckBox2_Click ()
CheckBox2 = True ise
CheckBox1 = Yanlış
Eğer son
End Sub
Özel Alt CheckBox1_Click ()
CheckBox1 = True ise
CheckBox2 = Yanlış
Eğer son
End Sub

Yardımlarınız için teşekkür ederim
cevap
0
0
gökyang
gökyang     Pfleger Siegfried
Bu yorum sitedeki moderatör tarafından en aza indirildi
Merhaba, Siegfried
Birini kontrol etmek ve diğerini devre dışı bırakmak istiyorsanız, lütfen aşağıdaki kodu uygulayın:
not: Buradaki onay kutusu ActiveX Denetimi onay kutusunu kullanmalısınız.
Private Sub CheckBox2_Click()
If CheckBox2 = True Then
CheckBox1.Enabled = False
Else
CheckBox1.Enabled = True
End If
End Sub
Private Sub CheckBox1_Click()
If CheckBox1 = True Then
CheckBox2.Enabled = False
Else
CheckBox2.Enabled = True
End If
End Sub

Lütfen bir deneyin, umarım size yardımcı olabilir!
cevap
Report
0
0
Ramon Torres
Ramon Torres
Bu yorum sitedeki moderatör tarafından en aza indirildi
Tüm çalışma sayfalarındaki tüm onay kutuları nasıl temizlenir?
cevap
0
0
gökyang
gökyang     Ramon Torres
Bu yorum sitedeki moderatör tarafından en aza indirildi
Merhaba Ramon

Tüm sayfalardaki tüm onay kutularını temizlemek için lütfen aşağıdaki kodları uygulayın:
Tüm sayfalardaki tüm onay kutularının işaretini kaldırın (Form Kontrolleri):
Sub Uncheckallcheckboxes()
    Dim sh As Worksheet
    For Each sh In Sheets
        On Error Resume Next
            sh.CheckBoxes.Value = False
        On Error GoTo 0
    Next sh
End Sub


Tüm sayfalardaki tüm onay kutularının işaretini kaldırın (ActiveX Denetimleri):
Sub uncheck_all_ActiveX_checkboxes()
    Dim ws As Worksheet
    Dim xbox As OLEObject
    For Each ws In ThisWorkbook.Worksheets
        For Each xbox In ws.OLEObjects
            ws.OLEObjects(xbox.Name).Object.Value = False
        Next
    Next
End Sub


Lütfen bir deneyin, umarım bu size yardımcı olabilir!
cevap
Report
0
0
Ramon Torres
Ramon Torres
Bu yorum sitedeki moderatör tarafından en aza indirildi
Tüm çalışma sayfalarındaki tüm onay kutularını nasıl temizlerim?
cevap
0
0
Buraya henüz hiç yorum yapılmamış
Lütfen yorum yazın
Konuk
Misafir olarak yayınlama
Giriş
×
Bu gönderiyi değerlendirin:
Reset
0   Karakterler
Önerilen Konumlar

Bizi takip et

Telif Hakkı © 2009 - www.extendoffice.com. | Tüm hakları Saklıdır. Tarafından desteklenmektedir ExtendOffice. | | | Site Haritası
Microsoft ve Office logosu, Microsoft Corporation'ın Amerika Birleşik Devletleri ve / veya diğer ülkelerdeki ticari markaları veya tescilli ticari markalarıdır.
Sectigo SSL ile korunmaktadır