طلب كود لاخفاء زر بدلالة قيمة في خلية

[زياد عبد الجليل]

السلام على جميع الاساتذة الافاضل:

اما بعد

اريد كود لاخفاء زر بدلالة قيمة في خلية حيث اذا كانت قيمة الخلية =0 يختفي الزر اما اذا كانت تساوي قيمة اكبر من الصفر اي من 1 الى ما لا نهاية يضهر الزر مجددا

ولكم مني جزيل الشكر

اخفاء زر بدلالة قيمة في خلية.rar

[ياسر خليل أبو البراء]

وعليكم السلام

جرب الكود التالي

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$C$13" Then
        If Target.Value = 0 Then
            ActiveSheet.Buttons("Button 1").Visible = False
        ElseIf Target.Value > 0 And IsNumeric(Target) Then
            ActiveSheet.Buttons("Button 1").Visible = True
        Else
            MsgBox "Enter Numeric Value", vbExclamation
        End If
    End If
End Sub

 

[أبوعيد]

وعليكم السلام

أنت تريد عمل كود في الزر

عند الضغط على الزر يعمل الكود

ولكن عندما تكون الخلية تساوي صفر لا تريد الكود أن يعمل ؟ صح ؟

 

تم تعديل يوليو 2, 2017 بواسطه أبوعيد

[زياد عبد الجليل]

شكرا استاذ ياسر و استاذ ابوعبد على مروركما الطيب

لقد اجاب الاستاذ ياسر على المطلوب بدقة بارك الله فيكما و شكرا لكما

[ليلى الهلالي]

13 hours ago, ياسر خليل أبو البراء said:

Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "$C$13" Then If Target.Value = 0 Then ActiveSheet.Buttons("Button 1").Visible = False ElseIf Target.Value > 0 And IsNumeric(Target) Then ActiveSheet.Buttons("Button 1").Visible = True Else MsgBox "Enter Numeric Value", vbExclamation End If End If End Sub

السلام عليكم

العفو منكم أين يتم وضع الكود حتى يتم تنفيذ الأمر؟

هل في موديل أم ماكروا أم في حدث الورقة؟

وشكراً

[ياسر خليل أبو البراء]

وعليكم السلام

يوضع الكود في حدث ورقة العمل .. وينفذ بمجرد إحداث تغيير في الخلية المعنية C13

 

[ليلى الهلالي]

شكراً أستاذ ياسر لإجابتك على سؤالي.

جُزيت خيراً ووفقك لما يُرضيه.

[ياسر خليل أبو البراء]

وجزيت خيراً أخي العزيز ومشكور على دعائك الطيب ، ولك بمثله إن شاء الله

[زياد عبد الجليل]

السلام على جميع الاساتذة الافاضل

لقد قام الاستاذ الفاضل بالاجابة عن سؤالي و كان الكود رائع و يعمل بشكل جيد لك اريد اجراء تعديل على الملف بحيث لا اكتب القيمة في الخلية و انما يتم تصفحها من خلال spintbuuton وفق الملف المرفق ولكم مني جزيل الشكر

اخفاء زر بدلالة قيمة في خلية.rar

[ياسر خليل أبو البراء]

وعليكم السلام

استخدم الكود التالي واربطه بزر الـ Spinner عن طريق كليك يمين ثم Assign Macro واختر اسم الماكرو

Sub Test()
    If Range("C13").Value = 0 Then
        ActiveSheet.Buttons("Button 1").Visible = False
    ElseIf Range("C13").Value > 0 And IsNumeric(Range("C13").Value) Then
        ActiveSheet.Buttons("Button 1").Visible = True
    Else
        MsgBox "Enter Numeric Value", vbExclamation
    End If
End Sub

 

[زياد عبد الجليل]

1 ساعه مضت, ياسر خليل أبو البراء said:

وعليكم السلام

استخدم الكود التالي واربطه بزر الـ Spinner عن طريق كليك يمين ثم Assign Macro واختر اسم الماكرو

Sub Test()
    If Range("C13").Value = 0 Then
        ActiveSheet.Buttons("Button 1").Visible = False
    ElseIf Range("C13").Value > 0 And IsNumeric(Range("C13").Value) Then
        ActiveSheet.Buttons("Button 1").Visible = True
    Else
        MsgBox "Enter Numeric Value", vbExclamation
    End If
End Sub

 

شكرا استاذ ياسر الكود يعمل بشكل جيد بارك الله فيك ....هل يمكن اضافة بسيطة حيث Spinner  يتوقف عند اخر رقم مثلا اذا وصلنا للرقم 7 و لا يوجد اي قيم في الصف الذي يليه يتوقف العد و شكرا

 

تم تعديل يوليو 3, 2017 بواسطه زياد عبد الجليل
الكود جيد

[ياسر خليل أبو البراء]

لم أفهم تلك النقطة في الحقيقة ..هلا وضحت لنا بمزيد من التفاصيل مع وضع صورة توضيحية لما تقول

هل تقصد ذلك ؟؟

Sub Test()
    If Feuil1.Range("D19").Value > Feuil2.Cells(Rows.Count, 1).End(xlUp).Row Then Feuil1.Range("D19").Value = "": Exit Sub
    
    If Feuil1.Range("C13").Value = 0 Then
        Feuil1.Buttons("Button 1").Visible = False
    ElseIf Feuil1.Range("C13").Value > 0 And IsNumeric(Feuil1.Range("C13").Value) Then
        Feuil1.Buttons("Button 1").Visible = True
    Else
        MsgBox "Enter Numeric Value", vbExclamation
    End If
End Sub

 

[زياد عبد الجليل]

12 ساعات مضت, ياسر خليل أبو البراء said:

لم أفهم تلك النقطة في الحقيقة ..هلا وضحت لنا بمزيد من التفاصيل مع وضع صورة توضيحية لما تقول

هل تقصد ذلك ؟؟

Sub Test()
    If Feuil1.Range("D19").Value > Feuil2.Cells(Rows.Count, 1).End(xlUp).Row Then Feuil1.Range("D19").Value = "": Exit Sub
    
    If Feuil1.Range("C13").Value = 0 Then
        Feuil1.Buttons("Button 1").Visible = False
    ElseIf Feuil1.Range("C13").Value > 0 And IsNumeric(Feuil1.Range("C13").Value) Then
        Feuil1.Buttons("Button 1").Visible = True
    Else
        MsgBox "Enter Numeric Value", vbExclamation
    End If
End Sub

 

نعم استاذ خليل شكرا اولا على مرورك الطيب نعم هذا هو المطلوب بالضبط و لكن اردت فقط ادراج علبة رسالة في حال الوصول الى القيمة الاخيرة تشعرنا باننا في اخر صف به قيمة ولك مني جزيل الشكر

 

 

[ياسر خليل أبو البراء]

عدل السطر الأول ليكون بهذا الشكل

If Feuil1.Range("D19").Value > Feuil2.Cells(Rows.Count, 1).End(xlUp).Row Then Feuil1.Range("D19").Value = "": MsgBox "Last Value", vbExclamation: Exit Sub

 

[زياد عبد الجليل]

بارك الله فيك استاذ ياسر

[ياسر خليل أبو البراء]

بارك الله فيك أخي الكريم زياد والحمد لله أن تم المطلوب على خير