Menjalankan Makro dari Dropdownlist pada Cell Worksheet + File Contoh

Pembaca ESI, kali ini saya akan membahas mengenai cara menampilkan daftar makro dan menjalankannya dari dropdown list pada sell Worksheet di Excel. Berikut langkah-langkahnya:

1.      Aktifkan MS Excel Anda

2.      Pada Sheet1 Buat daftar nama makro pada sell manapun misalnya:

3.      Blok Daftar tersebut kemudianTekan CTRL+F3

4.      Setelah jendela Name Manager muncul, pada menu Name isikan dengan “perintah” (tanpa tanda petik”)

5.      Aktifkan Tab developer pada menu Excel, Jika belum ada maka klik menu File => Option => Costumize Ribbon => ceklis menu Developer di Kolom kanan

6.      Setelah Tab developer aktif, pilih menu insert =>Active X Controls => Combobox

7.      Tempatkan di sel A1 dan atur ukurannya sesuai kebutuhan

8.      Klik kanan pada combobox kemudian pilih Properties

9.      Pada menu Misc cari => ListfillRange => pada kolom sebelahnya ketik “perintah” (tanpa tanda petik) kemudian Tutup jendela Properties

10.  Klik kanan pada combobox kemudian pilih View Code, Copy paste berikut ini

Private Sub ComboBox1_Change()

Dim RgStart As Range

Set RgStart = ActiveCell

Select Case Me.ComboBox1

Case "Warnai D(Merah)": warnad

Case "Reset D": reset_d

Case "Warnai E(Kuning)": warnae

Case "Reset E": reset_E

End Select

Me.ComboBox1 = ""

RgStart.Activate

End Sub

11.  Jangan di tutup dulu, pada jendela yang sama pilih menu insert => module

12.  Pada module copy paste kode berikut

'mewarnai Kolom D

Sub warnad()

 Range("D:D").Interior.ColorIndex = 3

End Sub

'Mereset format pada Kolom D

Sub reset_d()

 Range("D:D").ClearFormats

    End Sub

'mewarnai Kolom E

Sub warnae()

 Range("E:E").Interior.ColorIndex = 6

 End Sub

'Mereset format pada Kolom E

Sub reset_E()

    Range("E:E").ClearFormats

    End Sub

13.  Tutup jendela VBA, kemudian pada matikan Design Mode dengan klik Design Mode pada menu Tab Developer

14.  Sekarang kita bisa menjalankan 4 makro yang terdapat pada daftar combobox

 Nah file contohnya download di sini , sekian pembahasan kali ini semoga bermanfaat.