كيفية تمكين أو تعطيل الزر على أساس قيمة الخلية في إكسيل؟

في هذه المقالة ، سأتحدث عن بعض الطرق لتمكين أو تعطيل الزر استنادًا إلى قيمة الخلية في ورقة عمل Excel.

تمكين أو تعطيل زرين استنادًا إلى بيانات عمودين برمز VBA

قم بتمكين زر أو تعطيله استنادًا إلى قيمتين من الخلايا مع رمز VBA

تمكين أو تعطيل زرين استنادًا إلى بيانات عمودين برمز VBA

على سبيل المثال ، لدي زري أمر في ورقة العمل ، إذا كان العمود A يحتوي على بيانات ، فسيتم تمكين الزر 1 ، ويتم تعطيل الزر 2 ؛ إذا كان العمود C يحتوي على بيانات ، فسيتم تمكين الزر 2 ، ويتم تعطيل الزر 1. لحل هذه المهمة ، قد يساعدك رمز VBA التالي.

1. انقر بزر الماوس الأيمن فوق الورقة التي تحتوي على الأزرار ، ثم اختر عرض الرمز من قائمة السياق ، انظر لقطة الشاشة:

2. في ميكروسوفت فيسوال باسيك للتطبيقات نافذة ، يرجى نسخ ولصق الكود أدناه في الوحدة الفارغة:

رمز فبا: تمكين أو تعطيل زرين بناء على عمودين:

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

ملاحظات: في الكود أعلاه ، زر الأوامر1 زر الأوامر2 هي أسماء الأزرار، A: A ج: ج هما العمودان اللذان تستخدمهما لتمكين أو تعطيل زرين، يرجى تغييرهما حسب حاجتك.

3. ثم احفظ وأغلق نافذة الكود، والآن ستحصل على النتيجة التالية حسب حاجتك:

(1.) إذا قمت بكتابة البيانات في العمود A، فسيتم تمكين الزر 1 ويتم تعطيل الزر 2، انظر لقطة الشاشة:

(2.) إذا قمت بكتابة البيانات في العمود C، فسيتم تمكين الزر 2 ويتم تعطيل الزر 1، انظر لقطة الشاشة:

(3.) يحتوي كل من العمود A والعمود C على بيانات، وتم تمكين زرين، انظر لقطة الشاشة:

(4.) يتم تعطيل زرين في حالة عدم وجود بيانات في العمود A والعمود C، انظر لقطة الشاشة:

قم بتمكين زر أو تعطيله استنادًا إلى قيمتين من الخلايا مع رمز VBA

إذا كنت تريد تمكين زر أمر أو تعطيله استنادًا إلى قيمتين من الخلايا، على سبيل المثال، عندما تكون القيمة في A1 أكبر من القيمة في B1، فسيتم تمكين الزر، وإلا فسيتم تعطيل الزر. كود VBA التالي يمكن أن يقدم لك معروفًا أيضًا.

1. انقر بزر الماوس الأيمن فوق الورقة التي تحتوي على الزر، ثم اختر عرض الرمز من قائمة السياق ، في ميكروسوفت فيسوال باسيك للتطبيقات نافذة، يرجى نسخ ولصق الكود أدناه في الوحدة الفارغة، انظر لقطة الشاشة:

رمز VBA: تمكين أو تعطيل زر بناءً على قيمتين للخلية:

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

ملاحظات: في الكود أعلاه ، A1 B1 هي قيم الخلايا التي تستخدمها، زر كومان1 هو اسم الزر، قم بتغييره إلى اسمك الخاص.

2. ثم احفظ وأغلق نافذة التعليمات البرمجية، والآن، إذا كانت قيمة الخلية في A1 أكبر من B1، فسيتم تمكين الزر، وإلا، إذا كانت قيمة الخلية في A1 أقل من B1، فسيتم تعطيل الزر، انظر لقطة الشاشة: