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

[mazeno]

كود غاية فى الروعة ليس به أى خط بمجرد تنفيذه اشتغل على الفور شكرا جزيلا |أ/ أبو نصار

[اسلام سيد]

السلام عليكم استاذنا الفاضل (ابو نصار)الذى لم نسيئ به الظن لحظه واحده بل نسيئ بإنفسنا على تقصيرها فى حق العلماء الاجلاء بارك الله فيك ورفع قدرك

لعلنا الان عرفنا سبب المشكله فعلا.

Microsoft Visual Basic for Applications Extensibility 5.3

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

والى حضرتك تصوير الملف فأرجو من حضرتك أن توجهنى بارك الله فيك.

الكود الاول.rar

[الـعيدروس]

جرب هذا التعديل

انسخ الكود في في مودويل

ثم احفظ الملف وافتحه مره اخر

واذهب لقائمة References وتأكد من الجمله انها موجوده

ومحفز عليها اذا تفعلت جرب الكود

Sub Auto_open()

On Error Resume Next

ActiveWorkbook.VBProject.References.AddFromGuid "{0002E157-0000-0000-C000-000000000046}", 0, 0

End Sub

Public Sub Ali_AddB()

Dim S$, C, T, i, ii

Dim Sh As Shape

Dim Op As VBComponent

Dim Opj As VBComponent

T = 1

On Error Resume Next

For Each Sh In ActiveSheet.Shapes

  If Not Sh.Type = msoShapeRectangle Then

	    Sh.Delete

  End If

Next

If IsError(Op) = False Then Else GoTo 0

  Set Op = ActiveWorkbook.VBProject.VBComponents("A_Mod")

   ActiveWorkbook.VBProject.VBComponents.Remove Op

0:

   Set Opj = ActiveWorkbook.VBProject.VBComponents.Add(vbext_ct_StdModule)

Opj.Name = "A_Mod"

For i = 1 To Sheets.Count

   If Sheets(i).Name = ActiveSheet.Name Then GoTo 1

With Opj.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

[الـعيدروس]

اذا لم تضاف الاداة الى القائمة

جرب الكود التالي وإن شاء الله تجدها محفزه

والكود حيعمل ان شاء الله

Public Sub Ad_Refe()

On Error Resume Next

With ThisWorkbook.VBProject.References

  .AddFromFile "C:\Program Files (x86)\Common Files\Microsoft Shared\VBA\VBA6\VBE6.DLL"

   .AddFromFile "C:\Program Files (x86)\Common Files\Microsoft Shared\VBA\VBA6\VBE6EXT.OLB"

   .AddFromFile "C:\Program Files\Common Files\Microsoft Shared\VBA\VBA6\VBE6.DLL"

  .AddFromFile "C:\Program Files\Common Files\Microsoft Shared\VBA\VBA6\VBE6EXT.OLB"

End With

End Sub

[اسلام سيد]

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

لكن مازالت المشكله قائمه ولم تظهر الجمله وبالتالى لم تحفز

اظن أن المشكله هى مشكله اوفس عندى وليس فى الاكواد فلقد قمت بتحميل بعض ملفات لبرامج حسابات من موقع عالمنا الجليل استاذ( عبد الله بقشير) واظهرت لى نفس المشكله عند ضغطى على الزر واخرجت لى رساله عدم الفتح كما ذكرت سالفا.

فأطلب من حضرتك تدلين على اسم نسخه تقبل العمل بالاكواد لإقوم بتحميلها واستخدامها والتواصل مع حضرتك.

تم تعديل يناير 3, 2013 بواسطه eslamsayed

[اسلام سيد]

للرفع اريد عمل زر لشيت اكسيل وجزاكم الله خيرا

[اسلام سيد]

للرفع

[اسلام سيد]

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

اختار من file الاختيار options ثم trustcenter ثم trust center setting ثم Enabe all macros ثم trust access to the VBA

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

تم تعديل يناير 10, 2013 بواسطه eslamsayed

[Yasser Fathi Albanna]

أستاذنا الكبير ومعلمنا الفاضل العيدروس

الرجاء إرفاق شيت به الكود الصحيح لأنه عند تجربة الكود يظهر نفس الأخطاء السابقة

وشكرا لسعة صدرك

[حمادة عمر]

بعد اذن القدير / العيدروس

ولاثراء الموضوع اليكم رابط موضوع مشابه 

اظن انه يفي بنفس الغرض

 

كود اضافة ازرار باسماء الشيتات في الصفحة الرئيسية وزر للرئيسية في كل شيت