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

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


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





كود العودة للفورم

السلام عليكم عندي في الملف المرفق به 4 شيتات و يوزرفورم للدخول للشيتات أريد كود عند الخروج من أي شيت نشط يقوم بالحفظ ..


موضوع مغلق


subject icon تمت الإجابة كود العودة للفورم
21-11-2022 12:34 مساء
ayoub2007
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 24-11-2017
رقم العضوية : 1867
المشاركات : 160
الجنس : ذكر
تاريخ الميلاد : 23-12-1970
يتابعهم : 3
يتابعونه : 1
قوة السمعة : 106
 offline 

السلام عليكم 



عندي في الملف المرفق به 4 شيتات و يوزرفورم للدخول للشيتات 



أريد كود عند الخروج من أي شيت نشط يقوم بالحفظ و العودة إلى اليوزرفورم 



و شكرا



 

 
 
  145.xlsm   تحميل xlsm مرات التحميل :(7)
الحجم :(19.676) KB



أفضل إجابة مقدمة من YasserKhalil وهي:
وعليكم السلام أخي الكريم
يمكنك إلغاء الأكواد في أحداث أوراق العمل وإضافة الكود التالي في حدث المصنف (بحيث يتم التعامل مع أي ورقة عمل داخل المصنف بشكل عام)
Option Explicit

Private Sub Workbook_Open()
    Application.Visible = True
    UserForm1.Show
End Sub

Private Sub Workbook_Close()
    Application.Visible = False
    Workbook.Saved = True
    UserForm1.Show
End Sub

Private Sub Workbook_SheetDeactivate(ByVal Sh As Object)
    ActiveWorkbook.Save
    On Error Resume Next
        Unload UserForm1
    On Error GoTo 0
    UserForm1.Show
End Sub
عرض الإجابة




25-11-2022 02:36 مساء
مشاهدة مشاركة منفردة [1]
خالد الشاعر
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 05-09-2017
رقم العضوية : 371
المشاركات : 182
الجنس : ذكر
تاريخ الميلاد : 3-7-1969
الدعوات : 1
يتابعهم : 6
يتابعونه : 2
قوة السمعة : 302
عدد الإجابات: 3
 offline 
look/images/icons/i1.gif كود العودة للفورم
Private Sub Worksheet_Activate()
ActiveWorkbook.Save
UserForm1.Show
End Sub


اضف هذا الكود فى كل صفحة

25-11-2022 08:25 مساء
مشاهدة مشاركة منفردة [2]
ayoub2007
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 24-11-2017
رقم العضوية : 1867
المشاركات : 160
الجنس : ذكر
تاريخ الميلاد : 23-12-1970
يتابعهم : 3
يتابعونه : 1
قوة السمعة : 106
 offline 
look/images/icons/i1.gif كود العودة للفورم
الف شكر أستاذ 
و لكن هل يصلح إدراج هذا الكود في موديول على أن يعمل مع كامل الشيتات ( الملف عندي به شيتات كثيرة)  لتسهيل المهمة

27-11-2022 01:18 مساء
مشاهدة مشاركة منفردة [3]
خالد الشاعر
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 05-09-2017
رقم العضوية : 371
المشاركات : 182
الجنس : ذكر
تاريخ الميلاد : 3-7-1969
الدعوات : 1
يتابعهم : 6
يتابعونه : 2
قوة السمعة : 302
عدد الإجابات: 3
 offline 
look/images/icons/i1.gif كود العودة للفورم
جرب الملف ده
 
 
  145.rar   تحميل rar مرات التحميل :(1)
الحجم :(17.321) KB


27-11-2022 05:25 مساء
مشاهدة مشاركة منفردة [4]
ayoub2007
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 24-11-2017
رقم العضوية : 1867
المشاركات : 160
الجنس : ذكر
تاريخ الميلاد : 23-12-1970
يتابعهم : 3
يتابعونه : 1
قوة السمعة : 106
 offline 
look/images/icons/i1.gif كود العودة للفورم
للأسف لا يعمل شكرا لك أستاذ سأكتفي بوضع الكود السابق في زر و نقله لباقي الصغحات 
 

27-11-2022 06:30 مساء
مشاهدة مشاركة منفردة [5]
YasserKhalil
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10455
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 24
يتابعهم : 1
يتابعونه : 536
قوة السمعة : 36632
عدد الإجابات: 256
 offline 
look/images/icons/i1.gif كود العودة للفورم
وعليكم السلام أخي الكريم
يمكنك إلغاء الأكواد في أحداث أوراق العمل وإضافة الكود التالي في حدث المصنف (بحيث يتم التعامل مع أي ورقة عمل داخل المصنف بشكل عام)
Option Explicit

Private Sub Workbook_Open()
    Application.Visible = True
    UserForm1.Show
End Sub

Private Sub Workbook_Close()
    Application.Visible = False
    Workbook.Saved = True
    UserForm1.Show
End Sub

Private Sub Workbook_SheetDeactivate(ByVal Sh As Object)
    ActiveWorkbook.Save
    On Error Resume Next
        Unload UserForm1
    On Error GoTo 0
    UserForm1.Show
End Sub



الكلمات الدلالية
العودة ، للفورم ،


 










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

الساعة الآن 05:16 مساء