Petua: Bahasa lain diterjemahkan Google. Anda boleh melawat English versi pautan ini.
Log masuk
x
or
x
x
Daftar Sekarang
x

or

Bagaimana untuk menyimpan atau mengekalkan pilihan kotak senarai ActiveX dalam Excel?

Sekiranya anda telah membuat beberapa kotak senarai dan membuat pilihan di dalam kotak senarai, bagaimanapun, semua pilihan kotak senarai ini hilang apabila menutup dan membuka semula buku kerja. Adakah anda ingin mengekalkan pilihan yang dibuat dalam kotak senarai apabila menutup dan membuka semula buku kerja? Kaedah dalam artikel ini boleh membantu anda.

Simpan atau simpan pilihan kotak senarai ActiveX dengan kod VBA dalam Excel


Mudah memasukkan atau memadam pelbagai kotak semak secara besar-besaran di Excel:

Platform Kotak Centang Masukkan Batch utiliti Kutools untuk Excel boleh membantu anda dengan cepat memasukkan beberapa kotak semak dalam julat terpilih sekaligus. Dan anda boleh memadam semua kotak semak dalam julat yang dipilih dengan Kotak Semak Kotak Hapuskan. Lihat Jawapan:

Kutools untuk Excel: dengan lebih daripada 200 berguna Excel tambahan, bebas untuk mencuba tanpa had pada hari 60. Muat turun dan percubaan percuma Sekarang!


Simpan atau simpan pilihan kotak senarai ActiveX dengan kod VBA dalam Excel


Kod di bawah VBA boleh membantu anda menyimpan atau mengekalkan pilihan jika kotak senarai ActiveX dalam Excel. Sila buat seperti berikut.

1. Dalam buku kerja mengandungi kotak senarai ActiveX yang anda mahu menyimpan pilihan, tekan Alt + F11 kunci pada masa yang sama untuk membuka Microsoft Visual Basic untuk Aplikasi tingkap.

2. Di dalam Microsoft Visual Basic untuk Aplikasi tingkap, klik dua kali ThisWorkbook di anak tetingkap kiri untuk membuka ThisWorkbook Kod tingkap. Dan kemudian salin kod VBA berikut ke dalam tetingkap kod.

Kod VBA: Simpan pilihan kotak senarai ActiveX dalam Excel

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. Tekan butang Alt + Q kunci untuk menutup Microsoft Visual Basic untuk Aplikasi tingkap.

4. Kini anda perlu menyimpan buku kerja sebagai buku kerja Excel yang dibolehkan Mac. Sila klik File > Save As > Semak imbas.

5. Di dalam Save As kotak dialog, pilih folder untuk menyimpan buku kerja, menamakan semula seperti yang anda perlukan, pilih Buku Kerja Excel Excel-Enabled dalam Simpan sebagai jenis senarai jatuh turun, dan akhirnya klik Simpan butang. Lihat tangkapan skrin:

Sila simpan buku kerja setiap kali anda mengemas kini kotak senarai. Kemudian semua pilihan terdahulu akan disimpan dalam kotak senarai selepas membuka semula buku kerja.

Nota: Semasa menyimpan buku kerja, lembaran kerja bernama "Data ListBox"Akan dibuat secara automatik pada akhir semua lembaran kerja buku kerja anda, sila abaikan lembaran kerja ini kerana ia akan hilang secara automatik apabila buku kerja ditutup.



Cadangan Alat Produktiviti untuk Excel

Kutools untuk Excel Membantu Anda Selalu Menyelesaikan Kerja di Hadapan Masa, dan Berdiri Daripada Orang

  • Lebih daripada ciri-ciri canggih 300 yang canggih, yang direka untuk senario kerja 1500, meningkatkan produktiviti oleh 70%, memberi anda lebih banyak masa untuk menjaga keluarga dan menikmati kehidupan.
  • Tidak perlu lagi menghafal formula dan kod VBA, berikan rehat dari otak anda sekarang.
  • Menjadi pakar Excel dalam minit 3, Operasi yang rumit dan berulang boleh dilakukan dalam beberapa saat,
  • Mengurangkan beribu-ribu operasi papan kekunci & tetikus setiap hari, mengucapkan selamat tinggal kepada penyakit pekerjaan sekarang.
  • 110,000 orang yang sangat berkesan dan pilihan syarikat 300 + yang terkenal di dunia.
  • Ciri-ciri penuh 60-hari adalah percubaan percuma. Jaminan wang balik 60 hari. Tahun 2 peningkatan dan sokongan percuma.

Membawa Browsing Tab dan Editing ke Microsoft Office, Jauh Lebih Berkuasa Daripada Tab Penyemak Imbas

  • Tab Pejabat direka untuk Aplikasi Pejabat Word, Excel, PowerPoint dan Lain-lain: Penerbit, Akses, Visio dan Projek.
  • Buka dan buat beberapa dokumen dalam tab baharu pada tetingkap yang sama, dan bukannya dalam tetingkap baru.
  • Meningkatkan produktiviti anda oleh 50%, dan mengurangkan beratus-ratus klik tetikus untuk anda setiap hari!
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.