İpucu: Digər dillər Google-tərcümə olunur. Sizi ziyarət edə bilərsiniz English bu linkin versiyası.
Daxil ol
x
or
x
x
Qeydiyyatdan
x

or

Excel-də VBA kodu ilə birləşmə qutusunun məzmununu necə təmizləmək olar?

Normal olaraq, Giriş Range siyahısı məlumatlarını təmizləyərək birləşmə qutusunun məzmununu təmizləyə bilərsiniz. Ancaq bir Excel iş qutusunun bütün açar qutularının məzmununu təmizləmək üçün necə? Bu yazı yalnız bir yığım qutunun məzmununu təmizləməklə yanaşı həm də bütün işəgötürən qutuların açıq məzmununu eyni zamanda Excel-də işləməyə kömək etmək üçün iki VBA kodunu hazırlayır.

VBA kodu ilə birləşmə qutusunun məzmununu asanlıqla təmizləyin


VBA kodu ilə birləşmə qutusunun məzmununu asanlıqla təmizləyin


Aşağıdakı iki VBA kodları bir aktiv qutunun tərkibində birləşmə qutusunun və ya bütün yığılmış qutuların məzmununu təmizləməyə kömək edə bilər. Xahiş edirik bunu edin.

1. İş yerində birləşmə qutusunun məzmununu təmizləməlisiniz, bura basın Dayandırmaq + F11 düymələri açmaq üçün eyni anda Proqramlar üçün Microsoft Visual Basic pəncərə.

2. İçində Proqramlar üçün Microsoft Visual Basic pəncərə basın Taxmaq > Modules. Sonra VBA kodunu Kod penceresine kopyalayın.

VBA 1: İş yerindəki açılan qutunun təmiz məzmunu

Sub ClearAComboBox()
ActiveSheet.Shapes.Range(Array("Drop Down 2")).Select
With Selection
    .ListFillRange = ""
End With
End Sub

Qeyd: Kodda, "Drop Down 2" birbaşa qutunun adıdır. Xahiş edirik bunu özünüzə dəyişdirin.

VBA 2: Aktiv iş yerindəki bütün açılan qutuların məzmununu təmizləyin

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. Basın F5 düyməsini basın və ya kodu çalıştırmak üçün Çalıştır düyməsini basın.

Sonra göstərilən ekran görünüşü kimi məzmunu müəyyən bir açılan qutuda və ya aktiv iş kitabındaki bütün yığım qutularında silinir:

Qeyd: VBA kodları həm Combo Box (Form Control) və Combo Box (ActiveX Control) üçün tətbiq oluna bilər.


Related articles:



Təklif olunan Məhsuldarlıq Vasitələri

Office Tab

qızıl star1 Chrome, Firefox və yeni Internet Explorer kimi Excel və digər Office proqramlarına lazımlı sekmeleri gətirin.

Excel üçün Kutools

qızıl star1 Amazing! 5 dəqiqədə məhsuldarlığınızı artırın. Heç bir xüsusi bacarıqa ehtiyac yoxdur, hər gün iki saat saxlaya bilərsiniz!

qızıl star1 300 Excel üçün yeni funksiyalar, Excel çox asan və güclü olun:

  • Veriyi ləğv etmədən Cell / Satır / Sütunları birləşdirin.
  • Bir neçə Çarşaf və İş Kitabını birləşdirin və birləşdirin.
  • Çaprazları müqayisə edin, birdən çox aralığa kopyalayın, mətni tarixə, vahidə və valyuta çevrilməsinə çevirin.
  • Rənglər, Paging Subtotals, Advanced Sort və Super Filter tərəfindən sayılan,
  • Daha çox seçin / Insert / Sil / Mətn / Biçim / Bağlantı / Yorum / Çalışma kitabları / Çalışma Qurğuları Tools ...

Excel üçün Kutools-un ekranı

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.