Petua: Bahasa lain diterjemahkan Google. Anda boleh melawat English versi pautan ini.
Log masuk
x
or
x
x
Daftar Sekarang
x

or

Bagaimana untuk mengaktifkan atau mematikan butang berdasarkan nilai sel dalam Excel?

Artikel ini, saya akan membincangkan beberapa kaedah untuk mengaktifkan atau mematikan butang berdasarkan nilai sel dalam lembaran kerja Excel.

Dayakan atau lumpuhkan dua butang berdasarkan dua data lajur dengan kod VBA

Membolehkan atau melumpuhkan butang berdasarkan dua nilai sel dengan kod VBA


Dayakan atau lumpuhkan dua butang berdasarkan dua data lajur dengan kod VBA


Sebagai contoh, saya mempunyai dua butang arahan dalam lembaran kerja, jika Lajur A mempunyai data, butang1 diaktifkan, dan butang 2 disable; jika Kolum C mengandungi data, butang 2 diaktifkan, dan butang 1 disable. Untuk menyelesaikan tugas ini, kod VBA berikut boleh membantu anda.

1. Klik kanan helaian yang mengandungi butang, dan kemudian pilih Lihat Kod dari menu konteks, lihat tangkapan skrin:

2. Di dalam Microsoft Visual Basic untuk Aplikasi tetingkap, sila salin dan tampal kod di bawah ke dalam modul kosong:

Kod VBA: Dayakan atau lumpuhkan dua butang berdasarkan dua lajur:

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

Nota: Dalam kod di atas, CommandButton1 dan CommandButton2 adalah nama butang, A: A dan C: C adalah dua lajur yang anda gunakan untuk mendayakan atau melumpuhkan dua butang, sila tukar kepada keperluan anda.

3. Kemudian simpan dan tutup tetingkap kod, sekarang, anda akan mendapat hasil berikut yang anda perlukan:

(1.) Jika data jenis di Lajur A, butang 1 diaktifkan dan butang 2 dinyahdayakan, lihat tangkapan skrin:

(2.) Jika data jenis dalam Kolum C, butang 2 diaktifkan dan butang 1 dinyahdayakan, lihat tangkapan skrin:

(3.) Kedua-dua Lajur A dan Lajur C mempunyai data, dua butang semua didayakan, lihat tangkapan skrin:

(4.) Dua butang semua dilumpuhkan jika tiada data di Lajur A dan Lajur C, lihat tangkapan skrin:


Membolehkan atau melumpuhkan butang berdasarkan dua nilai sel dengan kod VBA

Jika anda ingin mendayakan atau melumpuhkan butang arahan berdasarkan dua nilai sel, seperti, apabila nilai dalam A1 lebih besar daripada nilai dalam B1, butang itu membolehkan, jika tidak, butang disable. Kod VBA berikut juga boleh memihak kepada anda.

1. Klik kanan helaian yang mengandungi butang, dan kemudian pilih Lihat Kod dari menu konteks, dalam Microsoft Visual Basic untuk Aplikasi tetingkap, sila salin dan tampal kod di bawah ke dalam modul kosong, lihat tangkapan skrin:

Kod VBA: Dayakan atau matikan butang 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

Nota: Dalam kod di atas, A1 dan B1 adalah nilai sel yang anda gunakan, CommanButton1 adalah nama butang, menukarnya kepada anda sendiri.

2. Kemudian simpan dan tutup tetingkap kod, sekarang, jika nilai sel dalam A1 lebih besar dari B1, butang diaktifkan, jika tidak, jika nilai sel dalam A1 kurang dari B1, butang dinyahdayakan, lihat tangkapan skrin:



Cadangan Alat Produktiviti untuk Excel

Kutools untuk Excel Membantu Anda Selalu Menyelesaikan Kerja di Hadapan Masa, dan Berdiri Daripada Orang

  • Lebih daripada ciri-ciri canggih 300 yang canggih, yang direka untuk senario kerja 1500, meningkatkan produktiviti oleh 70%, memberi anda lebih banyak masa untuk menjaga keluarga dan menikmati kehidupan.
  • Tidak perlu lagi menghafal formula dan kod VBA, berikan rehat dari otak anda sekarang.
  • Menjadi pakar Excel dalam minit 3, Operasi yang rumit dan berulang boleh dilakukan dalam beberapa saat,
  • Mengurangkan beribu-ribu operasi papan kekunci & tetikus setiap hari, mengucapkan selamat tinggal kepada penyakit pekerjaan sekarang.
  • 110,000 orang yang sangat berkesan dan pilihan syarikat 300 + yang terkenal di dunia.
  • Ciri-ciri penuh 60-hari adalah percubaan percuma. Jaminan wang balik 60 hari. Tahun 2 peningkatan dan sokongan percuma.

Membawa Browsing Tab dan Editing ke Microsoft Office, Jauh Lebih Berkuasa Daripada Tab Penyemak Imbas

  • Tab Pejabat direka untuk Aplikasi Pejabat Word, Excel, PowerPoint dan Lain-lain: Penerbit, Akses, Visio dan Projek.
  • Buka dan buat beberapa dokumen dalam tab baharu pada tetingkap yang sama, dan bukannya dalam tetingkap baru.
  • Meningkatkan produktiviti anda oleh 50%, dan mengurangkan beratus-ratus klik tetikus untuk anda setiap hari!
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Mike · 4 months ago
    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.