Loncat ke daftar isi utama

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

🤖 Kutools AI Ajudan: Merevolusi analisis data berdasarkan: Eksekusi Cerdas   |  Hasilkan Kode  |  Buat Rumus Khusus  |  Analisis Data dan Hasilkan Grafik  |  Aktifkan Fungsi Kutools...
Fitur Populer: Temukan, Sorot, atau Identifikasi Duplikat   |  Hapus Baris Kosong   |  Gabungkan Kolom atau Sel tanpa Kehilangan Data   |   Putaran tanpa Formula ...
Pencarian Super: VLookup Beberapa Kriteria    VLookup Nilai Berganda  |   VLookup di Beberapa Lembar   |   Pencarian Fuzzy ....
Daftar Drop-down Lanjutan: Buat Daftar Drop Down dengan Cepat   |  Daftar Drop Down yang Bergantung   |  Multi-pilih Drop Down List ....
Manajer Kolom: Tambahkan Jumlah Kolom Tertentu  |  Pindahkan Kolom  |  Alihkan Status Visibilitas Kolom Tersembunyi  |  Bandingkan Rentang & Kolom ...
Fitur Unggulan: Fokus Kisi   |  Tampilan Desain   |   Bar Formula Besar    Manajer Buku Kerja & Lembar   |  Perpustakaan Sumberdaya (Teks otomatis)   |  Pemetik tanggal   |  Gabungkan Lembar Kerja   |  Enkripsi/Dekripsi Sel    Kirim Email berdasarkan Daftar   |  Filter Super   |   Filter Khusus (filter tebal/miring/coret...) ...
15 Perangkat Teratas12 Teks Tools (Tambahkan Teks, Hapus Karakter, ...)   |   50 + Grafik jenis (Gantt Chart, ...)   |   40+ Praktis Rumus (Hitung usia berdasarkan ulang tahun, ...)   |   19 Insersi Tools (Masukkan Kode QR, Sisipkan Gambar dari Jalur, ...)   |   12 Konversi Tools (Angka ke Kata, Konversi Mata Uang, ...)   |   7 Gabungkan & Pisahkan Tools (Lanjutan Gabungkan Baris, Pisahkan Sel, ...)   |   ... dan banyak lagi

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...

Deskripsi Produk


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!
Comments (1)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
I receive a "Expected Function or variable" error when I incorporate this code - could you show the code you set up for the two buttons? May help me solve the error.
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
Rate this post:
0   Characters
Suggested Locations