اذهب الي المحتوي
بحث مخصص من جوجل فى أوفيسنا
Custom Search
السيد المصري

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

Recommended Posts

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

شارك هذه المشاركه


رابط المشاركه
شارك

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

hide1.xls

شارك هذه المشاركه


رابط المشاركه
شارك

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

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

 

  • Like 2

شارك هذه المشاركه


رابط المشاركه
شارك

انشئ حساب جديد او قم بتسجيل دخولك لتتمكن من اضافه تعليق جديد

يجب ان تكون عضوا لدينا لتتمكن من التعليق

انشئ حساب جديد

سجل حسابك الجديد لدينا في الموقع بمنتهي السهوله .

سجل حساب جديد

تسجيل دخول

هل تمتلك حساب بالفعل ؟ سجل دخولك من هنا.

سجل دخولك الان

  • المتواجدين الان   0 اعضاء متواجدين الان

    لايوجد اعضاء مسجلون يتصفحون هذه الصفحه

×