أكاديمية الصقر للتدريب

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


أهلا وسهلا بك زائرنا الكريم في أكاديمية الصقر للتدريب، لكي تتمكن من المشاركة ومشاهدة جميع أقسام المنتدى وكافة الميزات ، يجب عليك إنشاء حساب جديد بالتسجيل بالضغط هنا أو تسجيل الدخول اضغط هنا إذا كنت عضواً .





نقل اسم الكوموند بوتون الى خلية فى ورقة عمل

السلام عليكم فى الملف المرفق فورم يوجد به عدة ازرار عايز بمجرد الضغط على اى زر يتم نقل اسم الزر نفسة الى الخلية B2 وحت ..


موضوع مغلق


15-01-2021 05:42 مساء
حبيبتى دائما
عضو نشيط
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 19-07-2019
رقم العضوية : 13887
المشاركات : 93
الجنس : ذكر
تاريخ الميلاد : 5-3-1984
يتابعهم : 9
يتابعونه : 0
قوة السمعة : 76
 offline 

السلام عليكم
فى الملف المرفق فورم يوجد به عدة ازرار
عايز بمجرد الضغط على اى زر يتم نقل اسم الزر نفسة الى الخلية  B2  وحتى عند تغيير  اسم الزر (حماده ) مثلا يتم عمل الكود بنفس الاسم الجديد الذى تم تغييرة
ولكم جزيل الشكر
 
 
  كتابة اسم الزر فى خلية.xlsm   تحميل xlsm مرات التحميل :(11)
الحجم :(14.577) KB



أفضل إجابة مقدمة من YasserKhalil وهي:
وعليكم السلام أخي الكريم
قم بالدخول لمحرر الأكواد وأدرج كلاس موديول عن طريق عمل كليك يمين في نافذة المشروع ثم 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  وجرب النقر على أزرار الأوامر ..
عرض الإجابة




15-01-2021 06:45 مساء
مشاهدة مشاركة منفردة [1]
YasserKhalil
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10445
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 24
يتابعهم : 1
يتابعونه : 535
قوة السمعة : 36552
عدد الإجابات: 254
 offline 
look/images/icons/i1.gif نقل اسم الكوموند بوتون الى خلية فى ورقة عمل
وعليكم السلام أخي الكريم
قم بالدخول لمحرر الأكواد وأدرج كلاس موديول عن طريق عمل كليك يمين في نافذة المشروع ثم 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  وجرب النقر على أزرار الأوامر ..

16-01-2021 09:46 مساء
مشاهدة مشاركة منفردة [2]
حبيبتى دائما
عضو نشيط
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 19-07-2019
رقم العضوية : 13887
المشاركات : 93
الجنس : ذكر
تاريخ الميلاد : 5-3-1984
يتابعهم : 9
يتابعونه : 0
قوة السمعة : 76
 offline 
look/images/icons/i1.gif نقل اسم الكوموند بوتون الى خلية فى ورقة عمل
الف الف شكر استاذنا






16-01-2021 10:33 مساء
مشاهدة مشاركة منفردة [3]
أحمد يوسف
عضو ماسي
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 01-03-2018
رقم العضوية : 4669
المشاركات : 483
الجنس : ذكر
الدعوات : 2
يتابعهم : 4
يتابعونه : 11
قوة السمعة : 1129
عدد الإجابات: 6
 offline 
look/images/icons/i1.gif نقل اسم الكوموند بوتون الى خلية فى ورقة عمل
أحسنت استاذ ياسر اجابة ممتازة بارك الله فيك ووسع الله فى رزقك
حبيبتى دائم
أين الضغط على 
الإعــــــجـــــاب لهذه الإجابة الممتازة ... وهذا اقل ما يقدم بكثير لصاحب الفضل عليك بعد ربنا فى حل مشكلتك وتفريج كربتك ؟!!!!!12328
 
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? !!!!!
 


16-01-2021 10:42 مساء
مشاهدة مشاركة منفردة [4]
YasserKhalil
مراقب عام
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10445
الجنس : ذكر
تاريخ الميلاد : 1-10-1978
الدعوات : 24
يتابعهم : 1
يتابعونه : 535
قوة السمعة : 36552
عدد الإجابات: 254
 offline 
look/images/icons/i1.gif نقل اسم الكوموند بوتون الى خلية فى ورقة عمل
بارك الله فيكم إخواني وأحبابي في الله ومشكور على مروركم العطر.



الكلمات الدلالية
الكوموند ، بوتون ، خلية ، ورقة ،


 










اخلاء مسئولية: يخلى منتدى أكاديمية الصقر للتدريب مسئوليته عن اى مواضيع او مشاركات تندرج داخل الموقع ويحثكم على التواصل معنا ان كانت هناك اى إنتهاكات تتضمن اى انتهاك لحقوق الملكية الفكرية او الادبية لاى جهة - بالتواصل معنا من خلال نموذج مراسلة الإدارة .وسيتم اتخاذ الاجراءات اللازمة.
سياسة النشر: التعليقات المنشورة لا تعبر عن رأي منتدى أكاديمية الصقر للتدريب ولا نتحمل أي مسؤولية قانونية حيال ذلك ويتحمل كاتبها مسؤولية النشر.

الساعة الآن 08:32 صباحا