Bagaimana cara menjalankan makro berdasarkan nilai sel di Excel?
Misalkan, saya memiliki beberapa kode makro di buku kerja saya, dan sekarang, saya ingin menjalankan kode ini berdasarkan nilai sel. Artikel ini, saya akan berbicara tentang beberapa situasi yang mungkin Anda derita dalam pekerjaan sehari-hari Anda saat menggunakan Excel.
Jalankan atau picu makro jika nilai sel lebih besar atau kurang dari nilai tertentu dengan kode VBA
Jalankan atau picu makro jika nilai sel sama dengan teks tertentu dengan kode VBA
Jalankan atau picu makro jika nilai sel lebih besar atau kurang dari nilai tertentu dengan kode VBA
Misalnya, jika nilai di sel A1 antara 10 dan 50, jalankan macro1, dan jika nilainya lebih besar dari 50, jalankan macro2. Untuk menyelesaikan pekerjaan ini di Excel, harap terapkan kode VBA berikut.
1. Klik kanan tab lembar yang ingin Anda jalankan makro berdasarkan nilai sel, 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 jika nilai sel lebih besar atau kurang dari:
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Cells.Count > 1 Then Exit Sub
If IsNumeric(Target) And Target.Address = "$A$1" Then
Select Case Target.Value
Case 10 To 50: Macro1
Case Is > 50: Macro2
End Select
End If
End Sub
Note: Pada kode diatas:
A1 adalah sel yang berisi nilai spesifik yang Anda inginkan untuk menjalankan makro berdasarkan;
Kasus 10 Sampai 50: Makro1: artinya jika nilainya antara 10 dan 50, jalankan Macro1;
Kasus Is> 50: Makro2: artinya jika nilainya lebih dari 50, jalankan Macro2.
Harap ubah nama dan kriteria makro ini sesuai kebutuhan Anda, dan Anda juga dapat menambahkan lebih banyak kriteria setelah Kasus Script.
2. Kemudian simpan dan tutup jendela kode ini, sekarang, ketika nilai yang Anda masukkan antara 10 dan 50 di sel A1, Makro1 akan terpicu, jika nilai yang dimasukkan lebih besar dari 50, Makro2 dijalankan.
Jalankan atau picu makro jika nilai sel sama dengan teks tertentu dengan kode VBA
Jika Anda ingin memicu makro berdasarkan teks tertentu dalam sel, misalnya, untuk menjalankan makro1 jika teks "Hapus" dimasukkan, dan jalankan makro2 jika teks "Sisipkan" diketik. Kode berikut dapat membantu Anda.
1. Klik kanan lembar yang ingin Anda jalankan makro berdasarkan nilai sel, 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 jika nilai sel adalah teks tertentu
Sub worksheet_change(ByVal target As Range)
Set target = Range("A1")
If target.Value = "Delete" Then
Call Macro1
End If
If target.Value = "Insert" Then
Call Macro2
End If
End Sub
Note: Pada kode di atas, “Delete"Dan"Menyisipkan"Adalah teks sel tempat Anda ingin menjalankan makro, dan Makro1 dan Makro2 adalah makro yang ingin Anda jalankan berdasarkan teks. Harap ubah sesuai kebutuhan Anda.
2. Kemudian simpan kode ini dan tutup jendela, sekarang, ketika Anda memasukkan teks "Hapus" di sel A1, makro1 dipicu, jika teks "Sisipkan" dimasukkan, makro2 akan dieksekusi.
Artikel terkait:
Bagaimana cara menjalankan makro saat nilai sel berubah di Excel?
Bagaimana cara menjalankan makro secara otomatis sebelum mencetak di Excel?
Bagaimana cara menjalankan makro berdasarkan nilai yang dipilih dari daftar drop-down 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
Tingkatkan Keterampilan Excel Anda dengan Kutools for Excel, dan Rasakan Efisiensi yang Belum Pernah Ada Sebelumnya. Kutools for Excel Menawarkan Lebih dari 300 Fitur Lanjutan untuk Meningkatkan Produktivitas dan Menghemat Waktu. Klik Di Sini untuk Mendapatkan Fitur yang Paling Anda Butuhkan...
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!