İ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

Combo Box dəyərini Excel-də aktiv hüceyrəyə necə çıxarmaq olar?

Bəzi hallarda, seçilmiş dəyəri Combo qutusundan aktiv hüceyrəyə çıxarmaq lazımdır. Normalda, Combo qutusuna daxil olmalı, onu əl ilə aktiv kameraya köçürün və yapışdırın. Bu yazı, Combo Box'ta dəyərləri seçərkən aktiv hüceyrəni avtomatik olaraq yeniləmək üçün əlverişli bir üsul təqdim edir.

Combo Box dəyərini VBA kodu ilə aktiv hüceyrəyə kopyalayın

VBA 1: Kombo qutusu dəyərini Command vasitəsilə aktiv hüceyrəyə kopyalayın

VBA 2: Aktiv surətə avtomatik surət qutusunun dəyəri


arrow mavi sağ bubble Combo Box dəyərini VBA kodu ilə aktiv hüceyrəyə kopyalayın


Aşağıdakı VBA kodları birləşmə qutusu dəyərini avtomatik olaraq aktiv hüceyrəyə kopyalamanıza kömək edə bilər. Xahiş edirik bunu edin.

VBA 1: Combo qutusu dəyəri Komanda Buttonu ilə aktiv hüceyrəyə kopyalayın

1. Əvvəla, göstərilən ekran görüntüsü kimi iş səhifəsinə bir Komut Buttonu əlavə etmək lazımdır.

2. Komanda düyməsini sağ basın və sonra basın Kodları baxın sağ tıklayarak menyudan. Ekran görüntüsünə baxın:

3. Popping up Proqramlar üçün Microsoft Visual Basic Kod penceresindeki orijinal kodu aşağıdakı VBA koduyla değiştirin.

VBA kodu: Combo Box dəyərini aktiv hüceyrəyə kopyalayın

Private Sub CommandButton1_Click()
   ActiveCell.Value = Me.ComboBox1.Text
End Sub

Qeyd: Kodda, CommandButton1, daxil edilmiş komut düyməsinin adıdır və ComboBox1, dəyərini kopyalayacağınız Combo Box adını daşıyır. Lazım olduğunuz halda onları dəyişdirin.

4. Basın Dayandırmaq + Q düymələri bağlamaq üçün Proqramlar üçün Microsoft Visual Basic pəncərə.

İndi açılan qutu dəyərini aktiv hüceyrəyə kopyalamanız lazım olduğunda, yalnız hüceyrəni seçin, sonra bunu yerinə yetirmək üçün Komanda düyməsini basın.

VBA 2: Aktiv surətə avtomatik surət qutusunun dəyəri

Aşağıdakı VBA kodu, Combo Box-da dəyərləri seçərkən aktiv hüceyrəni avtomatik olaraq yeniləməyə kömək edə bilər. Bunu aşağıdakı kimi edə bilərsiniz.

1. Əmin olun Dizayn Moda altında açılır Developer nişanı.

2. Düyməni kopyalayacağınız Combo Box'ı sağ basın və sonra basın Kodları baxın sağ tıklayarak menyudan. Ekran görüntüsünə baxın:

3. Popping up Proqramlar üçün Microsoft Visual Basic pəncərədə, orijinal kodu dəyişdirin Kodu Aşağıdakı VBA kodu ilə pəncərə.

VBA kodu: Combo Box dəyərini aktiv hüceyrəyə kopyalayın

Private Sub ComboBox1_Change()
  ActiveCell.Value = Me.ComboBox1.Value
End Sub

Qeyd: Kodda ComboBox1, dəyərini kopyalayacağınız Combo Box adını daşıyır.

4. Basın Dayandırmaq + Q Microsoft Visual Basic for Applications penceresini açmaq üçün düymələri və Developer sekmesinin altında Tasarım rejimi söndürün.

Bundan sonra, Combo Box-dən dəyər seçərkən, bu seçilmiş qeyd avtomatik olaraq aktiv hüceyrəyə göstərilir.


arrow mavi sağ bubbleƏlaqəli məqalələr:



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.