عمل زر لفتح شيت اكسيل

[اسلام سيد]

السلام عليكم ورحمه الله وبركاته هذا ملخص لسؤال كنت قد طرحته من قبل عن عمل زر لفتح شيت اكسيل وبعد أن قام الاخوه الكرم بالرد على، مثل الاستاذ الفاضل عباد (ابو نصار)

وجدت أن من الافضل أن اقوم بتلخيص النتائج بالتفصيل خطوة بخطوة كى يستفيد منه الجميع ، والله اسأل أن يجعله فى ميزان حسناتى وحسنات كل من يحدث به من هو مهتم بهذا العلم

وإليكم العرض

اولا: لابد من تفعيل الماكرو

افتح الشيت الذى تريد عمل له زر ثم اختر من file الاختيار options ثم اختار trust center ثم اختار trust center settings ثم اختار Macro settings ثم اختار Enable all Macro ثم اختار من اسفلها trust access to the VBA project ثم اضغط على ok ثم ok

ثانيا : قم بإنشاء شيت جديد فى الملف المراد عمل زر له

ثالثا: اضغط Alt +F11 ثم اختار من insert الاختيارModule

رابعا: قم بلصق هذا الكود فى موديول

Public Sub Ali_AddB()
Dim S$, C, T, i, ii
T = 1
On Error Resume Next
For ii = 1 To ActiveSheet.Shapes.Count
If ActiveSheet.Shapes.Count > 0 Then
ActiveSheet.Shapes(ii).Delete
End If
Next
For i = 1 To Sheets.Count
If Sheets(i).Name = ActiveSheet.Name Then GoTo 1
With ActiveWorkbook.VBProject.VBComponents("Module1").CodeModule
C = .CountOfLines + 1
.InsertLines C, _
"Sub my_" & i & "()" & Chr(13) & _
" Sheets(" & i & ")" & ".Select" & Chr(13) & _
"End Sub"
End With
ActiveSheet.Buttons.Add(Cells(1, 1).Left, T, 89.25, 23.25).Select
S = Selection.Name
Selection.Caption = Sheets(i).Name
Selection.OnAction = "my_" & i
T = T + 24
1 Next
End Sub

خامسا: ارجع الى الشيت الجديد الذى قمت بإنشائه واضغط على Alt+F8

ستظهر لك نافذة الماكرو اختار Ali- Add B ثم اختار تشغيل (Run)

الان سوف يظهر لك زراير، لكل شيت زر على حدى ويمكنك نقله الى اى مكان ،عن طريق اضغط عليه كليك يمين واسحبه الى اى مكان واختار ماتريد اما تحريكه او نسخه

سادسا: وهى اهم خطوة وهى حفظ الملف حيث لا يقوم بالعمل لوحفظته على نفس work Book

اضغط حفظ save ثم اضغط لا No ثم اختار من save as type الاختيار الثانى وهو excel Macro-Enabled workbook

ثم اضغط حفظ ثم موافقه ok

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

وختاما تقبلو تحياتى اخوكم إسلام الشيمي