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

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


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





التنقل بين الصفحات عن طريق اليورزفورم

السلام عليكم ورحمة الله وبركاته كيف حالكم جميعا الرجاء المساعدة في الملف المرفق


موضوع مغلق


04-12-2020 05:28 مساء
Khairi
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 11-11-2017
رقم العضوية : 1466
المشاركات : 181
الجنس : ذكر
تاريخ الميلاد : 20-12-1973
يتابعهم : 7
يتابعونه : 6
قوة السمعة : 116
 offline 

السلام عليكم ورحمة الله وبركاته
كيف حالكم جميعا 
الرجاء المساعدة في الملف المرفق
 
 
  التنقل بين الصفحات.xlsb   تحميل xlsb مرات التحميل :(5)
الحجم :(905.256) KB



أفضل إجابة مقدمة من ali mohamed ali وهي:
وعليكم السلام-اجعل الأكواد هكذا
Private Sub Option2_Click()
If Option2.Visible = True Then
frm1.Hide
Sheets("Ý.1.Ë.Ú").Visible = True
Sheets("Ý.1.Ã").Visible = False
Sheets("Ý.1.Ë.Ã").Visible = False
End If
End Sub
Private Sub Option1_Click()
If Option1.Visible = True Then
frm1.Hide
Sheets("Ý.1.Ã").Visible = True
Sheets("Ý.1.Ë.Ú").Visible = False
Sheets("Ý.1.Ë.Ã").Visible = False
End If
End Sub
Private Sub Option3_Click()
If Option3.Visible = True Then
frm1.Hide
Sheets("Ý.1.Ë.Ã").Visible = True
Sheets("Ý.1.Ã").Visible = False
Sheets("Ý.1.Ë.Ú").Visible = False
End If
End Sub


لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب
 
Private Sub Option2_Click() If Option2.Visible = True Then frm1.Hide Sheets("Ý.1.Ë.Ú").Visible = True Sheets("Ý.1.Ã").Visible = False Sheets("Ý.1.Ë.Ã").Visible = False End If End Sub Private Sub Option1_Click() If Option1.Visible = True Then frm1.Hide Sheets("Ý.1.Ã").Visible = True Sheets("Ý.1.Ë.Ú").Visible = False Sheets("Ý.1.Ë.Ã").Visible = False End If End Sub Private Sub Option3_Click() If Option3.Visible = True Then frm1.Hide Sheets("Ý.1.Ë.Ã").Visible = True Sheets("Ý.1.Ã").Visible = False Sheets("Ý.1.Ë.Ú").Visible = False End If End Sub
 
عرض الإجابة




04-12-2020 11:01 مساء
مشاهدة مشاركة منفردة [1]
ali mohamed ali
مشرف على منتدى الاكسيل
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 20-11-2017
رقم العضوية : 1757
المشاركات : 1769
الدولة : مصر
الجنس : ذكر
الدعوات : 2
يتابعهم : 0
يتابعونه : 68
قوة السمعة : 9642
عدد الإجابات: 47
 offline 
look/images/icons/i1.gif التنقل بين الصفحات عن طريق اليورزفورم
وعليكم السلام-اجعل الأكواد هكذا
Private Sub Option2_Click()
If Option2.Visible = True Then
frm1.Hide
Sheets("Ý.1.Ë.Ú").Visible = True
Sheets("Ý.1.Ã").Visible = False
Sheets("Ý.1.Ë.Ã").Visible = False
End If
End Sub
Private Sub Option1_Click()
If Option1.Visible = True Then
frm1.Hide
Sheets("Ý.1.Ã").Visible = True
Sheets("Ý.1.Ë.Ú").Visible = False
Sheets("Ý.1.Ë.Ã").Visible = False
End If
End Sub
Private Sub Option3_Click()
If Option3.Visible = True Then
frm1.Hide
Sheets("Ý.1.Ë.Ã").Visible = True
Sheets("Ý.1.Ã").Visible = False
Sheets("Ý.1.Ë.Ú").Visible = False
End If
End Sub


لمشاهدة الروابط يلزمك التسجيل في أكاديمية الصقر للتدريب
 
Private Sub Option2_Click() If Option2.Visible = True Then frm1.Hide Sheets("Ý.1.Ë.Ú").Visible = True Sheets("Ý.1.Ã").Visible = False Sheets("Ý.1.Ë.Ã").Visible = False End If End Sub Private Sub Option1_Click() If Option1.Visible = True Then frm1.Hide Sheets("Ý.1.Ã").Visible = True Sheets("Ý.1.Ë.Ú").Visible = False Sheets("Ý.1.Ë.Ã").Visible = False End If End Sub Private Sub Option3_Click() If Option3.Visible = True Then frm1.Hide Sheets("Ý.1.Ë.Ã").Visible = True Sheets("Ý.1.Ã").Visible = False Sheets("Ý.1.Ë.Ú").Visible = False End If End Sub
 
 
 
  التنقل بين الصفحات.xlsb   تحميل xlsb مرات التحميل :(14)
الحجم :(793.554) KB

توقيع :ali mohamed ali
{ وَقُل رَّبِّ زِدْنِي عِلْمًا }
[ كن على يقين من اعمالنا نخطئ ومن اخطائنا نتعلم ولذلك لا شي مستحيل ]
ساهم دائماً فى حل أى مشكلة او أستفسار لديك مع إضافة رد بشكره
أو دعوة لمن قدم اليك المساعدة,فالجميع هنا يعمل على مساعدة
 الاخرين لوجه الله وان تحتسب له اجر عند الله

04-12-2020 11:09 مساء
مشاهدة مشاركة منفردة [2]
Khairi
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 11-11-2017
رقم العضوية : 1466
المشاركات : 181
الجنس : ذكر
تاريخ الميلاد : 20-12-1973
يتابعهم : 7
يتابعونه : 6
قوة السمعة : 116
 offline 
look/images/icons/i1.gif التنقل بين الصفحات عن طريق اليورزفورم
بارك الله في الجميع



الكلمات الدلالية
التنقل ، الصفحات ، طريق ، اليورزفورم ،


 










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

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