Note: The other languages of the website are Google-translated. Back to English
Увійти  \/ 
x
or
x
Реєстрація  \/ 
x

or

Як додати курсор миші до певної фігури в Excel?

У багатьох випадках вам потрібно призначити макрос певній фігурі, щоб запустити макрос, клацнувши його на своєму аркуші. Після присвоєння фігури макросу, додавання миші над кінчиком може допомогти нагадати вам, що фігура робить у майбутньому. У цій статті показано два способи додавання наведення миші до певної фігури в Excel.

Додати курсор миші до певної фігури, додавши гіперпосилання
Додайте курсор миші до певної фігури за допомогою коду VBA


Додати курсор миші до певної фігури, додавши гіперпосилання


Ви можете додати гіперпосилання за допомогою ScreenTip до певної фігури на аркуші. Будь ласка, виконайте наступне.

1. Клацніть правою кнопкою миші фігуру, яку потрібно додати мишкою до кінчика, а потім клацніть Hyperlink з меню правої клавіші миші. Дивіться знімок екрана:

2 В Вставте гіперпосилання у діалоговому вікні натисніть Підказка екрану кнопку. І в Встановіть підказку гіперпосилання діалогове вікно, введіть текст підказки екрану, який потрібно відобразити, наводячи курсор миші на фігуру. Нарешті натисніть OK кнопку. Дивіться знімок екрана:

3. Коли він повернеться до Вставте гіперпосилання у діалоговому вікні натисніть закладка кнопку. Потім введіть A1 у Тип у полі посилання на клітинку в Виберіть Місце в документі і нарешті клацніть на OK кнопки.

4. Натисніть OK кнопка в Вставте гіперпосилання діалогове вікно, щоб закінчити створення гіперпосилання.

Тепер ви можете бачити, як відображається підказка екрана при наведенні на фігуру миші.


Додайте курсор миші до певної фігури за допомогою коду VBA

Ви можете легко додати курсор миші до певної фігури після запуску наступного коду VBA.

1. Відкрийте аркуш, що містить фігуру, під час якої наведете курсор миші. Клацніть правою кнопкою миші вкладку аркуша, а потім у контекстному меню натисніть Переглянути код.

2 В Microsoft Visual Basic для додатків вікно, скопіюйте наведений нижче код VBA у вікно коду.

Код VBA 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. клацання Insert > Модулі. Потім введіть нижче коду VBA у вікно модуля.

Код 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

примітки:

1). Будь ласка, замініть “Клацніть, щоб запустити макрос"І"Прямокутник 4”З текстом підказки на екрані та назвою певної фігури.
2). Замінити "MoveRow" в лінію "Зателефонуйте MoveRow"до імені макросу, яке ви призначили фігурі

3 Натисніть кнопку F5 клавіша для запуску коду. Потім зазначений наконечник екрану негайно додається до певної форми.


Статті по темі:


Найкращі інструменти для підвищення продуктивності офісу

Kutools для Excel вирішує більшість ваших проблем і збільшує продуктивність на 80%

  • Повторне використання: Швидко вставте складні формули, діаграми і все, що ви використовували раніше; Шифрувати комірки з паролем; Створити список розсилки та надсилати електронні листи ...
  • Супер формула бар (легко редагувати кілька рядків тексту та формули); Макет читання (легко читати та редагувати велику кількість комірок); Вставте у відфільтрований діапазон...
  • Об’єднати клітинки / рядки / стовпці без втрати даних; Вміст розділених комірок; Об'єднати повторювані рядки / стовпці... Запобігання дублюючим клітинам; Порівняйте діапазони...
  • Виберіть Повторюваний або Унікальний Рядки; Виберіть Пусті рядки (усі клітинки порожні); Супер знахідка та нечітка знахідка у багатьох робочих зошитах; Випадковий вибір ...
  • Точна копія Кілька клітинок без зміни посилання на формулу; Автоматичне створення посилань на кілька аркушів; Вставте кулі, Прапорці та інше ...
  • Витяг тексту, Додати текст, Видалити за позицією, Видаліть пробіл; Створення та друк проміжних підсумків підкачки; Перетворення вмісту комірок та коментарів...
  • Супер фільтр (зберегти та застосувати схеми фільтрів до інших аркушів); Розширене сортування за місяцем / тижнем / днем, частотою та іншим; Спеціальний фільтр жирним, курсивом ...
  • Поєднайте робочі зошити та робочі аркуші; Об’єднати таблиці на основі ключових стовпців; Розділіть дані на кілька аркушів; Пакетне перетворення xls, xlsx та PDF...
  • Понад 300 потужних функцій. Підтримує Office / Excel 2007-2019 та 365. Підтримує всі мови. Простота розгортання на вашому підприємстві чи в організації. Повна функція 30-денної безкоштовної пробної версії. 60-денна гарантія повернення грошей.
вкладка kte 201905

Вкладка Office забезпечує інтерфейс з вкладками для Office і значно спрощує вашу роботу

  • Увімкніть редагування та читання на вкладках у Word, Excel, PowerPoint, Publisher, Access, Visio та Project.
  • Відкривайте та створюйте кілька документів на нових вкладках того самого вікна, а не в нових вікнах.
  • Збільшує вашу продуктивність на 50% та зменшує сотні клацань миші для вас щодня!
дно офісної таблиці
Say something here...
symbols left.
You are guest
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 · 2 years ago
    Convert your shape to an image. Images have tool tips.
  • To post as a guest, your comment is unpublished.
    Niall · 3 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 · 3 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 · 3 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 · 4 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 · 3 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 · 3 years ago
      I wish someone would solve this problem.
      • To post as a guest, your comment is unpublished.
        crystal · 3 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