Note: The other languages of the website are Google-translated. Back to English

Як додати курсор миші до певної фігури в 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% та зменшує сотні клацань миші для вас щодня!
дно офісної таблиці
Коментарі (8)
Поки немає оцінок. Оцініть першим!
Цей коментар був мінімізований модератором на сайті
Привіт, Sub Test() При помилці Відновити далі Dim xShape As Shape Set xShape = ActiveSheet.Shapes("Rectangle 4") Якщо не xShape Is Nothing then _ ActiveSheet.Hyperlinks.Add xShape, "", "", ScreenTip:=" Клацніть, щоб запустити макрос " End Sub Подяка код працює чудово, але він видаляє призначений макрос. Коли я використовую Screen Tip і натискаю на фігуру, макрос не працює. Чи можна це виправити? Використовувати підказку на екрані щодо форми та продовжувати роботу макроса? Дякую
Цей коментар був мінімізований модератором на сайті
Я б хотів, щоб хтось вирішив цю проблему.
Цей коментар був мінімізований модератором на сайті
Хороший день,
Будь ласка, спробуйте, як показано нижче, щоб вирішити проблему.

Крок 1:
На робочому аркуші міститься фігура, яку ви відобразите підказкою, клацніть правою кнопкою миші вкладку аркуша та виберіть Перегляд коду з контекстного меню. А потім скопіюйте нижче VBA у вікно коду:

Приватний додатковий аркуш_SelectionChange(ByVal Target As Range)
Якщо Target.Address = Range("A1").Address Then
Зателефонуйте MoveRow
End If
End Sub

Крок 2:
Відкрийте вікно коду модуля, скопіюйте код нижче у вікно модуля.
Будь ласка, змініть «MoveRow» у рядку Call MoveRow на ім’я макросу, яке ви призначили фігурі, а потім натисніть клавішу F5, щоб запустити код.
Дякуємо за ваш коментар.

Підтекст()
Dim xShape As Shape
Dim xRg As Range
On Error Resume Next
Application.EnableEvents = False
Встановіть xShape = ActiveSheet.Shapes("Прямокутник 1")
Якщо не xShape - це нічого
ActiveSheet.Hyperlinks.Add xShape, "", "A1", ScreenTip:="Натисніть, щоб запустити макрос "
End If
Якщо ActiveSheet.Hyperlinks(1).SubAddress = "A1", Тоді
Зателефонуйте MoveRow
End If
Application.EnableEvents = True
End Sub
Цей коментар був мінімізований модератором на сайті
Шановний Евалдас,
Вибачте за помилку. Будь ласка, спробуйте, як показано нижче, щоб вирішити проблему.

Крок 1:
На робочому аркуші міститься фігура, яку ви відобразите підказкою, клацніть правою кнопкою миші вкладку аркуша та виберіть Перегляд коду з контекстного меню. А потім скопіюйте нижче VBA у вікно коду:

Приватний додатковий аркуш_SelectionChange(ByVal Target As Range)
Якщо Target.Address = Range("A1").Address Then
Зателефонуйте MoveRow
End If
End Sub

Крок 2:
Відкрийте вікно коду модуля, скопіюйте код нижче у вікно модуля.
Будь ласка, змініть «MoveRow» у рядку Call MoveRow на ім’я макросу, яке ви призначили фігурі, а потім натисніть клавішу F5, щоб запустити код.
Дякуємо за ваш коментар.

Підтекст()
Dim xShape As Shape
Dim xRg As Range
On Error Resume Next
Application.EnableEvents = False
Встановіть xShape = ActiveSheet.Shapes("Прямокутник 1")
Якщо не xShape - це нічого
ActiveSheet.Hyperlinks.Add xShape, "", "A1", ScreenTip:="Натисніть, щоб запустити макрос "
End If
Якщо ActiveSheet.Hyperlinks(1).SubAddress = "A1", Тоді
Зателефонуйте MoveRow
End If
Application.EnableEvents = True
End Sub
Цей коментар був мінімізований модератором на сайті
Не працює..... якщо є гіперпосилання, пов’язане з фігурою, то макрос не запускатиметься....
Цей коментар був мінімізований модератором на сайті
Шановний Найл,
У моєму випадку код працює добре. Чи можете ви надати свою версію Office? Дякуємо за коментар.
Цей коментар був мінімізований модератором на сайті
Шановний Найл,
Вибачте за помилку. Будь ласка, спробуйте, як показано нижче, щоб вирішити проблему.

Крок 1:
На робочому аркуші міститься фігура, яку ви відобразите підказкою, клацніть правою кнопкою миші вкладку аркуша та виберіть Перегляд коду з контекстного меню. А потім скопіюйте нижче VBA у вікно коду:

Приватний додатковий аркуш_SelectionChange(ByVal Target As Range)
Якщо Target.Address = Range("A1").Address Then
Зателефонуйте MoveRow
End If
End Sub

Крок 2:
Відкрийте вікно коду модуля, скопіюйте код нижче у вікно модуля.
Будь ласка, змініть «MoveRow» у рядку Call MoveRow на ім’я макросу, яке ви призначили фігурі, а потім натисніть клавішу F5, щоб запустити код.
Дякуємо за ваш коментар.

Підтекст()
Dim xShape As Shape
Dim xRg As Range
On Error Resume Next
Application.EnableEvents = False
Встановіть xShape = ActiveSheet.Shapes("Прямокутник 1")
Якщо не xShape - це нічого
ActiveSheet.Hyperlinks.Add xShape, "", "A1", ScreenTip:="Натисніть, щоб запустити макрос "
End If
Якщо ActiveSheet.Hyperlinks(1).SubAddress = "A1", Тоді
Зателефонуйте MoveRow
End If
Application.EnableEvents = True
End Sub
Цей коментар був мінімізований модератором на сайті
Перетворіть свою форму на зображення. Зображення мають підказки інструментів.
There are no comments posted here yet
Залишайте свої коментарі
Публікація як гість
×
Оцініть цю публікацію:
0   Персонажі
Рекомендовані місця