logo

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



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




موضوع مغلق


  • تمت الإجابة
15-01-2021 05:42 مساءً
معلومات الكاتب ▼
تاريخ الإنضمام : 19-07-2019
رقم العضوية : 13887
المشاركات : 93
رصيد العضو : 0
الجنس :
تاريخ الميلاد : 5-3-1984
قوة السمعة : 76
الاعجاب : 0
السلام عليكم
فى الملف المرفق فورم يوجد به عدة ازرار
عايز بمجرد الضغط على اى زر يتم نقل اسم الزر نفسة الى الخلية B2 وحتى عند تغيير اسم الزر (حماده ) مثلا يتم عمل الكود بنفس الاسم الجديد الذى تم تغييرة
ولكم جزيل الشكر
 
 
  كتابة اسم الزر فى خلية.xlsm   تحميل xlsm مرات التحميل :(9)
الحجم :(14.577) KB





look/images/icons/i1.gif نقل اسم الكوموند بوتون الى خلية فى ورقة عمل
  15-01-2021 06:45 مساءً   [1]
معلومات الكاتب ▼
تاريخ الإنضمام : 21-08-2017
رقم العضوية : 3
المشاركات : 10536
رصيد العضو : 5
الجنس :
تاريخ الميلاد : 1-10-1978
الدعوات : 24
قوة السمعة : 36819
الاعجاب : 210
وعليكم السلام أخي الكريم
قم بالدخول لمحرر الأكواد وأدرج كلاس موديول عن طريق عمل كليك يمين في نافذة المشروع ثم Insert ثم Class Module ثم قم بإعادة تسمية الكلاس موديول باسم clsCommandButtons
وأخيراً ضع الكود التالي في الكلاس موديول
CODE
Public WithEvents buttonGroup As MSForms.CommandButton

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



وضع الكود التالي في حدث الفورم UserForm1
CODE
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



وفي موديول عادي ضع الكود التالي لإظهار الفورم
CODE
Sub ShowForm()<br />
&nbsp; &nbsp; UserForm1.Show False<br />
End Sub<br />
<br />


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

أثارت هذه المشاركة إعجاب: حسين مامون، ali mohamed ali، أحمد يوسف، hassona229، abouelhassan، علي بطيخ سالم،



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


[quote=Yass

أثارت هذه المشاركة إعجاب: YasserKhalil،



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

أثارت هذه المشاركة إعجاب: ali mohamed ali، YasserKhalil، hassona229،



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

أثارت هذه المشاركة إعجاب: hassona229، مالك ماريه، abouelhassan،






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









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

الساعة الآن 02:47 AM