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

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


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





مشكلة فى التنقل بين الصفحات والـ UserForm

صممت برنامج به العديد من الأوراق والـ UserForm ويتم التنقل بينهم عن طريق اكواد عادية على سبيل المثال [code]PGJyIC8+DQpQc ..


موضوع مغلق


14-08-2020 06:10 مساء
أباالحسن
عضو ماسي
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 18
المشاركات : 349
الجنس : ذكر
تاريخ الميلاد : 7-7-1979
الدعوات : 1
يتابعهم : 4
يتابعونه : 17
قوة السمعة : 832
 offline 

صممت برنامج به العديد من الأوراق والـ UserForm
ويتم التنقل بينهم عن طريق اكواد عادية على سبيل المثال

Private Sub CommandButton4_Click()
UserForm3.Hide
Application.Visible = True
Sheets("Payroll Sheets").Activate
End Sub

--------

Sub GO_Main()

    Application.Visible = False
    UserForm3.Show
End Sub


وأعمل نسخة احتياطية من الملف كل مرة
واشتغل احيانا على الملفين معا
فى نفس الوقت ، مع اختلاف الاسم

فى اوفيس 2010 لم تكن هناك مشكلات عند فتح الملفين معا ويتم التنقل بصورة صحيح
من الـ UserForm الى الورقة المطلوبة او العكس 
وعندما غيرت الى اوفيس 2016 لاحظت وجود مشكلة وهى
عند فتح الملف الاول مثلا والـ UserForm والانتقال الى ورقة به
فان الانتقال يتم الى الورقة فى الملف الثانى المفتوح والتى لها نفس الاسم كما بالملف الاول

والسوال هل يمكن اعطاء مسار كامل فى الاكواد السابقة
لكل ورقة او UserForm لحل المشكلة
ولعدم حدوث "لخبطة" للبرنامج 
أو هل يوجد حل اخر

******************
وشكرا لحضراتكم


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


Sub Macro1()
Workbooks("b.xlsb").Activate
Application.Run ActiveWorkbook.Name & "!S_1"
End Sub

في الملف التانى ضع هذا الكود


Sub s_1()
Search_Form.Show
End Sub
عرض الإجابة




14-08-2020 06:45 مساء
مشاهدة مشاركة منفردة [1]
هانى على
عضو ماسي
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 10-03-2018
رقم العضوية : 4794
المشاركات : 480
الجنس : ذكر
تاريخ الميلاد : 1-4-1980
يتابعهم : 5
يتابعونه : 4
قوة السمعة : 855
عدد الإجابات: 8
 offline 
look/images/icons/i1.gif مشكلة فى التنقل بين الصفحات والـ UserForm
من الأفضل دائما ولكى تنجح اى مشاركة لابد من رفع الملف نفسه مع شرح دقيق للمطلوب فلا يمكن العمل على التخمين !!!

14-08-2020 09:16 مساء
مشاهدة مشاركة منفردة [2]
أباالحسن
عضو ماسي
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 18
المشاركات : 349
الجنس : ذكر
تاريخ الميلاد : 7-7-1979
الدعوات : 1
يتابعهم : 4
يتابعونه : 17
قوة السمعة : 832
 offline 
look/images/icons/i1.gif مشكلة فى التنقل بين الصفحات والـ UserForm
الاخ / هاني علي
يصعب رفع الملف
لانه برنامج يعمل على اجهزة محددة 
لكن الفكرة واضحة جدا
يتم فتح ملف ونسخة اخرى من نفس لملف 
لكن باسم اخر
(الملفين بهما نفس الاوراق بنفس اسمها ونفس اسماء اليوزرفورم)
لذا فالبرنامج يحدث لبس عند التنقل بينهم 

17-08-2020 06:47 صباحا
مشاهدة مشاركة منفردة [3]
hassona229
مشرف عام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 20-11-2018
رقم العضوية : 9257
المشاركات : 808
الدولة : مصر
الجنس : ذكر
تاريخ الميلاد : 13-9-1980
يتابعهم : 0
يتابعونه : 11
قوة السمعة : 4330
عدد الإجابات: 113
 offline 
look/images/icons/i1.gif مشكلة فى التنقل بين الصفحات والـ UserForm

Private Sub CommandButton4_Click()
ThisWorkbook.UserForm3.Hide
Application.Visible = True
ThisWorkbook.Sheets("Payroll Sheets").Activate
End Sub
--------
Sub GO_Main()
Application.Visible = False
ThisWorkbook.UserForm3.Show
End Sub


17-08-2020 02:30 مساء
مشاهدة مشاركة منفردة [4]
أباالحسن
عضو ماسي
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 22-08-2017
رقم العضوية : 18
المشاركات : 349
الجنس : ذكر
تاريخ الميلاد : 7-7-1979
الدعوات : 1
يتابعهم : 4
يتابعونه : 17
قوة السمعة : 832
 offline 
look/images/icons/i1.gif مشكلة فى التنقل بين الصفحات والـ UserForm
الاخ /  hassona229
عند تطبيق  الكود الذى ذكرته 
تظهر رسالة خطأ
Mjc4NDg1MQ4747Capture-195
 
 


18-08-2020 04:08 مساء
مشاهدة مشاركة منفردة [5]
hassona229
مشرف عام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 20-11-2018
رقم العضوية : 9257
المشاركات : 808
الدولة : مصر
الجنس : ذكر
تاريخ الميلاد : 13-9-1980
يتابعهم : 0
يتابعونه : 11
قوة السمعة : 4330
عدد الإجابات: 113
 offline 
look/images/icons/i1.gif مشكلة فى التنقل بين الصفحات والـ UserForm
في الملف الاول ضع هذا الكود مع تغيير الاسماء كما تحب


Sub Macro1()
Workbooks("b.xlsb").Activate
Application.Run ActiveWorkbook.Name & "!S_1"
End Sub

في الملف التانى ضع هذا الكود


Sub s_1()
Search_Form.Show
End Sub



الكلمات الدلالية
مشكلة ، التنقل ، الصفحات ، والـ ، UserName ،


 










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

الساعة الآن 07:17 مساء