اين يتم الاعلان عن المتغير العام في الاكسيل ؟

[ماجدجلال]

السلام عليكم ورحمة الله وبركاته ,,,

بعد يوم وليلة من البحث و القراءة عجزت عن فهم الموضوع وارجو منكم المساعدة ,, اين يتم الاعلان عن المتغير العام في الاكسيل ,

طبعا نستخدم للاعلان عنة العبارة  Public  لكي يتم تنفيذة هذا الاجراء علي مستوي المصنف و ليس في وحدة نمطية محددة 

حاولت وضعة في الصفحة ThisWorkbook و لم ينجح و ضعته في Module و لم ينجح 

ارجو التوضيح وشكرا لكم 

[أحمد يوسف]

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

نبهنا مرات عديدة انه لا يمكن العمل على التخمين فهذا يعتبر اهدار للوقت

عليك برفع الملف به الكود وشرح دقيق عن المطلوب

[ماجدجلال]

هذا ملف مرفق فية الشرح المطلوب , و اتمني ان يكون الشرح واضح . و اعتذر مرة اخري عن عدم ارفاق الملف ..

المصنف1.xlsm

[الـعيدروس]

السلام عليكم

بهذا الشكل

Public X
Sub Macro2()
    X = "Release"
End Sub

 

بالامكان ارجاع قيمة المتغير الى قيمة فارغة عند اغلاق المصنف

وعند النقر على الزر يحط قيمتة Release

 

وهكذا بحدث الصفحة

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If ActiveCell.Column = 4 And ActiveCell.Row > 5 Then
    If Not X = Empty Then
        MsgBox "الكود يعمل بطريقة صحيحة"
    End If
End If
End Sub

 

تم تعديل سبتمبر 24, 2019 بواسطه الـعيدروس

[ماجدجلال]

ماشاء الله تبارك الله 

وربي انك استاذ , الله يبارك فيك و يمتعك بالصحة و العافية 

و يزيدك من فضلة و علمة 

شكرا لك الف الف شكرا 

هذا هو المطلوب