Conas roghnúcháin de bhoscaí liosta ActiveX a shábháil nó a choinneáil in Excel?
Má cheaptar gur chruthaigh tú roinnt boscaí liostaí agus go ndearna tú roghnúcháin sna boscaí liostaí, áfach, tá gach roghnú de na boscaí liostaí seo imithe nuair a dhúnann tú agus a athoscailt an leabhar oibre. Ar mhaith leat roghnúcháin a dhéantar i mboscaí liostaí a choinneáil aon uair a dhúnann tú agus a athoscailt an leabhar oibre? Is féidir leis an modh san alt seo cabhrú leat.
Sábháil nó coinnigh roghnúcháin de bhoscaí liosta ActiveX le cód VBA in Excel
Cuir isteach nó scrios go héasca boscaí seiceála iomadúla ar an mórchóir in Excel:
An Boscaí Seiceála Iontrála Baisc fóntais de Kutools le haghaidh Excel is féidir leis cabhrú leat ilbhoscaí seiceála a chur isteach sa raon roghnaithe ag an am céanna. Agus is féidir leat gach bosca seiceála i raon roghnaithe a scriosadh leis an Boscaí Seiceála Baisc Scrios. Féach sccreenshot:
Kutools le haghaidh Excel: le níos mó ná 200 breiseán áisiúil Excel, saor in aisce le triail gan aon teorannú i 60 lá. Íoslódáil agus triail saor in aisce Anois!
Sábháil nó coinnigh roghnúcháin de bhoscaí liosta ActiveX le cód VBA in Excel
Is féidir leis an gcód VBA thíos cabhrú leat roghnúcháin a shábháil nó a choinneáil má liostálann ActiveX boscaí in Excel. Déan mar a leanas le do thoil.
1. Sa leabhar oibre tá na boscaí liosta ActiveX a theastaíonn uait na roghnúcháin a choinneáil, brúigh an Eile + F11 eochracha ag an am céanna chun an Microsoft Visual Basic d’Fheidhmchláir fhuinneog.
2. Sa Microsoft Visual Basic d’Fheidhmchláir fuinneog, cliceáil dúbailte An Leabhar Oibre seo sa phána chlé chun an An Leabhar Oibre seo cód fuinneog. Agus ansin cóipeáil an cód VBA seo a leanas isteach i bhfuinneog an chóid.
Cód VBA: Sábháil rogha de bhoscaí liosta ActiveX in 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. Brúigh an Eile + Q eochracha chun an Microsoft Visual Basic d’Fheidhmchláir fhuinneog.
4. Anois ní mór duit an leabhar oibre a shábháil mar leabhar oibre Macra-chumasaithe Excel. Cliceáil le do thoil Comhad > Sábháil Mar > Brabhsáil.
5. Sa Sábháil Mar bosca dialóige, roghnaigh fillteán chun an leabhar oibre a shábháil, é a athainmniú de réir mar is gá duit, roghnaigh Leabhar Oibre Macra-Chumasaithe Excel sa Ach amháin mar chineál liosta anuas, agus ar deireadh cliceáil ar an Sábháil cnaipe. Féach an pictiúr:
Sábháil an leabhar oibre gach uair le do thoil nuair a dhéanann tú na boscaí liosta a nuashonrú. Ansin coimeádfar gach roghnúchán roimhe seo sna boscaí liosta tar éis an leabhar oibre a athoscailt.
nótaí: Agus an leabhar oibre á shábháil, bileog oibre darb ainm “Sonraí ListBoxCruthófar go huathoibríoch é ag deireadh gach bileog oibre de do leabhar oibre, déan neamhaird den bhileog oibre seo le do thoil mar go n-imeoidh sé go huathoibríoch nuair a dhúnfar an leabhar oibre.
Uirlisí Táirgiúlachta Oifige is Fearr
Supercharge Do Scileanna Excel le Kutools le haghaidh Excel, agus Éifeachtúlacht Taithí Cosúil Ná Roimhe. Kutools le haghaidh Excel Tairiscintí Níos mó ná 300 Ardghnéithe chun Táirgiúlacht a Treisiú agus Sábháil Am. Cliceáil anseo chun an ghné is mó a theastaíonn uait a fháil ...
Tugann Tab Oifige comhéadan Tabbed chuig Office, agus Déan Do Obair i bhfad Níos Éasca
- Cumasaigh eagarthóireacht agus léamh tabbed i Word, Excel, PowerPoint, Foilsitheoir, Rochtain, Visio agus Tionscadal.
- Oscail agus cruthaigh cáipéisí iolracha i gcluaisíní nua den fhuinneog chéanna, seachas i bhfuinneoga nua.
- Méadaíonn do tháirgiúlacht 50%, agus laghdaíonn sé na céadta cad a tharlaíonn nuair luch duit gach lá!