Как да добавите съвет с мишката върху определена форма в Excel?
В много случаи трябва да присвоите макрос на определена форма, за да стартирате макроса, като щракнете върху него в работния си лист. След като присвоите макрос на формата, добавянето на съвет с мишката върху нея може да ви помогне да ви напомни какво прави фигурата при бъдеща употреба. Тази статия ви показва два метода за добавяне на връх с мишката върху определена форма в Excel.
Добавете връх с мишката върху определена форма с добавяне на хипервръзка
Добавете връх с мишката върху определена форма с VBA код
Добавете връх с мишката върху определена форма с добавяне на хипервръзка
Можете да добавите хипервръзка с ScreenTip към определена фигура в работния лист. Моля, направете следното.
1. Щракнете с десния бутон върху формата, която трябва да добавите, за да добавите връх с мишката, след което щракнете Hyperlink от менюто с десен бутон. Вижте екранна снимка:
2. В Поставете хипервръзка кликнете върху Екранна подсказка бутон. И в Задаване на екранна подсказка за хипервръзка диалоговия прозорец, въведете текста на съвета на екрана, който трябва да покажете, докато задържате курсора на мишката над фигурата. Накрая щракнете върху OK бутон. Вижте екранна снимка:
3. Когато се върне към Поставете хипервръзка кликнете върху Bookmark бутон. След това въведете A1 в полето Type in the cell reference box на Изберете Поставете в документа диалогов прозорец и накрая щракнете върху 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. кликване Поставете > Модули. След това въведете кода 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% и намалява стотици кликвания на мишката за вас всеки ден!