İpucu: Digər dillər Google-tərcümə olunur. Sizi ziyarət edə bilərsiniz English bu linkin versiyası.
Daxil ol
x
or
x
x
Qeydiyyatdan
x

or

Excel-də cell dəyərinə əsaslanan düyməni aktivləşdirmək və ya aradan bırakmak üçün necə?

Bu məqalə, Excel iş səhifəsindəki cell dəyərinə əsaslanan düyməni aktivləşdirmək və ya aradan buraxmaq üçün bəzi üsullar haqqında danışacağam.

VBA kodu ilə iki sütun məlumatına əsaslanan iki düyməni aktivləşdirin və ya aradan buraxın

VBA kodu ilə iki hüceyrə dəyərinə əsaslanan bir düyməni aktivləşdirin və ya aradan buraxın


VBA kodu ilə iki sütun məlumatına əsaslanan iki düyməni aktivləşdirin və ya aradan buraxın


Məsələn, bir işdə iki əmr düyməsi var, əgər A sütununda məlumat varsa, düyməni 1 aktivləşdirir və 2 düyməsini söndürür; Sütun C-də data varsa, 2 düyməsini aktivləşdirmək və 1 düyməsini aradan buraxın. Bu vəzifəni həll etmək üçün aşağıdakı VBA kodu sizə kömək edə bilər.

1. Düymələri olan hesabatı sağ basın və sonra seçin Kodları baxın kontekst menyusundan bax: ekran görüntüsü:

2. İçində Proqramlar üçün Microsoft Visual Basic Pəncərədən, aşağıdakı kodu kosmosa daxil edin və boş modula yapışdırın:

VBA kodu: iki sütuna əsaslanan iki düyməni aktivləşdirin və ya aradan buraxın:

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

Qeyd: Yuxarıda göstərilən kodda, CommandButton1CommandButton2 düymələrin adları, A: AC: C iki düyməni aktivləşdirmək və ya aradan buraxmaq üçün istifadə etdiyiniz iki sütun, bunları ehtiyaclarınıza dəyişdirin.

3. Sonra kod pəncərəsini saxlayıb bağlayın, indi sizə lazım olan nəticəni əldə edəcəksiniz:

(1.) Sütun A tipli məlumatlar varsa, 1 düyməsini aktivləşdirin və 2 düyməsinə sıfırlanırsa, ekran görünüşünə baxın:

(2.) Sütun C-də tip məlumatlar, 2 düyməsini aktivləşdirir və 1 düyməsini aradan bırakırsa, ekran görüntüsünə baxın:

(3.) Hər iki Sütun A və S sütununda məlumatlar var, iki düymənin hamısı aktivdir, bax ekran görüntüsü:

(4.) Sütun A və S sütununda məlumat olmadıqda iki düymə əlil olmuşdur, ekran görüntüsünə baxın:


VBA kodu ilə iki hüceyrə dəyərinə əsaslanan bir düyməni aktivləşdirin və ya aradan buraxın

A1-də dəyər B1-dən daha yüksək olduğunda, iki ədəd hüceyrə dəyərinə əsaslanan bir komanda düyməsini aktivləşdirmək və ya aradan qaldırmaq istəyirsinizsə, düyməni aktivləşdirir, başqa, düyməni ləğv edir. Aşağıdakı VBA kodu da sizə bir xeyir verə bilər.

1. Düyməni olan hesabatı sağ basın və sonra seçin Kodları baxın kontekst menyusundan Proqramlar üçün Microsoft Visual Basic pəncərəni kopyalayıb boş kodu daxil edin, aşağıdakı kodu buraxın:

VBA kodu: iki hüceyrə dəyərinə əsaslanan bir düyməni aktivləşdirin və ya söndürün:

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

Qeyd: Yuxarıda göstərilən kodda, A1B1 istifadə etdiyiniz mobil dəyərlərdir, CommanButton1 düymənin adı, özünüzü dəyişdirin.

2. Sonra, A1-dən hüceyrə dəyəri B1-dən çox olduqda, kodun pəncərəsini saxlayıb yaxınlaşdırın, əgər A1-də hüceyrənin dəyəri B1-dən az olsa, düyməni sıfırsanız, ekran görünüşünə baxın:



Təklif olunan Məhsuldarlıq Vasitələri

Office Tab

qızıl star1 Chrome, Firefox və yeni Internet Explorer kimi Excel və digər Office proqramlarına lazımlı sekmeleri gətirin.

Excel üçün Kutools

qızıl star1 Amazing! 5 dəqiqədə məhsuldarlığınızı artırın. Heç bir xüsusi bacarıqa ehtiyac yoxdur, hər gün iki saat saxlaya bilərsiniz!

qızıl star1 300 Excel üçün yeni funksiyalar, Excel çox asan və güclü olun:

  • Veriyi ləğv etmədən Cell / Satır / Sütunları birləşdirin.
  • Bir neçə Çarşaf və İş Kitabını birləşdirin və birləşdirin.
  • Çaprazları müqayisə edin, birdən çox aralığa kopyalayın, mətni tarixə, vahidə və valyuta çevrilməsinə çevirin.
  • Rənglər, Paging Subtotals, Advanced Sort və Super Filter tərəfindən sayılan,
  • Daha çox seçin / Insert / Sil / Mətn / Biçim / Bağlantı / Yorum / Çalışma kitabları / Çalışma Qurğuları Tools ...

Excel üçün Kutools-un ekranı

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