هل يمكن اضافة زر الماكرو الى TOOLBAR

[إبراهيم ابوليله]

الاخوه الافاضل

تحيه طبيه وبعد

لقد قمت بعمل ماكرو فى الاكسل

واريد اظهار الزر الخاص بهذا الماكرو فى التول بار

هل يمكن عمل ذلك

[الـعيدروس]

السلام عليكم

الاخ الفاضل إبراهيم ابوليله

اعتقد من اعدادت الاكسل ثم تخصيص

ثم من " اختيار الأوامر من "

تختار من القائمة وحدات الماكرو

تختار الماكرو المراد تثبيت اختصاره

ضمن الاطار الخاص بالاكسل

ثم اضافة

لعلي افدتك

[إبراهيم ابوليله]

الاخ عباد

وعليكم السلام ورحمه الله وبركاته

ولكنى اقصد اننى لو قمت مثلا انشاء ماكرو يقوم بعمل ترتيب لعمود معين

فهل يمكن ادراج زر التريب الخاص بهذا الماكرو ضمن التول بار

عن طريق الاكواد

[إبراهيم ابوليله]

للرفع

[إبراهيم ابوليله]

للرفع

[إبراهيم ابوليله]

للرفع

[الـعيدروس]

السلام عليكم

الاخ الفاضل إبراهيم ابوليله

تفضل

Option Explicit

Sub S_Tool()

'===================

' إنشاء Toolbar

'===================

Dim A As CommandBar, B As CommandBarControl

On Error Resume Next

CommandBars("A_Toolbar").Delete

Set A = CommandBars.Add(Name:="A_Toolbar", Position:=msoBarFloating, Temporary:=True)

A.Visible = True

Set B = A.Controls.Add(msoControlButton, 1695, , , True)

With B

'=======================================

.Caption = "Ali_T" 'تسمية

.TooltipText = "Run Ali_T" ' تعليق

.OnAction = "Ali_T" ' إسم الماكرو المراد تفعليه

'=======================================

End With

End Sub

Sub Ali_T()

[A1].Value = "منتدى أوفسينا"

MsgBox "منتدى أوفسينا"

End Sub

Sub D_Tool()

'===================

' حذف Toolbar

'===================

On Error Resume Next

CommandBars("A_Toolbar").Delete

End Sub

شاهد الزر في قائمة Add-Ins

Ali_Toolbar.rar

تم تعديل سبتمبر 5, 2012 بواسطه عباد

[إبراهيم ابوليله]

الاخ عباد

لم استطع فهم ما قمت بعمله

ارجو التوضيح اكثر

كما اننى لم استطع العثور على التول بار الذى قمت انت بانشاءه من خلال الكود

ارجو التوضيح على ملف اكسيل

بارك الله فيك

[الـعيدروس]

المرفق في المشاركه السابقه

[إبراهيم ابوليله]

الاخ الكريم

عباد

بارك الله فيك

وهذا ما اريده

[عبدالله المجرب]

بارك االله فيك اخي ابو نصار

لمزيد من الفائدة اليكم هذا الرابط

http://www.officena.net/ib/index.php?showtopic=30134&hl=