Conas ábhar an bhosca teaglama a ghlanadh le cód VBA in Excel?
De ghnáth, is féidir leat ábhar bosca teaglama a ghlanadh trí shonraí an liosta Raon Ionchuir a ghlanadh. Ach cad faoi ábhar na mbosca teaglama uile a ghlanadh i mbileog oibre Excel? Ullmhaíonn an t-alt seo dhá chód VBA chun cabhrú leat ní amháin ábhar bosca teaglama a ghlanadh ach freisin ábhar soiléir na mbosca teaglama uile a ghlanadh ag an am céanna i mbileog oibre Excel.
Ábhar an bhosca teaglama a ghlanadh go héasca de réir chód VBA
Ábhar an bhosca teaglama a ghlanadh go héasca de réir chód VBA
Is féidir leis an dá chód VBA thíos cabhrú leat ábhar bosca teaglama nó gach bosca teaglama a ghlanadh i mbileog oibre gníomhach. Déan mar a leanas le do thoil.
1. Sa bhileog oibre is gá duit ábhar bosca teaglama a ghlanadh, 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 Ionsáigh > Modúil. Ansin cóipeáil thíos cód VBA isteach i bhfuinneog an Chóid.
VBA 1: Ábhar soiléir bosca teaglama sa bhileog oibre
Sub ClearAComboBox()
ActiveSheet.Shapes.Range(Array("Drop Down 2")).Select
With Selection
.ListFillRange = ""
End With
End Sub
nótaí: Sa chód, “Buail Isteach 2” is ainm don bhosca teaglama a ghlanfaidh tú an t-ábhar uaidh. Athraigh é go dtí do cheann féin.
VBA 2: Ábhar soiléir gach bosca teaglama sa bhileog oibre gníomhach
Sub ClearComboBox()
Dim xOle As OLEObject
Dim xDrop As DropDown
Application.ScreenUpdating = False
For Each xOle In ActiveSheet.OLEObjects
If TypeName(xOle.Object) = "ComboBox" Then
xOle.ListFillRange = ""
End If
Next
For Each xDrop In ActiveSheet.DropDowns
xDrop.ListFillRange = ""
Next
Application.ScreenUpdating = True
End Sub
3. Brúigh an F5 eochair nó cliceáil ar an gcnaipe Rith chun an cód a rith.
Ansin feiceann tú go nglanfar an t-ábhar sa bhosca teaglama sonraithe nó i ngach bosca teaglama sa bhileog oibre ghníomhach mar atá thíos an pictiúr a thaispeántar:
nótaí: is féidir na cóid VBA a chur i bhfeidhm ar Bhosca Teaglama (Rialú Foirm) agus Bosca Teaglama (Rialú ActiveX).
Earraí gaolmhara:
- Conas ábhar agus formáidiú a ghlanadh ag an am céanna i gcealla in Excel?
- Conas ábhar an raon ainmnithe a ghlanadh in Excel?
- Conas luachanna srianta i gcealla in Excel a ghlanadh?
- Conas ábhar cille sonraithe a ghlanadh má athraíonn luach cille eile in Excel?
- Conas ábhar cille sonraithe a ghlanadh ar oscailt agus amach i leabhar oibre Excel?
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á!