أريد عمل صفحه افتتاحيه

[mbaha]

اريد عمل صفحه تبدأ مع فتح ملف الاكسيل

وان يكون بها اقونات بمسميات الشيتات الموجوده بالملف

وعند الضغط على احد الايقونات يتم النقل الى الشيت المطلوب

واتمنى مع الشرح

ولكم تحياتى

[احمدزمان]

ابحث عن HYPERLINK او ارتباط شعبي في شريط الأدوات اعلى الصفحة

واتبع تعليماته

و المثال في المرفق

HYPERLINK___________.rar

[Bluemind]

بعد ا>نك اخوي احمد

مثالك جميل ولك في حاله ان المستخدم اقفل اكسل على شيت 3

من المعروف ان اكسل رايح يفتح على اخر صفحه تم العمل عليها او اخر صفحه اقفل ملف الاكسل عليها

ولتجنب >لك واجبار اكسل على ال>هاب الى الصفحه الرئيسيه كما هو مطلوب لابد من اضافه الكود التالي في مودل

Sub Auto_open()
showsheet1
End Sub
Sub showsheet1()
Sheets("Sheet1").Select

End Sub

اما بالنسبه للتنقل عن طريق الهيبر لينك

هناك طريقه يتم عملها بالاشكال التلقائيه بعد عمل هيبر لينك لها مع اي صفحه

اخوي mbaha

في المرفق يوجد الكود و طريقه افضلها دائما في عمل الربط بين الشيتس

mainpage.zip

[ابو اسامة العينبوسي]

السلام عليكم

هناك طرق اخرى موجوده في المنتدى

Private Sub ComboBox1_Click()
Sheets(Me.ComboBox1.Text).Select
End Sub
--------------------------------------------
Private Sub UserForm_Initialize()
For i = 1 To ThisWorkbook.Worksheets.Count
With Me.ComboBox1
.AddItem Sheets(i).Name
End With
Next
Me.ComboBox1 = Sheets(1).Name
End Sub

mainpage2.rar