Ana içeriğe atla

Combo Box değerini Excel'deki etkin hücreye nasıl kopyalarım?

Bazı durumlarda, seçilen değeri bir Birleşik Giriş Kutusundan etkin hücreye kopyalamanız gerekebilir. Normalde, Combo Box'a girmeniz, onu aktif hücreye manuel olarak kopyalayıp yapıştırmanız gerekir. Bu makale, bir Birleşik Giriş Kutusunda değerleri seçerken etkin hücreyi otomatik olarak güncellemek için uygun bir yöntem sunar.

Combo Box değerini VBA kodu ile etkin hücreye kopyala

VBA 1: Birleşik giriş kutusu değerini Komut aracılığıyla etkin hücreye kopyala
VBA 2: Birleşik giriş kutusu değerini etkin hücreye otomatik kopyala


Combo Box değerini VBA kodu ile etkin hücreye kopyala

Aşağıdaki VBA kodları, birleşik giriş kutusu değerini otomatik olarak etkin hücreye kopyalamanıza yardımcı olabilir. Lütfen aşağıdaki işlemleri yapın.

VBA 1: Birleşik giriş kutusu değerini Komut Düğmesi aracılığıyla etkin hücreye kopyala

1. Öncelikle, aşağıda gösterilen ekran görüntüsü gibi çalışma sayfasına bir Komut Düğmesi eklemeniz gerekir.

2. Komut düğmesine sağ tıklayın, ardından Kodu Görüntüle sağ tıklama menüsünden. Ekran görüntüsüne bakın:

3. Açılırken Uygulamalar için Microsoft Visual Basic penceresinde, Kod penceresindeki orijinal kodu aşağıdaki VBA kodu ile değiştirin.

VBA kodu: Combo Box değerini etkin hücreye kopyala

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

not: Kodda, CommandButton1, eklenen komut düğmesinin adıdır ve ComboBox1, değerini kopyalayacağınız Combo Box'ın adıdır. Lütfen ihtiyacınız olduğu gibi değiştirin.

4. Tuşuna basın. Ara Toplam + Q kapatmak için anahtarlar Uygulamalar için Microsoft Visual Basic pencere.

Şu andan itibaren, birleşik giriş kutusu değerini etkin hücreye kopyalamanız gerektiğinde, lütfen sadece hücreyi seçin ve ardından bunu yapmak için Komut Düğmesine tıklayın.

VBA 2: Birleşik giriş kutusu değerini etkin hücreye otomatik kopyala

Aşağıdaki VBA kodu, Birleşik Giriş Kutusunda değerleri seçerken etkin hücreyi otomatik olarak güncellemenize yardımcı olabilir. Aşağıdaki gibi yapabilirsiniz.

1. Emin ol Tasarım Modu altında açıldı Geliştirici sekmesi.

2. Değer kopyalayacağınız Combo Box'a sağ tıklayın ve ardından Kodu Görüntüle sağ tıklama menüsünden. Ekran görüntüsüne bakın:

3. Açılırken Uygulamalar için Microsoft Visual Basic penceresindeki orijinal kodu değiştirin Kod aşağıdaki VBA kodu ile pencere.

VBA kodu: Combo Box değerini etkin hücreye kopyala

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

not: Kodda, ComboBox1, değerini kopyalayacağınız Combo Box'ın adıdır.

4. Tuşuna basın. Ara Toplam + Q Microsoft Visual Basic for Applications penceresini kapatmak ve Geliştirici sekmesi altındaki Tasarım Modunu kapatmak için tuşlara basın.

Şu andan itibaren, Birleşik Giriş Kutusundan değer seçerken, bu seçilen kayıt otomatik olarak aktif hücrede görüntülenecektir.


İlgili Makaleler:

En İyi Ofis Üretkenlik Araçları

🤖 Kutools AI Yardımcısı: Aşağıdakilere dayalı olarak veri analizinde devrim yaratın: Akıllı Yürütme   |  Kodunu oluşturun  |  Özel Formüller Oluşturun  |  Verileri Analiz Edin ve Grafikler Oluşturun  |  Kutools İşlevlerini Çağır...
Popüler Özellikler: Yinelenenleri Bul, Vurgula veya Tanımla   |  Boş Satırları Sil   |  Veri Kaybı Olmadan Sütunları veya Hücreleri Birleştirin   |   Formülsüz Tur ...
Süper Arama: Çoklu Ölçütlü VLookup    Çoklu Değer VLookup  |   Birden Çok Sayfada VLookup   |   Bulanık Arama ....
Gelişmiş Açılır Liste: Hızla Açılır Liste Oluşturun   |  Bağımlı Açılır Liste   |  Çoklu Seçim Açılır Liste ....
Sütun Yöneticisi: Belirli Sayıda Sütun Ekleme  |  Sütunları Taşı  |  Gizli Sütunların Görünürlük Durumunu Değiştir  |  Aralıkları ve Sütunları Karşılaştırın ...
Öne Çıkan Özellikler: Izgara Odağı   |  Tasarım görünümü   |   Büyük Formül Çubuğu    Çalışma Kitabı ve Sayfa Yöneticisi   |  Kaynak Kütüphanesi (Otomatik metin)   |  Tarih Seçici   |  Çalışma Sayfalarını Birleştirin   |  Hücreleri Şifrele/Şifresini Çöz    E-postaları Listeye Göre Gönder   |  Süper Filtre   |   Özel Filtre (kalın/italik/üstü çizili filtre...) ...
En İyi 15 Araç Seti12 Metin Tools (Metin ekle, Karakterleri Kaldır, ...)   |   50+ Grafik Türleri (Gantt şeması, ...)   |   40+ Pratik Formüller (Yaşı doğum gününe göre hesapla, ...)   |   19 sokma Tools (QR Kodunu Girin, Yoldan Resim Ekle, ...)   |   12 Dönüştürme Tools (Sayılardan Kelimelere, Para Birimi Dönüştürme, ...)   |   7 Birleştir ve Böl Tools (Gelişmiş Kombine Satırları, Bölünmüş hücreler, ...)   |   ... ve dahası

Kutools for Excel ile Excel Becerilerinizi Güçlendirin ve Daha Önce Hiç Olmadığı Gibi Verimliliği Deneyimleyin. Kutools for Excel, Üretkenliği Artırmak ve Zamandan Tasarruf Etmek için 300'den Fazla Gelişmiş Özellik Sunar.  En Çok İhtiyacınız Olan Özelliği Almak İçin Buraya Tıklayın...

Açıklama


Office Tab, Office'e Sekmeli Arayüz Getirir ve İşinizi Çok Daha Kolay Hale Getirir

  • Word, Excel, PowerPoint'te sekmeli düzenlemeyi ve okumayı etkinleştirin, Publisher, Access, Visio ve Project.
  • Yeni pencereler yerine aynı pencerenin yeni sekmelerinde birden çok belge açın ve oluşturun.
  • Üretkenliğinizi% 50 artırır ve her gün sizin için yüzlerce fare tıklamasını azaltır!
Comments (2)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Kalau sel aktifnya ditentuka, seperti misalnya D7, bagaimana code nya?
Terima Kasih
This comment was minimized by the moderator on the site
maksud saya, code vba berikut, untuk cel aktif yang randomKode VBA: Salin nilai Combo Box ke sel aktif
Private Sub ComboBox1_Change()
ActiveCell.Value = Me.ComboBox1.Value
End Sub

kalau cel aktifnya ingin di tentukan misalnya text dari combo box tersebut ingin berada di cell D7, bagaimana merubah code vba nyaterima kasih
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations