Перейти к основному содержанию
 

Как добавить указатель мыши к определенной форме в Excel?

Автор: Силувия Последнее изменение: 2024 июля 09 г.

Во многих случаях вам нужно назначить макрос определенной фигуре, чтобы запустить макрос, щелкнув его на листе. После назначения макроса фигуре добавление указателя мыши на кончике может помочь напомнить вам, что форма делает в будущем. В этой статье показаны два метода добавления указателя мыши к определенной форме в Excel.

Добавить указатель мыши на кончике определенной формы с добавлением гиперссылки
Добавьте указатель мыши на кончике определенной формы с помощью кода VBA


Добавить указатель мыши на кончике определенной формы с добавлением гиперссылки

Вы можете добавить гиперссылку с всплывающей подсказкой к определенной фигуре на листе. Пожалуйста, сделайте следующее.

1. Щелкните правой кнопкой мыши фигуру, которую нужно добавить на кончике мыши, затем щелкните Гиперссылка из контекстного меню. Смотрите скриншот:

Щелкните правой кнопкой мыши по фигуре и выберите Гиперссылка.

2. в Вставить гиперссылку диалогового окна, нажмите ScreenTip кнопка. И в Установить всплывающую подсказку с гиперссылкой В диалоговом окне введите текст подсказки на экране, который необходимо отображать при наведении курсора мыши на фигуру. Наконец нажмите кнопку OK кнопка. Смотрите скриншот:

введите текст подсказки в диалоговом окне «Вставить гиперссылку»

3. Когда он вернется в Вставить гиперссылку диалогового окна, нажмите закладка кнопка. Затем введите A1 в поле Тип в поле ссылки на ячейку Выбрать место в документе диалоговое окно и, наконец, щелкните OK .

нажмите «Закладка», введите A1 в текстовое поле

4. Нажмите OK в Вставить гиперссылку диалоговое окно для завершения создания гиперссылки.

Теперь вы можете видеть подсказку на экране при наведении курсора мыши на фигуру.

подсказка на экране, отображаемая при наведении курсора на фигуру

скриншот kutools для Excel AI

Разблокируйте магию Excel с помощью Kutools AI

  • Умное исполнение: выполнение операций с ячейками, анализ данных и создание диаграмм — и все это осуществляется с помощью простых команд.
  • Пользовательские формулы: Создавайте индивидуальные формулы для оптимизации рабочих процессов.
  • VBA-кодирование: Пишите и внедряйте код VBA без особых усилий.
  • Интерпретация формулы: Легкое понимание сложных формул.
  • Перевод текста: преодолевайте языковые барьеры в своих таблицах.
Расширьте свои возможности Excel с помощью инструментов на базе искусственного интеллекта. Скачать сейчас и испытайте эффективность, как никогда раньше!

Добавьте указатель мыши на кончике определенной формы с помощью кода 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. Нажмите Вставить > Модули. Затем введите ниже код 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

скопируйте и вставьте коды vba в модуль

Заметки:

1). Пожалуйста, замените "Нажмите, чтобы запустить макрос(Основной ключ) и Прямоугольник 4»С текстом подсказки на экране и названием определенной формы.
2). Заменить "МовеРоу" в линию "Вызов MoveRow"к имени макроса, который вы присвоили фигуре

3. нажмите F5 ключ для запуска кода. Затем указанная подсказка экрана немедленно добавляется к определенной форме.


Статьи по теме:

Лучшие инструменты для офисной работы

🤖 Kutools AI Помощник: Революционный анализ данных на основе: Интеллектуальное исполнение   |  Генерировать код  |  Создание пользовательских формул  |  Анализ данных и создание диаграмм  |  Вызов функций Kutools...
Популярные опции: Найдите, выделите или определите дубликаты   |  Удалить пустые строки   |  Объедините столбцы или ячейки без потери данных   |   Раунд без формулы ...
Супер поиск: Множественный критерий VLookup    VLookup с несколькими значениями  |   VLookup по нескольким листам   |   Нечеткий поиск ....
Расширенный раскрывающийся список: Быстрое создание раскрывающегося списка   |  Зависимый раскрывающийся список   |  Выпадающий список с множественным выбором ....
Менеджер столбцов: Добавить определенное количество столбцов  |  Переместить столбцы  |  Переключить статус видимости скрытых столбцов  |  Сравнить диапазоны и столбцы ...
Рекомендуемые функции: Сетка Фокус   |  Просмотр дизайна   |   Большой Формулный Бар    Менеджер книг и листов   |  Библиотека ресурсов (Авто текст)   |  Выбор даты   |  Комбинировать листы   |  Шифровать/дешифровать ячейки    Отправлять электронные письма по списку   |  Суперфильтр   |   Специальный фильтр (фильтровать жирным шрифтом/курсивом/зачеркиванием...) ...
15 лучших наборов инструментов12 Текст Инструменты (Добавить текст, Удалить символы, ...)   |   50+ График Тип (Диаграмма Ганта, ...)   |   40+ Практических Формулы (Рассчитать возраст по дню рождения, ...)   |   19 Вносимые Инструменты (Вставить QR-код, Вставить изображение из пути, ...)   |   12 Конверсия Инструменты (Числа в слова, Конверсия валюты, ...)   |   7 Слияние и разделение Инструменты (Расширенные ряды комбинирования, Разделить клетки, ...)   |   ... и более

Улучшите свои навыки работы с Excel с помощью Kutools for Excel и почувствуйте эффективность, как никогда раньше. Kutools for Excel предлагает более 300 расширенных функций для повышения производительности и экономии времени.  Нажмите здесь, чтобы получить функцию, которая вам нужна больше всего...


Вкладка Office: интерфейс с вкладками в Office и упрощение работы

  • Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
  • Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
  • Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!