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

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


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





كود لزر التنقل بين الشيتات

في الشاشة الرئيسية عندي أزرار و أريد عند الضغط على أي  زر التنقل بين مجموعة من الشيتات و ذلك بادراج كود vba دا ..



08-07-2021 06:03 مساء
ayoub2007
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 24-11-2017
رقم العضوية : 1867
المشاركات : 157
الجنس : ذكر
تاريخ الميلاد : 23-12-1970
يتابعهم : 3
يتابعونه : 1
قوة السمعة : 106
 offline 

في الشاشة الرئيسية عندي أزرار و أريد عند الضغط على أي 
زر التنقل بين مجموعة من الشيتات و ذلك بادراج كود vba
داخل موديل كما هو مرفق ، لكن في هذه الحالة عند الضغط على 
زر قبل الامتحان  تظهر كل الشيتات علما أني أريد يكون ظهورها 
كالأتي :
 
  مرفق.png   تحميل png مرفق.png مرات التحميل :(3)
الحجم :(59.978) KB
 
  Classeur1.xlsm   تحميل xlsm مرات التحميل :(7)
الحجم :(24.328) KB


08-07-2021 08:00 مساء
مشاهدة مشاركة منفردة [1]
hassona229
مشرف عام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 20-11-2018
رقم العضوية : 9257
المشاركات : 798
الدولة : مصر
الجنس : ذكر
تاريخ الميلاد : 13-9-1980
يتابعهم : 0
يتابعونه : 10
قوة السمعة : 4030
عدد الإجابات: 110
 offline 
look/images/icons/i1.gif كود لزر التنقل بين الشيتات
جرب الكود التالى وكمل مثله

Sub a1()
Application.Goto ThisWorkbook.Worksheets("البيانات").Range("B1")
End Sub
Sub a2()
Application.Goto ThisWorkbook.Worksheets("القوائم").Range("B1")

End Sub
Sub a3()
Application.Goto ThisWorkbook.Worksheets("ملصقات").Range("B1")
Worksheets("ملصقات").Activate
End Sub

Sub SheetList_CP()

Application.CommandBars("cell").Reset
Dim Op_Menu As CommandBarControl

For Each Op_Menu In Application.CommandBars("cell").Controls
Op_Menu.Visible = False
Next Op_Menu

With Application.CommandBars("cell")
    With .Controls.Add(Temporary:=True)
        .Caption = " البيانات"
       .OnAction = "a1"
    End With
    With .Controls.Add(Temporary:=True)
        .Caption = " القوائم"
         .OnAction = "a2"
    End With
     With .Controls.Add(Temporary:=True)
        .Caption = " الملصقات"
         .OnAction = "a3"
    End With
    With .Controls.Add(Temporary:=True)
        .Caption = " "
    End With
End With
Application.CommandBars("cell").ShowPopup
Application.CommandBars("cell").Reset
End Sub



08-07-2021 10:53 مساء
مشاهدة مشاركة منفردة [2]
ayoub2007
عضو فعال
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 24-11-2017
رقم العضوية : 1867
المشاركات : 157
الجنس : ذكر
تاريخ الميلاد : 23-12-1970
يتابعهم : 3
يتابعونه : 1
قوة السمعة : 106
 offline 
look/images/icons/i1.gif كود لزر التنقل بين الشيتات
شكرا استاذ حسونة 
لقد عمل الكود و عند نسخه على الموديل الثاني تحصلت على النتبجة و لكن عند الضغط على اي منها لا تنقلني للشيت المراد 
ما الذي يجب تغييره و شكرا
 

09-07-2021 12:13 صباحا
مشاهدة مشاركة منفردة [3]
hassona229
مشرف عام
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 20-11-2018
رقم العضوية : 9257
المشاركات : 798
الدولة : مصر
الجنس : ذكر
تاريخ الميلاد : 13-9-1980
يتابعهم : 0
يتابعونه : 10
قوة السمعة : 4030
عدد الإجابات: 110
 offline 
look/images/icons/i1.gif كود لزر التنقل بين الشيتات
اقتبـاس ،،

عند نسخه علي الموديل التانى 

اي موديل تانى
اقتبـاس ،،

لكن عند الضغط على اي منها

الضغط علي ايه؟
كل زر هتعمل له زي الكود في المشاركه السابقه
بمعنى كود Sub SheetList_CP
هذا خاص باول زر ( قبل الامتحان )
والزر التانى هتعمل له كود اخر
 







الكلمات الدلالية
اللشيتات ، التنقل ،


 










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

الساعة الآن 11:59 مساء