نصيحة: اللغات الأخرى مترجمة من قبل Google. يمكنك زيارة English نسخة من هذا الرابط.
تسجيل الدخول
x
or
x
x
التسجيل
x

or

كيفية إضافة الماوس فوق تلميح إلى شكل معين في إكسيل؟

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

إضافة الماوس فوق نصيحة إلى شكل معين مع إضافة ارتباط تشعبي

إضافة الماوس فوق نصيحة إلى شكل معين مع التعليمات البرمجية فبا

علامة تبويب Office تمكين التحرير والتصفح في Tabbed ، وجعل عملك أسهل بكثير ...
Kutools for Excel يحل معظم مشاكلك ، ويزيد من إنتاجيتك بنسبة 80٪
  • إعادة استخدام أي شيء: أضف الصيغ الأكثر استخدامًا أو تعقيدًا والمخططات وأي شيء آخر إلى مفضلاتك ، ثم أعد استخدامها سريعًا في المستقبل.
  • أكثر من ميزات نص 20: استخراج الرقم من سلسلة النص ؛ استخراج أو إزالة جزء من النصوص ؛ تحويل الأرقام والعملات إلى الكلمات الإنجليزية ...
  • دمج الأدوات: العديد من المصنفات والأوراق في واحد ؛ دمج خلايا / صفوف / أعمدة متعددة دون فقدان البيانات ؛ دمج الصفوف المكررة ومجموع ...
  • أدوات الانقسام: تقسيم البيانات إلى أوراق متعددة بناءً على القيمة ؛ مصنف واحد إلى ملفات Excel أو PDF أو CSV متعددة ؛ عمود واحد إلى أعمدة متعددة ...
  • لصق الطفر الصفوف المخفية / المصفاة ؛ عدد ومبلغ بواسطة لون الخلفية. إنشاء قائمة بريدية و إرسال رسائل البريد الإلكتروني حسب قيمة الخلية...
  • فلتر سوبر: إنشاء مخططات تصفية متقدمة وتطبيقها على أي أوراق ؛ فرز حسب الأسبوع ، اليوم ، التردد وغير ذلك ؛ تصفية / فلترة بواسطة جريئة ، الصيغ ، التعليق ...
  • أكثر من ميزات 300 القوية ؛ يعمل مع Office 2007-2019 و 365 ؛ يدعم جميع اللغات ؛ سهولة النشر في مؤسستك أو مؤسستك.

إضافة الماوس فوق نصيحة إلى شكل معين مع إضافة ارتباط تشعبي


يمكنك إضافة ارتباط تشعبي مع سكرينتيب إلى شكل معين في ورقة العمل. يرجى القيام على النحو التالي.

1. انقر بزر الماوس الأيمن على الشكل الذي تريد إضافته فوق الماوس، ثم انقر على الارتباط التشعبي من قائمة النقر بزر الماوس الأيمن. انظر لقطة الشاشة:

2. في ال إدراج ارتباط تشعبي مربع الحوار، انقر فوق الشاشة زر. وفي تعيين ارتباط الشاشة التشعبي مربع الحوار، أدخل النص تلميح الشاشة تحتاج إلى عرض أثناء تحوم فوق الشكل عن طريق الماوس. وأخيرا انقر فوق OK زر. انظر لقطة الشاشة:

3. عندما يعود إلى إدراج ارتباط تشعبي مربع الحوار، انقر فوق المرجعية زر. ثم أدخل أكسنومك في المربع تايب في مربع مرجع الخلية حدد مكان في المستند مربع الحوار، وأخيرا انقر فوق OK .

4. انقر فوق OK زر في إدراج ارتباط تشعبي مربع الحوار لإنهاء الارتباط التشعبي إنشاء.

الآن يمكنك ان ترى الشاشة تلميح عرض عندما تحوم فوق الشكل عن طريق الماوس.


إضافة الماوس فوق نصيحة إلى شكل معين مع التعليمات البرمجية فبا

يمكنك بسهولة إضافة الماوس فوق تلميح إلى شكل معين بعد تشغيل التعليمات البرمجية فبا التالية.

1. يحتوي فتح ورقة العمل على الشكل الذي ستقوم بعرضه عند تحريك الماوس. انقر بزر الماوس الأيمن فوق علامة تبويب الورقة ثم انقر فوق "عرض التعليمات البرمجية" من قائمة السياق.

2. في ال ميكروسوفت فيسوال باسيك للتطبيقات نافذة ، يرجى نسخ رمز VBA أدناه إلى نافذة Code.

رمز VBA 1: أضف الماوس فوق الطرف إلى شكل معين

ورقة عمل فرعية خاصة (تغيير ByVal الهدف كنطاق) 'تم التحديث بواسطة Extendoffice 2018 / 3 / 30 إذا كان Target.Address = Range ("A1"). العنوان ثم اتصل MoveRow End If End Sub

3. انقر إدراج > وحدة. ثم أدخل أدناه رمز VBA في إطار الوحدة النمطية.

رمز VBA 2: أضف الماوس فوق الطرف إلى شكل معين

Sub Text () 'محدّثة بواسطة Extendoffice 2018 / 3 / 30 باهتة xShape بالشكل خافت xRg كنطاق على خطأ استئناف التطبيق التالي.EnableEvents = False Set xShape = ActiveSheet.Shapes ("مستطيل 4") إذا لم يكن xShape نشطًا. Hyperlinks.Add xShape، ""، "A1"، تلميح الشاشة: = "انقر لتشغيل ماكرو" End If If ActiveSheet.Hyperlinks (1) .SubAddress = "A1" ثم اتصل بـ MoveRow End If Application.EnableEvents = True End Sub

الملاحظات:

1). يرجى استبدال "انقر لتشغيل ماكرو"و"المستطيل 4"مع نص طرف الشاشة واسم شكل معين.

2). يحل محل "MoveRow" في النسق "استدعاء MoveRow"إلى اسم الماكرو الذي قمت بتعيينه إلى الشكل

3. اضغط على F5 مفتاح لتشغيل التعليمات البرمجية. ثم يتم إضافة طرف الشاشة المحدد إلى شكل معين على الفور.


مقالات ذات صلة:


Kutools for Excel يحل معظم مشاكلك ، ويزيد من إنتاجيتك بنسبة 80٪

  • إعادة استخدام: إدراج بسرعة الصيغ المعقدة ، الرسوم البيانية وأي شيء استخدمته من قبل ؛ تشفير الخلايا مع كلمة المرور إنشاء قائمة بريدية وإرسال رسائل البريد الإلكتروني ...
  • سوبر الفورمولا بار (بسهولة تحرير أسطر متعددة من النص والصيغة) ؛ تخطيط القراءة (بسهولة قراءة وتحرير أعداد كبيرة من الخلايا) ؛ لصق على المدى المصفى...
  • دمج الخلايا / الصفوف / الأعمدة دون فقدان البيانات ؛ انقسام خلايا المحتوى ؛ الجمع بين تكرار الصفوف / الأعمدة... منع الخلايا المكررة. مقارنة النطاقات...
  • حدد تكرار أو فريد الصفوف. حدد صفوف فارغة (جميع الخلايا فارغة) ؛ سوبر البحث والعثور غامض في العديد من المصنفات ؛ اختيار عشوائي ...
  • نسخة طبق الأصل خلايا متعددة دون تغيير مرجع الصيغة ؛ إنشاء المراجع تلقائيًا إلى أوراق متعددة. إدراج الرصاصات، مربعات الاختيار والمزيد ...
  • استخراج النص، إضافة نص ، حذف حسب الموضع ، إزالة الفضاء. إنشاء وطباعة مجاميع ترحيل الصفحات ؛ تحويل بين محتوى الخلايا والتعليقات...
  • سوبر تصفية (حفظ وتطبيق مخططات التصفية على أوراق أخرى) ؛ تصنيف متقدم حسب الشهر / الأسبوع / اليوم ، التردد وأكثر ؛ فلتر خاص بواسطة جريئة ، مائل ...
  • الجمع بين المصنفات وأوراق العمل. دمج الجداول على أساس الأعمدة الرئيسية ؛ تقسيم البيانات إلى أوراق متعددة; دفعة تحويل XLS ، XLSX وقوات الدفاع الشعبي...
  • أكثر من ميزات 300 القوية. يدعم Office / Excel 2007-2019 و 365. يدعم جميع اللغات. سهولة النشر في مؤسستك أو مؤسستك. ميزات كاملة النسخة التجريبية المجانية من 30.
علامة التبويب kte 201905

علامة تبويب Office توفر واجهة مبوبة لـ Office ، واجعل عملك أسهل بكثير

  • تمكين تحرير علامات التبويب والقراءة في Word و Excel و PowerPointوالناشر والوصول ، Visio ومشروع.
  • افتح مستندات متعددة وقم بإنشائها في علامات تبويب جديدة لنفس النافذة ، وليس في نوافذ جديدة.
  • يزيد إنتاجيتك بنسبة 50٪ ، ويقلل مئات نقرات الماوس لك كل يوم!
أسفل مكتبه
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    David Darby · 22 days ago
    Convert your shape to an image. Images have tool tips.
  • To post as a guest, your comment is unpublished.
    Niall · 1 years ago
    Doesn't work..... if there is a hyperlink associated with the shape then the macro will not run....
    • To post as a guest, your comment is unpublished.
      crystal · 1 years ago
      Dear Niall,
      Sorry for the mistake. Please try as below to solve the problem.

      Step 1:
      In the worksheet contains the shape you will display tip, right click the sheet tab and select View Code from the context menu. And then copy below VBA into the Code window:

      Private Sub Worksheet_SelectionChange(ByVal Target As Range)
      If Target.Address = Range("A1").Address Then
      Call MoveRow
      End If
      End Sub

      Step 2:
      Open the Module code window, copy below code into the Module window.
      Please change "MoveRow" in the line Call MoveRow to the macro name you assigned to the shape, and then press the F5 key to run the code.
      Thank you for your comment.

      Sub Text()
      Dim xShape As Shape
      Dim xRg As Range
      On Error Resume Next
      Application.EnableEvents = False
      Set xShape = ActiveSheet.Shapes("Rectangle 1")
      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
    • To post as a guest, your comment is unpublished.
      crystal · 1 years ago
      Dear Niall,
      The code works well in my case. Can you provide your Office version? Thank you for your comment.
  • To post as a guest, your comment is unpublished.
    Evaldas · 2 years ago
    Hello,

    Sub Test()
    On Error Resume Next
    Dim xShape As Shape
    Set xShape = ActiveSheet.Shapes("Rectangle 4")
    If Not xShape Is Nothing Then _
    ActiveSheet.Hyperlinks.Add xShape, "", "", ScreenTip:="Click to run Macro "
    End Sub

    Thank code works great, but it removes Assigned macro.

    When i use Screen Tip and press on shape Macro Deosn't work.

    Is any way to fix that? Use Screen tip on shape and keep macro working?

    Thank youĄ
    • To post as a guest, your comment is unpublished.
      crystal · 1 years ago
      Dear Evaldas,
      Sorry for the mistake. Please try as below to solve the problem.

      Step 1:
      In the worksheet contains the shape you will display tip, right click the sheet tab and select View Code from the context menu. And then copy below VBA into the Code window:

      Private Sub Worksheet_SelectionChange(ByVal Target As Range)
      If Target.Address = Range("A1").Address Then
      Call MoveRow
      End If
      End Sub

      Step 2:
      Open the Module code window, copy below code into the Module window.
      Please change "MoveRow" in the line Call MoveRow to the macro name you assigned to the shape, and then press the F5 key to run the code.
      Thank you for your comment.

      Sub Text()
      Dim xShape As Shape
      Dim xRg As Range
      On Error Resume Next
      Application.EnableEvents = False
      Set xShape = ActiveSheet.Shapes("Rectangle 1")
      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
    • To post as a guest, your comment is unpublished.
      Ringleader · 1 years ago
      I wish someone would solve this problem.
      • To post as a guest, your comment is unpublished.
        crystal · 1 years ago
        Good Day,
        Please try as below to solve the problem.

        Step 1:
        In the worksheet contains the shape you will display tip, right click the sheet tab and select View Code from the context menu. And then copy below VBA into the Code window:

        Private Sub Worksheet_SelectionChange(ByVal Target As Range)
        If Target.Address = Range("A1").Address Then
        Call MoveRow
        End If
        End Sub

        Step 2:
        Open the Module code window, copy below code into the Module window.
        Please change "MoveRow" in the line Call MoveRow to the macro name you assigned to the shape, and then press the F5 key to run the code.
        Thank you for your comment.

        Sub Text()
        Dim xShape As Shape
        Dim xRg As Range
        On Error Resume Next
        Application.EnableEvents = False
        Set xShape = ActiveSheet.Shapes("Rectangle 1")
        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