كيفية جعل اسم زر الأمر ديناميكيًا في Excel؟
تتحدث هذه المقالة عن تغيير اسم زر الأمر ديناميكيًا مع تغيير قيمة خلية محددة. على سبيل المثال ، عند تغيير القيمة في الخلية A1 إلى "اختبار" ، سيتم تغيير اسم زر أمر معين إلى "اختبار" تلقائيًا.
اجعل اسم زر الأمر ديناميكيًا بقيمة الخلية بواسطة رمز VBA
اجعل اسم زر الأمر ديناميكيًا بقيمة الخلية بواسطة رمز VBA
يمكن أن تساعدك التعليمات البرمجية لـ VBA التالية في جعل اسم زر الأمر ديناميكيًا بقيمة خلية محددة في ورقة العمل. الرجاء القيام بما يلي.
1. انقر المطور > إدراج > زر الأمر (عنصر تحكم ActiveX) لإدراج زر أمر في ورقة العمل. انظر لقطة الشاشة:
2. بعد إدخال زر الأمر ، انقر بزر الماوس الأيمن فوق علامة تبويب الورقة وانقر عرض الرمز من قائمة النقر بزر الماوس الأيمن كما هو موضح أدناه:
3. في الافتتاح ميكروسوفت فيسوال باسيك للتطبيقات نافذة ، يرجى نسخ ولصق رمز فبا أدناه في النافذة.
كود فبا: جعل اسم زر الأمر ديناميكيًا بقيمة الخلية
Dim xStr As String
Private Sub Worksheet_Change(ByVal Target As Range)
Dim xShapeRg As ShapeRange
On Error Resume Next
If Not Application.Intersect(Target, Range("A1")) Is Nothing Then
Me.CommandButton1.Caption = Target.Text
Set xShapeRg = ActiveSheet.Shapes.Range(xStr)
If xShapeRg Is Nothing Then Set xShapeRg = ActiveSheet.Shapes.Range("CommandButton1")
Application.EnableEvents = False
xShapeRg.Select
Application.EnableEvents = True
Selection.Name = Target.Text
End If
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If (Not Intersect(Target, Range("A1")) Is Nothing) And Target.Text <> "" Then
xStr = Target.Text
End If
End Subملاحظة: في الكود، CommandButton1 هو اسم الزر الذي تريد جعل اسمه ديناميكيًا، وA1 هي الخلية التي سترجع القيمة إلى اسم الزر تلقائيًا.
4. اضغط على قديم + Q مفاتيح للخروج من ميكروسوفت فيسوال باسيك للتطبيقات نافذة.
5. قم بإيقاف تشغيل "وضع التصميم" بالنقر فوق المطور > وضع التصميم.
من الآن فصاعدًا، سيتم تغيير اسم زر الأمر ديناميكيًا بقيمة الخلية المحددة في ورقة العمل الخاصة بك.
كما هو موضح أدناه في لقطة الشاشة، عندما يتم تغيير قيمة الخلية A1، سيتم تغيير اسم زر الأمر إلى نفس القيمة تلقائيًا.
مقالات ذات صلة:
- كيفية استخدام زر الأمر لحفظ ورقة العمل النشطة كملف PDF في Excel؟
- كيفية إدراج صف جديد فارغ تلقائيًا بواسطة زر الأمر في إكسيل؟
أفضل أدوات إنتاجية المكتب
ارفع مهاراتك في برنامج Excel باستخدام Kutools for Excelوتجربة كفاءة لم يسبق لها مثيل. Kutools for Excel يقدم أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية وتوفير الوقت. انقر هنا للحصول على الميزة التي تحتاجها أكثر...
Office Tab يجلب الواجهة المبوبة إلى Office ، ويجعل عملك أسهل بكثير
- تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
- فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
- يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!
