Excel'de ActiveX liste kutularının seçimleri nasıl kaydedilir veya korunur?
Bazı liste kutuları oluşturduğunuzu ve liste kutularında seçimler yaptığınızı varsayarsak, bu liste kutularının tüm seçimleri çalışma kitabını kapatıp yeniden açtığınızda kaybolur. Çalışma kitabını her kapatıp yeniden açtığınızda liste kutularında yapılan seçimleri korumak istiyor musunuz? Bu makaledeki yöntem size yardımcı olabilir.
Excel'de VBA kodu ile ActiveX liste kutularının seçimlerini kaydedin veya saklayın
Excel'de birden çok onay kutusunu toplu olarak kolayca ekleyin veya silin:
The Toplu Ek Kontrol Kutuları yararları Kutools for Excel seçilen aralıkta aynı anda birden çok onay kutusunu hızlı bir şekilde eklemenize yardımcı olabilir. Ve seçili aralıktaki tüm onay kutularını silebilirsiniz. Onay Kutularını Toplu Silme. Ekran görüntüsüne bakın:
Kutools for Excel: 200'den fazla kullanışlı Excel eklentisi ile 60 günde sınırlama olmaksızın ücretsiz deneyin. Hemen indirin ve ücretsiz deneme!
Excel'de VBA kodu ile ActiveX liste kutularının seçimlerini kaydedin veya saklayın
Aşağıdaki VBA kodu, Excel'de ActiveX liste kutuları varsa seçimleri kaydetmenize veya korumanıza yardımcı olabilir. Lütfen aşağıdaki işlemleri yapın.
1. Çalışma kitabında, seçimleri saklamak istediğiniz ActiveX liste kutuları bulunur, Ara Toplam + F11 anahtarları aynı anda açmak için Uygulamalar için Microsoft Visual Basic pencere.
2. içinde Uygulamalar için Microsoft Visual Basic pencere, çift tıklayın Bu Çalışma Kitabı sol bölmede Bu Çalışma Kitabı Kod pencere. Ve sonra aşağıdaki VBA kodunu kod penceresine kopyalayın.
VBA kodu: ActiveX liste kutularının seçimlerini Excel'de kaydedin
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim I As Long
Dim J As Long
Dim K As Long
Dim KK As Long
Dim xSheet As Worksheet
Dim xListBox As Object
On Error GoTo Label
Application.DisplayAlerts = False
Application.ScreenUpdating = False
K = 0
KK = 0
If Not Sheets("ListBox Data") Is Nothing Then
Sheets("ListBox Data").Delete
End If
Label:
Sheets.Add(after:=Worksheets(Worksheets.Count)).Name = "ListBox Data"
Set xSheet = Sheets("ListBox Data")
For I = 1 To Sheets.Count
For Each xListBox In Sheets(I).OLEObjects
If xListBox.Name Like "ListBox*" Then
With xListBox.Object
For J = 0 To .ListCount - 1
If .Selected(J) Then
xSheet.Range("A1").Offset(K, KK).Value = "True"
Else
xSheet.Range("A1").Offset(K, KK).Value = "False"
End If
K = K + 1
Next
End With
K = 0
KK = KK + 1
End If
Next
Next
Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub
Private Sub Workbook_Open()
Dim I As Long
Dim J As Long
Dim KK As Long
Dim xRg As Range
Dim xCell As Range
Dim xListBox As Object
Application.DisplayAlerts = False
Application.ScreenUpdating = False
KK = 0
For I = 1 To Sheets.Count - 1
For Each xListBox In Sheets(I).OLEObjects
If xListBox.Name Like "ListBox*" Then
With xListBox.Object
Set xRg = Intersect(Sheets("ListBox Data").Range("A1").Offset(0, KK).EntireColumn, Sheets("ListBox Data").UsedRange)
For J = 1 To .ListCount
Set xCell = xRg(J)
If xCell.Value = "True" Then
.Selected(J - 1) = True
End If
Next
KK = KK + 1
End With
End If
Next
Next
Sheets("ListBox Data").Delete
Application.ScreenUpdating = True
Application.DisplayAlerts = True
End Sub
3. Tuşuna basın. Ara Toplam + Q kapatmak için anahtarlar Uygulamalar için Microsoft Visual Basic pencere.
4. Şimdi çalışma kitabını Excel Makro etkin çalışma kitabı olarak kaydetmeniz gerekir. lütfen tıklayın fileto > Farklı Kaydet > Araştır.
5. içinde Farklı Kaydet iletişim kutusu, çalışma kitabını kaydetmek için bir klasör seçin, ihtiyacınız olduğu gibi yeniden adlandırın, seçin Excel Makro Etkin Çalışma Kitabı içinde Kayıt türü açılır listeyi ve son olarak İndirim buton. Ekran görüntüsüne bakın:
Liste kutularını her güncellediğinizde lütfen çalışma kitabını kaydedin. Ardından, çalışma kitabı yeniden açıldıktan sonra önceki tüm seçimler liste kutularında tutulacaktır.
not: Çalışma kitabını kaydederken, "ListBox Verileri"Çalışma kitabınızın tüm çalışma sayfalarının sonunda otomatik olarak oluşturulacaktır, lütfen bu çalışma sayfasını yok sayın çünkü çalışma kitabı kapatıldığında otomatik olarak kaybolacaktır.
En İyi Ofis Üretkenlik Araçları
Kutools for Excel ile Excel Becerilerinizi Güçlendirin ve Daha Önce Hiç Olmadığı Gibi Verimliliği Deneyimleyin. Kutools for Excel, Üretkenliği Artırmak ve Zamandan Tasarruf Etmek için 300'den Fazla Gelişmiş Özellik Sunar. En Çok İhtiyacınız Olan Özelliği Almak İçin Buraya Tıklayın...
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!