Bagaimana cara mengaktifkan atau menonaktifkan tombol berdasarkan nilai sel di Excel?
Artikel ini, saya akan berbicara tentang beberapa metode untuk mengaktifkan atau menonaktifkan tombol berdasarkan nilai sel di lembar kerja Excel.
Mengaktifkan atau menonaktifkan dua tombol berdasarkan data dua kolom dengan kode VBA
Mengaktifkan atau menonaktifkan tombol berdasarkan dua nilai sel dengan kode VBA
Mengaktifkan atau menonaktifkan dua tombol berdasarkan data dua kolom dengan kode VBA
Misalnya, saya memiliki dua tombol perintah di lembar kerja, jika Kolom A memiliki data, tombol1 diaktifkan, dan tombol 2 nonaktif; jika Kolom C berisi data, tombol 2 aktif, dan tombol 1 nonaktif. Untuk mengatasi tugas ini, kode VBA berikut dapat membantu Anda.
1. Klik kanan lembar yang berisi tombol, lalu pilih Lihat kode dari menu konteks, lihat tangkapan layar:
2. di Microsoft Visual Basic untuk Aplikasi jendela, silakan salin dan tempel kode di bawah ini ke dalam modul kosong:
Kode VBA: Mengaktifkan atau menonaktifkan dua tombol berdasarkan dua kolom:
Private Sub Worksheet_Change(ByVal Target As Range)
CommandButton1.Enabled = False
CommandButton2.Enabled = False
If Application.WorksheetFunction.CountA(Range("C:C")) > 0 Then
CommandButton2.Enabled = True
End If
If Application.WorksheetFunction.CountA(Range("A:A")) > 0 Then
CommandButton1.Enabled = True
End If
End Sub
Note: Pada kode di atas, Tombol Perintah1 dan Tombol Perintah2 adalah nama tombolnya, A: A dan C: C adalah dua kolom yang Anda gunakan untuk mengaktifkan atau menonaktifkan dua tombol, silakan ubah sesuai kebutuhan Anda.
3. Kemudian simpan dan tutup jendela kode, sekarang Anda akan mendapatkan hasil berikut sesuai kebutuhan:
(1.) Jika mengetik data di Kolom A, tombol 1 diaktifkan dan tombol 2 dinonaktifkan, lihat tangkapan layar:
(2.) Jika mengetik data di Kolom C, tombol 2 diaktifkan dan tombol 1 dinonaktifkan, lihat tangkapan layar:
(3.) Kolom A dan Kolom C memiliki data, dua tombol semuanya diaktifkan, lihat tangkapan layar:
(4.) Dua tombol semuanya dinonaktifkan jika tidak ada data di Kolom A dan Kolom C, lihat tangkapan layar:
Mengaktifkan atau menonaktifkan tombol berdasarkan dua nilai sel dengan kode VBA
Jika Anda ingin mengaktifkan atau menonaktifkan tombol perintah berdasarkan dua nilai sel, misalnya, ketika nilai di A1 lebih besar dari nilai di B1, tombolnya diaktifkan, jika tidak, tombolnya dinonaktifkan. Kode VBA berikut juga dapat membantu Anda.
1. Klik kanan lembar yang berisi tombol tersebut, lalu pilih Lihat kode dari menu konteks, di Microsoft Visual Basic untuk Aplikasi jendela, silakan salin dan tempel kode di bawah ini ke modul kosong, lihat tangkapan layar:
Kode VBA: Mengaktifkan atau menonaktifkan tombol berdasarkan dua nilai sel:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim TargetAdd As String
Dim xTemp As Double
On Error GoTo ExitSub
TargetAdd = Target.Address
CommandButton1.Enabled = False
If (TargetAdd = Range("A1").Address) Or (TargetAdd = Range("B1").Address) Then
If Range("A1") > Range("B1") Then
CommandButton1.Enabled = True
End If
End If
ExitSub:
End Sub
Note: Pada kode di atas, A1 dan B1 adalah nilai sel yang Anda gunakan, Tombol Perintah1 adalah nama tombolnya, ubah sesuai keinginan Anda.
2. Kemudian simpan dan tutup jendela kode, sekarang jika nilai sel di A1 lebih besar dari B1, tombol diaktifkan, jika tidak, jika nilai sel di A1 kurang dari B1, tombol dinonaktifkan, lihat tangkapan layar:
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!