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?