Як додати курсор миші до певної фігури в 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 Sub3. клацання 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
примітки:
3 Натисніть кнопку F5 клавіша для запуску коду. Потім зазначений наконечник екрану негайно додається до певної форми.
Статті по темі:
- Як автоматично змінювати розмір фігури на основі / залежно від вказаного значення комірки в Excel?
- Як залити фігуру кольором прозорого фону в Excel?
- Як приховати або показати певну форму на основі вказаного значення комірки в Excel?
Найкращі інструменти продуктивності офісу
Покращуйте свої навички Excel за допомогою Kutools для Excel і відчуйте ефективність, як ніколи раніше. Kutools для Excel пропонує понад 300 додаткових функцій для підвищення продуктивності та економії часу. Натисніть тут, щоб отримати функцію, яка вам найбільше потрібна...
Вкладка Office Передає інтерфейс із вкладками в Office і значно полегшує вашу роботу
- Увімкніть редагування та читання на вкладках у Word, Excel, PowerPoint, Publisher, Access, Visio та Project.
- Відкривайте та створюйте кілька документів на нових вкладках того самого вікна, а не в нових вікнах.
- Збільшує вашу продуктивність на 50% та зменшує сотні клацань миші для вас щодня!
