İ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

Bir giriş qutusunu iş dəftərində açıq olan məlumatlarla necə doldurmaq olar?

Normal olaraq, birbaşa qutusu (ActiveX Control), birbaşa qutu xüsusiyyətlərinin ListFillRange sahəsində daxil olan hüceyrə istinadları daxil edərək müəyyən bir sıra hüceyrə məlumatları ilə doldurursunuz. Birbaşa giriş qutusunu müəyyən xüsusiyyətləri ilə əlçatan ifadə etmədən birbaşa doldurmaq istəyirsinizsə, bu yazıda istifadə olunan üsul sizə kömək edə bilər.

VBA koduyla müəyyən edilmiş məlumatlarla birləşmə qutusunu yerləşdirin


VBA koduyla müəyyən edilmiş məlumatlarla birləşmə qutusunu yerləşdirin


Bu metod birbaşa giriş qutusunu göstərilən məlumatlarla birbaşa iş kitabçasına açıq şəkildə yerləşdirməyə kömək edə bilər. Xahiş edirik bunu edin.

1. Basın Dayandırmaq + F11 açmaq üçün eyni anda düymələri Proqramlar üçün Microsoft Visual Basic pəncərə.

2. İçində Proqramlar üçün Microsoft Visual Basic pəncərə, cüt basın BuWorkbook sol bölməni açmaq üçün BuWorkbook kodu redaktoru. VBA kodunun altına kopyalayın. Ekran görüntüsünə baxın:

VBA kodu: iş qutusunda açıq olan müəyyən məlumatlarla birləşmə qutusunu doldurun

Private Sub Workbook_Open()
'Updated by Extendoffice 2018/1/30
    With Sheet1.ComboBox1
        .Clear
        .AddItem "Select a Fruit"
        .AddItem "Apple"
        .AddItem "Banana"
        .AddItem "Peach"
        .AddItem "Pineapple"
        .AddItem "Watermelon"
        .Text = .List(0)
    End With
End Sub

Qeydlər:

1). ComboBox1, məlumatları dolduracağınız açılan qutunun adıdır və bu yığın qutusu Sheet1-də tapır. Lazım olduğunuz halda onları dəyişdirin.

2). Kodunuzdakı məlumatları lazım olan bir şəkildə əvəz edin.

3. İş kitabını kimi qeyd edin Excel Macro Enabled İş Kitabı biçimlendirin ve kapatın.

4. İş kitabını yenidən açarsanız, açılan qutu göstərilən məlumatlarla aşağıda göstərilən ekran şəklində doldurulduğunu görürsünüz:


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.