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

Bagaimana cara menjalankan makro berdasarkan nilai yang dipilih dari daftar drop-down di Excel?

Menjalankan makro dengan mengklik tombol perintah adalah tugas umum di Excel, namun, pernahkah Anda mencoba menjalankan kode makro berdasarkan nilai yang dipilih dari daftar drop-down? Artinya, ketika Anda memilih satu item dari daftar drop-down, makro tertentu akan dipicu sekaligus. Artikel ini akan memperkenalkan kode yang berguna bagi Anda untuk menyelesaikan pekerjaan ini.

Jalankan makro berdasarkan nilai yang dipilih dari daftar drop-down dengan kode VBA


panah gelembung kanan biru Jalankan makro berdasarkan nilai yang dipilih dari daftar drop-down dengan kode VBA

Tidak ada cara langsung untuk menyelesaikan tugas ini, tetapi kode VBA berikut dapat membantu Anda, lakukan seperti ini:

1. Pertama, buat daftar drop-down yang Anda butuhkan, lihat tangkapan layar:

doc menjalankan makro dari dropdown 1

2. Kemudian klik kanan tab lembar berisi drop down yang ingin Anda gunakan, lalu pilih Lihat kode dari menu konteks, dan di buka Microsoft Visual Basic untuk aplikasi jendela, salin dan tempel kode berikut ke dalam Modul kosong:

Kode VBA: Jalankan makro berdasarkan nilai yang dipilih dari daftar drop-down:

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 menjalankan makro dari dropdown 2

Note: Pada kode di atas, E1 adalah sel berisi daftar drop-down, mengubah nama makro dan nilai daftar drop-down sesuai kebutuhan Anda.

3. Dan kemudian simpan dan tutup jendela kode ini, sekarang, saat Anda memilih item Sisipkan baris Kosong dari daftar tarik-turun, Makro1 akan dipicu, dan seterusnya…


Artikel terkait:

Bagaimana cara menjalankan makro saat nilai sel berubah di Excel?

Bagaimana cara menjalankan makro berdasarkan nilai sel di Excel?

Bagaimana cara menjalankan makro secara otomatis sebelum mencetak di Excel?

Bagaimana cara menjalankan makro dengan mengklik hyperlink di Excel?

Bagaimana cara menjalankan makro saat lembar dipilih dari buku kerja?


Alat Produktivitas Kantor Terbaik

Kutools for Excel Memecahkan Sebagian Besar Masalah Anda, dan Meningkatkan Produktivitas Anda hingga 80%

  • Reuse: Masukkan dengan cepat rumus, bagan yang kompleks dan apa pun yang pernah Anda gunakan sebelumnya; Enkripsi Sel dengan kata sandi; Buat Milis dan mengirim email ...
  • Bilah Formula Super (dengan mudah mengedit beberapa baris teks dan rumus); Membaca Tata Letak (membaca dan mengedit sel dalam jumlah besar dengan mudah); Tempel ke Rentang yang Difilter...
  • Gabungkan Sel / Baris / Kolom tanpa kehilangan Data; Pisahkan Konten Sel; Gabungkan Baris / Kolom Duplikat... Mencegah Sel Duplikat; Bandingkan Rentang...
  • Pilih Duplikat atau Unik Baris; Pilih Baris Kosong (semua sel kosong); Temukan Super dan Temukan Fuzzy di Banyak Buku Kerja; Pilih Acak ...
  • Salinan Tepat Beberapa Sel tanpa mengubah referensi rumus; Buat Referensi Otomatis ke Beberapa Lembar; Sisipkan Poin, Kotak Centang, dan lainnya ...
  • Ekstrak Teks, Tambahkan Teks, Hapus berdasarkan Posisi, Hapus Space; Membuat dan Mencetak Subtotal Paging; Konversi Konten Antar Sel dan Komentar...
  • Filter Super (simpan dan terapkan skema filter ke sheet lain); Penyortiran Lanjutan menurut bulan / minggu / hari, frekuensi dan lainnya; Filter Khusus dengan huruf tebal, miring ...
  • Gabungkan Workbooks dan WorkSheets; Gabungkan Tabel berdasarkan kolom kunci; Pisahkan Data menjadi Beberapa Lembar; Konversi Batch xls, xlsx dan PDF...
  • Lebih dari 300 fitur canggih. Mendukung Office / Excel 2007-2021 dan 365. Mendukung semua bahasa. Penerapan yang mudah di perusahaan atau organisasi Anda. Fitur lengkap Uji coba gratis 30 hari. Jaminan uang kembali 60 hari.
tab kte 201905

Tab Office Membawa antarmuka Tab ke Office, dan Membuat Pekerjaan Anda Jauh Lebih Mudah

  • Aktifkan pengeditan dan pembacaan tab di Word, Excel, PowerPoint, Publisher, Access, Visio, dan Project.
  • Buka dan buat banyak dokumen di tab baru di jendela yang sama, bukan di jendela baru.
  • Meningkatkan produktivitas Anda sebesar 50%, dan mengurangi ratusan klik mouse untuk Anda setiap hari!
officetab bawah
Urutkan komentar berdasarkan
komentar (6)
Belum ada peringkat. Jadilah yang pertama memberi peringkat!
Komentar ini diminimalkan oleh moderator di situs
efectivamente funciona pero quiero aplicarlo en varias celdas, que variabel debo cambiar?
Komentar ini diminimalkan oleh moderator di situs
Apakah ada cara untuk menggunakan kode VBA untuk melakukan ini di Access? terima kasih
Komentar ini diminimalkan oleh moderator di situs
Hello!

Al aplicarlo me sale un error de compilación: La declaración del procedimiento tidak bertepatan dengan deskripsi del evento o el procedimiento que tiene el mismo nombre. Que quiere decir eso? que debo cambiar/arreglar? Gracias
Komentar ini diminimalkan oleh moderator di situs
Selamat pagi. Apakah Anda dapat melakukan Makro dari menu drop-down untuk selanjutnya: Untuk menjalankan makro dan menyimpan lembar terpisah untuk setiap item dari menu Dropdown? Dalam kasus Anda seharusnya terlihat seperti ini:
1. Anda menjalankan makro dan kemudian Anda telah memisahkan lembar dengan nilai untuk "Sisipkan baris kosong" yang disimpan di folder yang ditentukan
2. Lembar terpisah dengan nilai untuk " Sembunyikan semua lembar:" disimpan di folder yang ditentukan
3. Lembar terpisah dengan nilai untuk " Konversikan ke tanggal" disimpan di folder yang ditentukan.
4. Makro selesai sekarang


Terutama saya dapat mengatur semua ini kecuali bahwa makro secara otomatis mengubah pilihan dari menu drop down?


Terima kasih


Ivan
Komentar ini diminimalkan oleh moderator di situs


KODE PERTAMA BEKERJA DENGAN SEMPURNASub Lembar Kerja Pribadi_Rubah (Rentang Target As ByVal)
Jika Tidak Berpotongan(Target, Rentang("D1")) Bukan Apa-apa Kemudian
Pilih Rentang Kasus("D1")
         Kasus "0.5": Setengah
         Kasus "1": Satu
         Kasus "1.25": OneTwentyFive
End Select
End If
End Sub
KODE KEDUA TIDAK BERFUNGSI (tolong perbaiki di bawah ini)
Perubahan Sub Pribadi (Target ByVal Sebagai Rentang)
Jika Tidak Berpotongan(Target, Rentang("D2")) Bukan Apa-apa Kemudian
Pilih Rentang Kasus("D2")
         Kasus "9.53": sembilan titik lima tiga
End Select
End If
End Sub
Komentar ini diminimalkan oleh moderator di situs
A co jeśli potrzebuję aby po uruchomieniu makra wszystkie listy rozwijane ustawiły się na jeden z wyborów z listy? W sumie odwrotnie melakukan tego co jest w poście. Czy istnieje na ke atwiejszy sposób?
Belum ada komentar yang diposting di sini
Tinggalkan komentar anda
Posting sebagai Tamu
×
Beri peringkat pos ini:
0   Karakter
Lokasi yang Disarankan

Ikuti kami

Hak Cipta © 2009 - www.extendoffice.com. | Seluruh hak cipta. Dipersembahkan oleh ExtendOffice. | Peta Situs
Microsoft dan logo Office adalah merek dagang atau merek dagang terdaftar dari Microsoft Corporation di Amerika Serikat dan / atau negara lain.
Dilindungi oleh Sectigo SSL