İpucu: Digər dillər Google-tərcümə olunur. Sizi ziyarət edə bilərsiniz English bu linkin versiyası.
Daxil ol
x
or
x
x
Qeydiyyatdan
x

or

Excel-də ActiveX siyahı qutularının seçimlərini saxlamaq və saxlamaq necə?

Bəzi siyahı qutuları yaratdığınızı və siyahı qutularında seçimlər etdiyini düşünsəniz də, bu siyahı qutularının bütün seçimləri iş dəftəri yaxın olduqda və yenidən açılır. İş dəftəri yaxın və yenidən açıldığında siyahı qutularında edilən seçimləri qorumaq istəyirsiniz? Bu yazıda istifadə edilən üsul sizə kömək edə bilər.

Excel-də VBA kodu olan ActiveX siyahı qutularının seçimlərini saxlaya və ya saxlamaq


Excel-də toplu olaraq birdən çox onay qutusunu asanlıqla daxil edin və ya silin:

The Batch Insert Check Box'ları kommunal xidmətlər Excel üçün Kutools tez bir zamanda seçilmiş aralıkta birdən çox onay qutusu daxil etməyinizə kömək edə bilər. Seçdiyiniz aralıktaki bütün onay kutularını silmek üçün Partiyanı Sil Çəkmə qutuları. Sekreenshotə baxın:

Excel üçün Kutools: 200 gündə heç bir məhdudiyyət olmadan 60-dən çox lazımlı Excel eklentisi ilə pulsuzdur. İndi indir və pulsuz sınaq!


Excel-də VBA kodu olan ActiveX siyahı qutularının seçimlərini saxlaya və ya saxlamaq


Aşağıdakı VBA kodu Excel-də ActiveX siyahı qutuları seçdiyiniz seçimləri saxlamağa və saxlamağa kömək edə bilər. Xahiş edirik bunu edin.

1. İş kitabında seçimləri saxlamaq istədiyiniz ActiveX siyahı qutuları daxildir, basın Dayandırmaq + F11 açmaq üçün eyni anda düymələri Proqramlar üçün Microsoft Visual Basic pəncərə.

2. İçində Proqramlar üçün Microsoft Visual Basic pəncərə, cüt basın BuWorkbook sol bölməni açmaq üçün BuWorkbook Kodu pəncərə. Və aşağıdakı VBA kodunu kod penceresine kopyalayın.

VBA kodu: Exceldə ActiveX siyahı qutularının seçimlərini saxlaya bilərsiniz

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. Basın Dayandırmaq + Q düymələri bağlamaq üçün Proqramlar üçün Microsoft Visual Basic pəncərə.

4. İndi iş kitabını Excel Macro effektiv iş kitabı olaraq saxlamaq lazımdır. Klikləyin fayl > Saxla > İnsanlar.

5. İçində Saxla informasiya qutusunu seçin, iş kitabını saxlamaq üçün bir qovluq seçin, istədiyiniz kimi yenidən adlandırın, seçin Excel Macro Enabled İş Kitabı ci Tipi olaraq saxla açılan siyahıdan və nəhayət basın Yadda saxla düyməsini basın. Ekran görüntüsünə baxın:

Lütfən siyahı qutularını yeniləyəndə iş kitabını hər dəfə saxlaya bilərsiniz. Bütün əvvəlki seçkilər iş kitabını yenidən açdıqdan sonra siyahıdakı qutularda saxlanacaq.

Qeyd: İş kitabını qeyd edərkən "ListBox Məlumatları"Iş kitabınızın bütün iş dəftərləri sonunda avtomatik olaraq yaradılacaq, bu iş səhifəsinə diqqət yetirin, çünki iş dəftəri qapalı olduğunda avtomatik olaraq yox olacaq.



Təklif olunan Məhsuldarlıq Vasitələri

Office Tab

qızıl star1 Chrome, Firefox və yeni Internet Explorer kimi Excel və digər Office proqramlarına lazımlı sekmeleri gətirin.

Excel üçün Kutools

qızıl star1 Amazing! 5 dəqiqədə məhsuldarlığınızı artırın. Heç bir xüsusi bacarıqa ehtiyac yoxdur, hər gün iki saat saxlaya bilərsiniz!

qızıl star1 300 Excel üçün yeni funksiyalar, Excel çox asan və güclü olun:

  • Veriyi ləğv etmədən Cell / Satır / Sütunları birləşdirin.
  • Bir neçə Çarşaf və İş Kitabını birləşdirin və birləşdirin.
  • Çaprazları müqayisə edin, birdən çox aralığa kopyalayın, mətni tarixə, vahidə və valyuta çevrilməsinə çevirin.
  • Rənglər, Paging Subtotals, Advanced Sort və Super Filter tərəfindən sayılan,
  • Daha çox seçin / Insert / Sil / Mətn / Biçim / Bağlantı / Yorum / Çalışma kitabları / Çalışma Qurğuları Tools ...

Excel üçün Kutools-un ekranı

Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.

Be the first to comment.