بسم الله الرحمن الرحيم
اهلا بكم متابعى موقع الاوفيس
اهلا بكم فى درس جديد من دروس اكسل vba
درس جديد نتعرف
فية على مهارة جديد من مهارات excel macro
سنتعرف فى درس اليوم على كيفية تغيير اسم وخلفية
الكوماندبوتن فى اليوزرفورم
Command
Button Caption
اذا اردنا ان نقوم بتغيير اسم وخلفية زر معين فى
اليوزرفورم نقوم بهذا من خلال كود سهل وبسيط جدا سوف نقوم بالدخول على محرر
الاكواد ونفتح يوزرفورم جديد ومن ثم نقوم بادراج زر علية ونقوم بتسمية هذا الزر
باى اسم انت تريدة وفى الكود التالى سنقوم بتغيير اسم الكوماندبوتون او الزر الى SAVE ونغيير الخلفية الى احمر
ثم دبل كليك على الزر لنفتح نافذة الكود الخاصة بهذا
الزر وخصوصا حدث Private Sub
CommandButton1_MouseMove
ونكتب فية الكود التالى
Private Sub
CommandButton1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal
X As Single, ByVal Y As Single)
Me.CommandButton1.Caption =
"SAVE"
Me.CommandButton1.BackColor =
vbRed
End Sub
وفى هذا الكود نقوم بعمل تغيير للاسم وخلفية الزر
المستخدم
اذا اعجبك المقال لاتنسى مشاركتة على وسائل التواصل
الاجتماعى