وعليكم السلام أخي الكريم
قم بالدخول لمحرر الأكواد وأدرج كلاس موديول عن طريق عمل كليك يمين في نافذة المشروع ثم Insert ثم Class Module ثم قم بإعادة تسمية الكلاس موديول باسم clsCommandButtons
وأخيراً ضع الكود التالي في الكلاس موديول

Public WithEvents buttonGroup As MSForms.CommandButton

Private Sub buttonGroup_Click()
    ThisWorkbook.Worksheets(1).Range("B2").Value = buttonGroup.Caption
End Sub

وضع الكود التالي في حدث الفورم UserForm1

Dim buttons() As New clsCommandButtons

Private Sub UserForm_Initialize()
    Dim ctl As Control, buttonCount As Integer
    buttonCount = 0
    For Each ctl In UserForm1.Controls
        If TypeName(ctl) = "CommandButton" Then
            buttonCount = buttonCount + 1
            ReDim Preserve buttons(1 To buttonCount)
            Set buttons(buttonCount).buttonGroup = ctl
        End If
    Next ctl
End Sub

وفي موديول عادي ضع الكود التالي لإظهار الفورم

Sub ShowForm()
    UserForm1.Show False
End Sub

قم بتشغيل الكود المسمى ShowForm وجرب النقر على أزرار الأوامر ..

الف الف شكر استاذنا


[quote=Yass

أحسنت استاذ ياسر اجابة ممتازة بارك الله فيك ووسع الله فى رزقك
حبيبتى دائم
أين الضغط على </b> الإعــــــجـــــاب</b> لهذه الإجابة الممتازة ... وهذا اقل ما يقدم بكثير لصاحب الفضل عليك بعد ربنا فى حل مشكلتك وتفريج كربتك ؟!!!!!</b>


The admiration



Well, Mr. Yasser, an excellent answer, may God bless you and may God extend your livelihood My love is permanent Where is the pressure on admiration for this excellent answer ... and this is much less than what is offered to the one who is credited with you after our Lord for solving your problem and relieving your distress? !!!!!

بارك الله فيكم إخواني وأحبابي في الله ومشكور على مروركم العطر.