كيفية إضافة مؤشر الفأرة إلى شكل معين في Excel؟
في كثير من الحالات ، تحتاج إلى تعيين ماكرو لشكل معين لتشغيل الماكرو بالنقر فوقه في ورقة العمل الخاصة بك. بعد تعيين ماكرو للشكل ، يمكن أن تساعد إضافة الماوس فوق الحافة في تذكيرك بما يفعله الشكل في الاستخدام المستقبلي. توضح لك هذه المقالة طريقتين لإضافة الماوس فوق التلميح إلى شكل معين في Excel.
أضف مؤشر الماوس فوق طرف إلى شكل معين مع إضافة ارتباط تشعبي
أضف الماوس فوق الحافة إلى شكل معين باستخدام رمز VBA
أضف مؤشر الماوس فوق طرف إلى شكل معين مع إضافة ارتباط تشعبي
يمكنك إضافة ارتباط تشعبي مع تلميح الشاشة إلى شكل معين في ورقة العمل. الرجاء القيام بما يلي.
1. انقر بزر الماوس الأيمن فوق الشكل الذي تريد إضافة الماوس فوقه ، ثم انقر فوق الارتباط التشعبي من قائمة النقر بزر الماوس الأيمن. انظر لقطة الشاشة:
2. في ال أدخل ارتباط تشعبي مربع الحوار، انقر فوق تلميح الشاشة زر. وفي تعيين تلميح شاشة الارتباط التشعبي في مربع الحوار ، أدخل نص تلميح الشاشة الذي تريد عرضه أثناء التمرير فوق الشكل بالماوس. أخيرًا انقر فوق ملف OK زر. انظر لقطة الشاشة:
3. عندما يعود إلى أدخل ارتباط تشعبي مربع الحوار، انقر فوق حفظ زر. ثم أدخل A1 في المربع اكتب في مربع مرجع الخلية في حدد وضع في المستند مربع الحوار ، ثم انقر فوق ملف OK .
4. انقر فوق OK زر في أدخل ارتباط تشعبي مربع الحوار لإنهاء إنشاء الارتباط التشعبي.
يمكنك الآن مشاهدة عرض تلميح الشاشة عند التمرير فوق الشكل بالماوس.
أضف الماوس فوق الحافة إلى شكل معين باستخدام رمز VBA
يمكنك بسهولة إضافة الماوس فوق التلميح إلى شكل معين بعد تشغيل رمز VBA التالي.
1. افتح ورقة العمل التي تحتوي على الشكل الذي ستعرض تلميحًا عند تحريك الماوس فوقه. انقر بزر الماوس الأيمن فوق علامة تبويب الورقة ثم انقر فوق عرض الرمز من قائمة السياق.
2. في ال ميكروسوفت فيسوال باسيك للتطبيقات نافذة ، يرجى نسخ رمز فبا أدناه في نافذة التعليمات البرمجية.
كود فبا 1: أضف الماوس فوق التلميح إلى شكل معين
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'Updated by Extendoffice 2018/3/30
If Target.Address = Range("A1").Address Then
Call MoveRow
End If
End Sub
3. انقر إدراج > وحدة. ثم أدخل رمز VBA أدناه في نافذة الوحدة النمطية.
كود فبا 2: أضف الماوس فوق التلميح إلى شكل معين
Sub Text()
'Updated by Extendoffice 2018/3/30
Dim xShape As Shape
Dim xRg As Range
On Error Resume Next
Application.EnableEvents = False
Set xShape = ActiveSheet.Shapes("Rectangle 4")
If Not xShape Is Nothing Then
ActiveSheet.Hyperlinks.Add xShape, "", "A1", ScreenTip:="Click to run Macro "
End If
If ActiveSheet.Hyperlinks(1).SubAddress = "A1" Then
Call MoveRow
End If
Application.EnableEvents = True
End Sub
ملاحظة:
3. اضغط على F5 مفتاح لتشغيل الكود. ثم يتم إضافة تلميح الشاشة المحدد إلى شكل معين على الفور.
مقالات ذات صلة:
- كيفية تغيير حجم الشكل تلقائيًا بناءً على / اعتمادًا على قيمة الخلية المحددة في Excel؟
- كيفية ملء شكل بلون خلفية شفاف في Excel؟
- كيفية إخفاء أو إظهار شكل معين بناءً على قيمة خلية محددة في إكسيل؟
أفضل أدوات إنتاجية المكتب
عزز مهاراتك في Excel باستخدام Kutools for Excel، واختبر كفاءة لم يسبق لها مثيل. يقدم Kutools for Excel أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية وتوفير الوقت. انقر هنا للحصول على الميزة التي تحتاجها أكثر...
يجلب Office Tab الواجهة المبوبة إلى Office ، ويجعل عملك أسهل بكثير
- تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
- فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
- يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!