Namig: drugi jeziki so prevedeni v Google. Lahko obiščete English različico te povezave.
Vpiši se
x
or
x
x
Registracija
x

or

Kako shraniti ali obdržati izbire seznamov polj ActiveX v Excelu?

Če ste ustvarili nekaj seznamskih polj in naredili izbire v poljih s seznamom, vse izbire teh seznamov ne izginejo, ko zapremo in ponovno odprete delovni zvezek. Želite obdržati izbire, ki so na seznamu, ko jih zaprete, in ponovno odprite delovni zvezek? Metoda v tem članku vam lahko pomaga.

Shranite ali obdržite izbira seznamov polj ActiveX s kodo VBA v Excelu


Preprosto vstavite ali izbrišite več potrditvenih polj v velikem obsegu v Excelu:

O Škatle za vstavljanje paketnih paketov pripomočki podjetja Kutools za Excel vam lahko hitro pomagajo pri vstavljanju več potrditvenih polj v izbranem obsegu hkrati. Vse potrditvene polja v izbranem obsegu lahko izbrišete z Batch Preveri polja. Glej sccreenshot:

Kutools za Excel: z več kot 200 priročnimi dodatki Excel, lahko brezplačno poskusite brez omejitev v dnevih 60. Prenesite in brezplačno preizkusite zdaj!


Shranite ali obdržite izbira seznamov polj ActiveX s kodo VBA v Excelu


Spodnja koda VBA vam lahko pomaga shraniti ali ohraniti izbire, če so polja ActiveX v seznamu Excel. Prosimo, naredite na naslednji način.

1. V delovni zvezki so polja s seznama ActiveX, ki jih želite obdržati, nato pritisnite druga + F11 tipke hkrati odpreti Microsoft Visual Basic za aplikacije okno.

2. V Ljubljani Microsoft Visual Basic za aplikacije okno, dvokliknite ThisWorkbook v levem podoknu, da odprete ThisWorkbook Koda okno. In nato v kodno okno kopirajte naslednjo kodo VBA.

VBA koda: shrani izbrane sezname polj ActiveX v Excelu

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. Pritisnite druga + Q tipke za zapiranje Microsoft Visual Basic za aplikacije okno.

4. Sedaj morate delovni zvezek shraniti kot Delovni zvezek s funkcijo Excel Macro. Prosimo, kliknite file > Shrani kot > Brskanje.

5. V Ljubljani Shrani kot pogovorno okno, izberite mapo, ki jo želite shraniti, jo preimenovati, kot jo potrebujete, izberite Delovni zvezek Macro-Enabled Excel v Shrani kot vrsto spustni seznam in nazadnje kliknite Shrani gumb. Prikaz slike:

Prosimo, shranite delovni zvezek vsakič, ko posodobite seznamska polja. Potem bodo vse prejšnje izbire shranjene v seznamskem polju po ponovnem odprtju delovnega zvezka.

Opombe: Pri shranjevanju delovne knjige, delovni list z imenom "ListBox podatki"Bo samodejno ustvarjen na koncu vseh delovnih listov svoje delovne knjige, prosimo, prezrtite ta delovni list, ker bo samodejno izginil, ko bo delovni zvezek zaprt.



Priporočena orodja za produktivnost za Excel

Kutools za Excel vam pomaga, da vedno končate delo pred časom in izstopite iz množice

  • Več kot zmogljive napredne funkcije 300, zasnovane za 1500 delovne scenarije, ki povečujejo produktivnost z 70%, vam dajejo več časa za skrb za družino in uživanje v življenju.
  • Ne potrebujete več pomnilniških formul in VBA kod, od zdaj naprej pa dajate svojim možganom počitek.
  • Postanite strokovnjak za Excel v minutah 3, zapletene in ponavljajoče se operacije lahko opravite v nekaj sekundah,
  • Vsak dan zmanjšajte število operacij tipkovnice in miške, zdaj se poslovite od poklicnih bolezni.
  • 110,000 visoko učinkovite ljudi in 300 + svetovno priznanih podjetij izbiro.
  • Brezplačna preizkusna različica 60 dneva. 60-dnevno jamstvo vračila denarja. 2 let brezplačne nadgradnje in podpore.

Prinaša kartično brskanje in urejanje za Microsoft Office, veliko močnejši od zavihkov brskalnika

  • Office Tab je namenjen za Word, Excel, PowerPoint in druge Office aplikacije: Založnik, Dostop, Visio in Projekt.
  • Odprite in ustvarite več dokumentov v novih zavihkih istega okna in ne v novih oknih.
  • Z 50% poveča vašo produktivnost in vsak dan zmanjša na stotine klikov z miško!
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.