اخفاء ماكرو واظهاره بناء على محتوى خلية

[السيد المصري]

اريد المساعدة في اخفاء ماكرو واظهاره بناء على محتوى خلية معينة 

[السيد المصري]

ارجو المساعدة 

 

[OmarGad]

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

[السيد المصري]

ارجو المساعدة 

 

hide.xlsx

[السيد المصري]

رفعت الملف وبه شرح ما اريد ولم اتلقى اي رد

 

[نــــ حلمي ــوّار]

السلام عليكم ورحمة الله وبركاته
استاذ/ السيد المصري
محاولة بالمرفقات حيث تم عمل ارتباطات للأوراق بالخلايا نفسها واخفاءها 
أما اذا كان مرادك اخفاء الاشكال نفسها يمكنك الانتظار
 

hide1.xls

[السيد المصري]

شكرا اخي نــــ حلمي ــوّار طريقة جميلة 

وان كنت افضل معرفة طريقة اخفاء الاشكال 

سانتظر

تم تعديل يناير 27, 2019 بواسطه السيد المصري

[Ali Mohamed Ali]

يمكنك وضع هذا الكود فى حدث الصفحة

Sub worksheet_change(ByVal target As Range)
Set target = Range("A1")
If target.Value = "Delete" Then
 Call Macro1
End If
If target.Value = "Insert" Then
Call Macro2
End If
End Sub

او هذا

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
    If Target.Cells.Count > 1 Then Exit Sub
    If IsNumeric(Target) And Target.Address = "$A$1" Then
        Select Case Target.Value
        Case 10 To 50: Macro1
        Case Is > 50: Macro2
        End Select
    End If
End Sub

 

[السيد المصري]

شكرا اخي ali mohamed ali  

بارك الله فيك