كيف يمكن جعل اسم زر الأمر ديناميكيًا في Excel؟
يتناول هذا المقال كيفية جعل اسم زر الأمر يتغيّر ديناميكيًا استجابةً لتغيّر قيمة خلية معيّنة. فعلى سبيل المثال، عندما تتغيّر القيمة في الخلية A1 إلى «test»، سيتغيّر اسم زر الأمر المرتبط بها تلقائيًا ليصبح «test».
جعل اسم زر الأمر ديناميكيًا مع قيمة الخلية باستخدام كود VBA
جعل اسم زر الأمر ديناميكيًا مع قيمة الخلية باستخدام كود VBA
يمكنك استخدام كود VBA التالي لجعل اسم زر الأمر يتغيّر ديناميكيًا وفقًا لقيمة خلية معيّنة في ورقة العمل. يُرجى اتباع الخطوات التالية:
1. انقر فوقالمطوّر > إدراج > زر الأمر (عنصر تحكم ActiveX)لإدراج زر أمر في ورقة العمل. انظر لقطة الشاشة:
2. بعد إدراج زر الأمر، انقر بزر الماوس الأيمن على لسان التبويب الخاص بالورقة، ثم اخترعرض الكودمن قائمة النقر بزر الماوس الأيمن، كما هو موضح في لقطة الشاشة أدناه:
3. في نافذةMicrosoft Visual Basic for Applications المفتوحة، يُرجى نسخ ولصق كود VBA التالي في النافذة.
كود VBA: جعل اسم زر الأمر ديناميكيًا مع قيمة الخلية
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. اضغط مفاتيحAlt+Q للخروج من نافذةMicrosoft Visual Basic for Applications.
5. أوقف وضع التصميم بالنقر فوقالمطوّر > وضع التصميم.
من الآن فصاعدًا، سيتغيّر اسم زر الأمر ديناميكيًا ليتوافق مع قيمة الخلية المحددة في ورقة العمل الخاصة بك.
كما هو موضح في لقطة الشاشة أدناه، عندما تتغيّر قيمة الخلية A1، سيتغيّر اسم زر الأمر تلقائيًا إلى نفس القيمة.
افتح سحر إكسل مع KUTOOLS AI
- التنفيذ الذكي: نفِّذ عمليات الخلايا، وحلِّل البيانات، وأنشئ المخططات البيانية — كل ذلك بأوامر بسيطة!
- الصيغ المخصصة: أنشئ صيغًا مخصصة لتبسيط سير عملك.
- برمجة VBA: اكتب وأَنفِذ أكواد VBA بسلاسة تامة.
- تفسير الصيغ: افهم الصيغ المعقدة بسهولة!
- ترجمة النصوص: اكسر الحواجز اللغوية في جداولك الإلكترونية!
مقالات ذات صلة:
- كيفية استخدام زر الأمر لحفظ ورقة العمل النشطة كـ ملفات PDF في Excel؟
- كيفية إدراج صف فارغ جديد تلقائيًا باستخدام زر الأمر في Excel؟
أفضل أدوات الإنتاجية لمكتبتك
عزِّز مهاراتك في Excel باستخدام Kutools لـ Excel، وعايش الكفاءة كما لم تفعل من قبل.يقدّم Kutools لـ Excel أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية ووقت الحفظ.انقر هنا للحصول على الميزة التي تحتاجها أكثر من غيرها...
يجلب Office Tab واجهة ذات علامات تبويب إلى Office، ويجعل عملك أسهل بكثير
- تمكّن من التحرير والقراءة باستخدام علامات التبويب في Word وExcel وPowerPoint، وPublisher وAccess وVisio وProject.
- افتح وأنشئ مستندات متعددة في علامات تبويب جديدة داخل النافذة نفسها، بدلاً من فتح نوافذ جديدة.
- يزيد إنتاجيتك بنسبة 50% ويوفّر لك مئات نقرات الفأرة كل يوم!
جميع الإضافات من Kutools في برنامج تثبيت واحد!
Kutools for Office حزمةٌ تحتوي على إضافاتٍ مخصصة لتطبيقات Excel وWord وOutlook وPowerPoint، إلى جانب Office Tab Pro، مما يجعلها الخيار المثالي للفِرق التي تعمل عبر تطبيقات Office.
- حزمة شاملة واحدة— إضافات Excel وWord وOutlook وPowerPoint بالإضافة إلى Office Tab Pro
- برنامج تثبيت واحد، ترخيص واحد— الإعداد خلال دقائق (جاهز لـ MSI)
- يعمل بشكل أفضل معًا— إنتاجية ميسَّرة عبر تطبيقات Office
- تجربة مجانية لمدة 30 يومًا بكامل الميزات— بدون تسجيل، بدون بطاقة ائتمان
- أفضل قيمة— وفِّر مقارنةً بشراء الإضافات بشكل منفصل