أكاديمية الصقر للتدريب

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


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





تكوين جملة شرطية في يوزر فورم من ملف اكسيل اخر و اظهار يوزر فورم من ملف اكسيل اخر

السلام عليكم ورحمة الله وبركاتة يوجد ملفين اكسيل 1 و 2 ملف 2 يوجد بها يوزر فورم و محتاج كتابة كود جملة شرطية في ملف ..


موضوع مغلق


26-02-2021 07:37 مساء
fathy
عضو نشيط
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 17-03-2020
رقم العضوية : 18571
المشاركات : 89
الجنس : ذكر
تاريخ الميلاد : 1-9-1995
يتابعهم : 3
يتابعونه : 1
قوة السمعة : 142
 offline 

السلام عليكم ورحمة الله وبركاتة 
يوجد ملفين اكسيل 1 و 2 
ملف 2 يوجد بها يوزر فورم  و محتاج كتابة كود جملة شرطية  في ملف 1 عند اول ما يفتح الملف ( لو اليوزر فورم المحدد في ملف 2 مش ظاهر يعطي رسالة تنبية برجاء اظهر الفورم مثلا ) 
ومحتاج زر في ملف 1 يقوم بأظهار يوزر فورم من ملف اكسيل اخر ( ملف 2 )
و اليكم مرفقات 
ولكم مني جزيل الشكر و قبول وافر الاحترام 
 
 
  مرفقات 1.rar   تحميل rar مرات التحميل :(5)
الحجم :(84.749) KB



أفضل إجابة مقدمة من YasserKhalil وهي:
وعليكم السلام ورحمة الله وبركاته

لا يوجد حل بشكل مباشر للتعامل مع الفورم في ملف آخر ومعرفة ما إذا كان الفورم مفتوح أم لا .. لكن يمكن عمل التالي كوسيلة للوصول للهدف

** في الملف المسمى 2 والذي يحوي الفورم ستقوم بوضع الأكواد التالية والتي ستكون مرتبطة بظهور الفورم ، حيث مع ظهور وفتح الفورم يتم وضع أي قيمة في أي خلية في أي ورقة عمل تحددها وبالتالي ستتمكن من معرفة أن الفورم مفتوح أم لا بناءً على هذه الخلية (لاحظ الأكواد وغير بما يتناسب مع ملفاتك)
Private Sub UserForm_Initialize()
    ThisWorkbook.Worksheets("Sheet2").Range("K1").Value = "UserForm Loaded"
End Sub

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
    ThisWorkbook.Worksheets("Sheet2").Range("K1").Value = Empty
End Sub


** في الملف المسمى 2 أيضاً ستقوم بوضع الكود التالي في موديول 1 وهو لفتح الفورم
Sub OpenUserForm()
    UserForm1.Show
End Sub


** في الملف المسمى 1 ستقوم بوضع الأكواد التالية في أي موديول
Sub Check_UserForm_In_Another_WOrkbook()
    Dim wb As Workbook
    Set wb = Workbooks("2.xlsm")
    If wb.Worksheets("Sheet2").Range("K1").Value <> Empty Then
        MsgBox "UserForm In The Workbook Named '2.xlsm' Is Open", 64
    End If
End Sub

Sub Open_UserForm_In_Another_Workbook()
    Application.Run "'2.xlsm'!OpenUserForm"
End Sub


الكود الأول يقوم بمعرفة ما إذا كان الفورم في ملف 2 مفتوح أم لا (كما سبق وشرحت بناءً على قيمة الخلية)
والكود الثاني يقوم بفتح الفورم عن طريق Application.Run والذي ينفذ كود فتح الفورم (فيتم فتح الفورم من الملف رقم 1)

** ملحوظة: قم بتغيير خصائص الفورم في للخاصية ShowModal واجعل قيمتها False لتتمكن من التنقل بين أوراق العمل والملفات المفتوحة عندما يكون الفورم مفتوح.
عرض الإجابة




27-02-2021 07:41 صباحا
مشاهدة مشاركة منفردة [1]
YasserKhalil
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10445
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 24
يتابعهم : 1
يتابعونه : 535
قوة السمعة : 36552
عدد الإجابات: 254
 offline 
look/images/icons/i1.gif تكوين جملة شرطية في يوزر فورم من ملف اكسيل اخر و اظهار يوزر فورم من ملف اكسيل اخر
وعليكم السلام ورحمة الله وبركاته

لا يوجد حل بشكل مباشر للتعامل مع الفورم في ملف آخر ومعرفة ما إذا كان الفورم مفتوح أم لا .. لكن يمكن عمل التالي كوسيلة للوصول للهدف

** في الملف المسمى 2 والذي يحوي الفورم ستقوم بوضع الأكواد التالية والتي ستكون مرتبطة بظهور الفورم ، حيث مع ظهور وفتح الفورم يتم وضع أي قيمة في أي خلية في أي ورقة عمل تحددها وبالتالي ستتمكن من معرفة أن الفورم مفتوح أم لا بناءً على هذه الخلية (لاحظ الأكواد وغير بما يتناسب مع ملفاتك)
Private Sub UserForm_Initialize()
    ThisWorkbook.Worksheets("Sheet2").Range("K1").Value = "UserForm Loaded"
End Sub

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
    ThisWorkbook.Worksheets("Sheet2").Range("K1").Value = Empty
End Sub


** في الملف المسمى 2 أيضاً ستقوم بوضع الكود التالي في موديول 1 وهو لفتح الفورم
Sub OpenUserForm()
    UserForm1.Show
End Sub


** في الملف المسمى 1 ستقوم بوضع الأكواد التالية في أي موديول
Sub Check_UserForm_In_Another_WOrkbook()
    Dim wb As Workbook
    Set wb = Workbooks("2.xlsm")
    If wb.Worksheets("Sheet2").Range("K1").Value <> Empty Then
        MsgBox "UserForm In The Workbook Named '2.xlsm' Is Open", 64
    End If
End Sub

Sub Open_UserForm_In_Another_Workbook()
    Application.Run "'2.xlsm'!OpenUserForm"
End Sub


الكود الأول يقوم بمعرفة ما إذا كان الفورم في ملف 2 مفتوح أم لا (كما سبق وشرحت بناءً على قيمة الخلية)
والكود الثاني يقوم بفتح الفورم عن طريق Application.Run والذي ينفذ كود فتح الفورم (فيتم فتح الفورم من الملف رقم 1)

** ملحوظة: قم بتغيير خصائص الفورم في للخاصية ShowModal واجعل قيمتها False لتتمكن من التنقل بين أوراق العمل والملفات المفتوحة عندما يكون الفورم مفتوح.

27-02-2021 01:26 مساء
مشاهدة مشاركة منفردة [2]
fathy
عضو نشيط
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 17-03-2020
رقم العضوية : 18571
المشاركات : 89
الجنس : ذكر
تاريخ الميلاد : 1-9-1995
يتابعهم : 3
يتابعونه : 1
قوة السمعة : 142
 offline 
look/images/icons/i1.gif تكوين جملة شرطية في يوزر فورم من ملف اكسيل اخر و اظهار يوزر فورم من ملف اكسيل اخر
بجد انا اشكرك جدا
ماشاء الله عليك تسلم والله 
الطريقة جميلة جدا و كويسة و شغالة 100%
وفكرة جميلة جداا 
انت معلمنا و استاذنا والله 
يارب يكون في ميزان حسناتك يارب 

 

27-02-2021 03:24 مساء
مشاهدة مشاركة منفردة [3]
YasserKhalil
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10445
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 24
يتابعهم : 1
يتابعونه : 535
قوة السمعة : 36552
عدد الإجابات: 254
 offline 
look/images/icons/i1.gif تكوين جملة شرطية في يوزر فورم من ملف اكسيل اخر و اظهار يوزر فورم من ملف اكسيل اخر
تسلم أخي العزيز أحمد فتحي والحمد لله أن تم المطلوب على خير
تقبل تحياتي



الكلمات الدلالية
تكوين ، جملة ، شرطية ، يوزر ، فورم ، اكسيل ، اظهار ، يوزر ، فورم ، اكسيل ،


 










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

الساعة الآن 09:11 صباحا