Note: The other languages of the website are Google-translated. Back to English

Excel'de açılır listeden seçilen değere dayalı olarak makro nasıl çalıştırılır?

Makroları komut düğmesine tıklayarak çalıştırmak Excel'de yaygın bir görevdir, ancak makro kodlarını açılır listeden seçilen değere göre çalıştırmayı hiç denediniz mi? Bu, açılır listeden bir öğe seçtiğinizde, belirli makronun aynı anda tetikleneceği anlamına gelir. Bu makale, bu işi çözmeniz için faydalı bir kod sunacaktır.

VBA kodu ile açılır listeden seçilen değere göre makroyu çalıştır


ok mavi sağ balon VBA kodu ile açılır listeden seçilen değere göre makroyu çalıştır

Bu görevi bitirmenin doğrudan bir yolu yoktur, ancak aşağıdaki VBA kodu size yardımcı olabilir, lütfen şunu yapın:

1. Öncelikle, ihtiyacınız olan bir açılır liste oluşturun, ekran görüntüsüne bakın:

doc açılır menüden makro çalıştır 1

2. Ardından, kullanmak istediğiniz açılır menüyü içeren sayfa sekmesine sağ tıklayın ve ardından Kodu Görüntüle bağlam menüsünden ve açılan Uygulamalar için Microsoft Visual Basic penceresinde, aşağıdaki kodu boş Modüle kopyalayıp yapıştırın:

VBA kodu: Açılır listeden seçilen değere göre makroyu çalıştırın:

Private Sub Worksheet_Change(ByVal Target As Range)
	If Not Intersect(Target, Range("E1")) Is Nothing Then
	    Select Case Range("E1")
	        Case "Insert Blank rows": Macro1
	        Case "Hide All Sheets": Macro2
            Case "Convert to Date": Macro3
	    End Select
	End If
	End Sub

doc açılır menüden makro çalıştır 2

not: Yukarıdaki kodda, E1 hücre açılır listeyi içerir, makro adlarını değiştirin ve açılır liste değerlerini ihtiyaçlarınıza göre değiştirin.

3. Ve sonra bu kod penceresini kaydedip kapatın, şimdi, açılır listeden Boş satır ekle öğesini seçtiğinizde, Makro1 tetiklenecek ve bu böyle devam edecek…


İlgili yazılar:

Excel'de hücre değeri değiştiğinde makro nasıl çalıştırılır?

Excel'de hücre değerine göre makro nasıl çalıştırılır?

Excel'de yazdırmadan önce makro otomatik olarak nasıl çalıştırılır?

Excel'de köprülere tıklayarak makro nasıl çalıştırılır?

Çalışma kitabından sayfa seçildiğinde makro nasıl çalıştırılır?


En İyi Ofis Üretkenliği Araçları

Kutools for Excel Sorunlarınızın Çoğunu Çözer ve Verimliliğinizi% 80 Artırır

  • Yeniden: Hızlıca yerleştirin karmaşık formüller, grafikler ve daha önce kullandığınız her şey; Hücreleri Şifrele şifre ile; Posta Listesi Oluşturun ve e-posta gönder ...
  • Süper Formül Çubuğu (birden çok metin ve formül satırını kolayca düzenleyin); Okuma Düzeni (çok sayıda hücreyi kolayca okuyun ve düzenleyin); Filtrelenmiş Aralığa Yapıştır...
  • Hücreleri / Satırları / Sütunları Birleştirme Veri kaybetmeden; Bölünmüş Hücre İçeriği; Yinelenen Satırları / Sütunları Birleştirme... Yinelenen Hücreleri Önleyin; Aralıkları Karşılaştır...
  • Yinelenen veya Benzersiz'i seçin Satırlar; Boş Satırları Seçin (tüm hücreler boştur); Süper Bul ve Bulanık Bul Birçok Çalışma Kitabında; Rastgele Seçim ...
  • Tam kopya Formül referansını değiştirmeden Birden Çok Hücre; Otomatik Referans Oluştur Birden Çok Sayfaya; Madde İşaretleri Ekle, Onay Kutuları ve daha fazlası ...
  • Metni Çıkar, Metin Ekle, Konuma Göre Kaldır, Alanı Kaldır; Sayfalama Alt Toplamları Oluşturma ve Yazdırma; Hücre İçeriği ve Yorumları Arasında Dönüştür...
  • Süper Filtre (filtre şemalarını kaydedin ve diğer sayfalara uygulayın); Gelişmiş Sıralama ay / hafta / gün, sıklık ve daha fazlasına göre; Özel Filtre kalın, italik ...
  • Çalışma Kitaplarını ve Çalışma Sayfalarını Birleştirin; Tabloları anahtar sütunlara göre birleştirin; Verileri Birden Çok Sayfaya Bölme; Toplu dönüştürme xls, xlsx ve PDF...
  • 300'den fazla güçlü özellik. Office / Excel 2007-2021 ve 365'i destekler. Tüm dilleri destekler. Kuruluşunuzda veya kuruluşunuzda kolay devreye alma. Tam özellikler 30 günlük ücretsiz deneme. 60 günlük para iade garantisi.
kte sekmesi 201905

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!
ofis tabanı
Yorumları sıralama ölçütü
Yorumlar (6)
Henüz derecelendirme yok. İlk değerlendiren siz olun!
Bu yorum sitedeki moderatör tarafından en aza indirildi
efectivamente funciona pero quiero aplikarlo en değişkenler celdas, que değişken debo cambiar?
Bu yorum sitedeki moderatör tarafından en aza indirildi
Access'te bunu yapmak için VBA kodunu kullanmanın bir yolu var mı? teşekkürler
Bu yorum sitedeki moderatör tarafından en aza indirildi
Merhaba!

Tüm başvurular için bir derleme hatası: İşlemlerin onaylanması çakışmamaktadır. Eso ne kadar doğru? que debo cambiar/düzensiz? lütuflar
Bu yorum sitedeki moderatör tarafından en aza indirildi
Günaydın. Açılır menüden bir sonraki adım için Makro yapabilir misiniz: Makroyu çalıştırmak ve Açılır menüden her öğe için ayrı sayfaları kaydetmek için? Senin durumunda şöyle görünmeli:
1. Makroyu çalıştırırsınız ve ardından belirlenmiş klasöre kaydedilen "Boş satırlar ekle" değerleriyle ayrılmış sayfaya sahip olursunuz.
2. "Tüm sayfaları gizle:" değerleriyle ayrılmış sayfa, belirlenen klasöre kaydedilir
3. Belirlenen klasöre kaydedilen "Tarihe dönüştür" değerleriyle ayrılmış sayfa.
4. Makro şimdi tamamlandı


Temel olarak, makronun açılır menüden seçimi otomatik olarak değiştirmesi dışında tüm bunları ayarlayabilir miyim?


Teşekkürler


Ivan
Bu yorum sitedeki moderatör tarafından en aza indirildi


İLK KOD MÜKEMMEL ÇALIŞIYORÖzel Alt Çalışma Alanı_Değiştir (ByVal Target As Range)
Kesişmiyorsa(Hedef, Aralık("D1")) O Zaman Hiçbir Şey Değildir
Vaka Aralığını Seç ("D1")
         Durum "0.5": Yarım
         Durum "1": Bir
         Vaka "1.25": OneTwentyFive
Select End
Eğer son
End Sub
İKİNCİ KOD ÇALIŞMIYOR (lütfen aşağıdakini düzeltin)
Özel Alt Değişiklik (Aralık Olarak ByVal Hedefi)
Kesişmiyorsa(Hedef, Aralık("D2")) O Zaman Hiçbir Şey Değildir
Vaka Aralığını Seç ("D2")
         Durum "9.53": dokuz noktabeşüç
Select End
Eğer son
End Sub
Bu yorum sitedeki moderatör tarafından en aza indirildi
Bir co jeśli potrzebuję aby po uruchomieniu makra wszystkie listy rozwijane ustawiły się na jeden z wyborów z listy? Birlikte eğlenin. Czy istnieje na łatwiejszy sposób?
Buraya henüz hiç yorum yapılmamış
Lütfen yorum yazın
Misafir olarak yayınlama
×
Bu gönderiyi değerlendirin:
0   Karakterler
Önerilen Konumlar

Bizi takip et

Telif Hakkı © 2009 - www.extendoffice.com. | Tüm hakları Saklıdır. Tarafından desteklenmektedir ExtendOffice. | | | Site Haritası
Microsoft ve Office logosu, Microsoft Corporation'ın Amerika Birleşik Devletleri ve / veya diğer ülkelerdeki ticari markaları veya tescilli ticari markalarıdır.
Sectigo SSL ile korunmaktadır