Բաց թողնել հիմնական բովանդակությունը

Ինչպե՞ս ավելացնել մկնիկը հուշում Excel- ի որոշակի ձևի վրա:

Շատ դեպքերում դուք պետք է մակրո նշանակեք որոշակի ձևի, որպեսզի գործարկեք մակրո ՝ սեղմելով այն ձեր աշխատանքային թերթում: Ձևին մակրո նշանակելուց հետո մկնիկի հուշում ավելացնելը կօգնի ձեզ հիշեցնել, թե ինչ է անում ձևը հետագա օգտագործման մեջ: Այս հոդվածը ցույց է տալիս Excel- ում որոշակի ձևի վրա մկնիկի հուշում ավելացնելու երկու եղանակ:

Հիպերհղումը ավելացնելով որոշակի ձևի վրա մկնիկ ավելացրեք
VBA կոդով որոշակի ձևի վրա մկնիկ ավելացրեք հուշումով

Հիպերհղումը ավելացնելով որոշակի ձևի վրա մկնիկ ավելացրեք

Դուք կարող եք ScreenTip- ի հետ հղում ավելացնել աշխատանքային թերթի որոշակի ձևի վրա: Խնդրում եմ արեք հետևյալ կերպ.

1. Սեղմեք աջով այն ձևի վրա, որը դուք պետք է մկնիկը ավելացնեք հուշում, ապա կտտացրեք Գերկապի աջ կտտացնելու ցանկից: Տեսեք,

2. Մեջ Տեղադրեք Hyperlink երկխոսության տուփ, կտտացրեք Էկրանի հուշում կոճակ Եվ Սահմանեք Hyperlink ScreenTip- ը երկխոսության տուփ, մուտքագրեք էկրանի հուշագրի տեքստը, որը դուք պետք է ցուցադրեք, մուկով ձևի վրա սավառնելիս: Վերջապես կտտացրեք OK կոճակ Տեսեք,

3. Երբ այն վերադառնա Տեղադրեք Hyperlink երկխոսության տուփ, կտտացրեք Էջանիշ կոճակ Դրանից հետո մուտքագրեք A1- ը Type- ի մեջ `բջջային տեղեկանքի վանդակում Փաստաթղթում ընտրեք Տեղը երկխոսության տուփը և վերջապես կտտացրեք այն OK կոճակը:

4. Սեղմեք OK կոճակը Տեղադրեք Hyperlink երկխոսության տուփ ՝ ավարտելու հիպերհղումի ստեղծումը:

Այժմ դուք կարող եք տեսնել, թե ինչպես է էկրանին ծայրը ցուցադրվում, երբ մկնիկով ձևը սավառնում է:

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

Notes:

1) Խնդրում ենք փոխարինել «Կտտացրեք Macro- ն գործարկելու համար"Եւ"Ուղղանկյուն 4”Ձեր էկրանի հուշման տեքստով և որոշակի ձևի անունով:
2) Փոխարինել »Տեղափոխել շարքը«հերթում»Callանգահարեք MoveRow- ին"մակրո անվանմանը, որը դուք նշանակել եք ձևին

3. Սեղմեք F5 ծածկագիրը գործելու համար: Այնուհետեւ նշված էկրանի հուշիչը անմիջապես ավելացվում է որոշակի ձևին:

Առնչվող հոդվածներ:

Գրասենյակի արտադրողականության լավագույն գործիքները

🤖 Kutools AI օգնականՀեղափոխություն կատարել տվյալների վերլուծության հիման վրա՝ Խելացի կատարում   |  Ստեղծեք ծածկագիր  |  Ստեղծեք հատուկ բանաձևեր  |  Վերլուծել տվյալները և ստեղծել գծապատկերներ  |  Invoke Kutools-ի գործառույթները...
Հանրաճանաչ հատկություններ: Գտեք, ընդգծեք կամ նույնականացրեք կրկնօրինակները   |  Deleteնջել դատարկ շարքերը   |  Միավորել սյունակները կամ բջիջները՝ առանց տվյալների կորստի   |   Կլոր առանց բանաձևի ...
Super Փնտրել: Բազմաթիվ չափանիշների VLookup  |   Բազմակի արժեք VLookup  |   VLookup բազմաթիվ թերթերում   |   Fuzzy Փնտրել ....
Ընդլայնված բացվող ցուցակ: Արագ ստեղծեք բացվող ցուցակը   |  Կախված բացվող ցուցակ   |  Բազմակի ընտրություն Drop Down ցուցակ ....
Սյունակի կառավարիչ: Ավելացրեք որոշակի քանակությամբ սյունակներ  |  Տեղափոխել սյունակները  |  Փոխարկել թաքնված սյունակների տեսանելիության կարգավիճակը  |  Համեմատեք միջակայքերը և սյունակները ...
Առանձնահատկություններ: Ցանցի կենտրոնացում   |  Դիզայնի տեսք   |   Մեծ Formula Bar   |  Աշխատանքային գրքույկի և թերթիկների կառավարիչ   |  Ռեսուրսների գրադարան (Ավտոմատ տեքստ)   |  Ամսաթիվ ընտրող   |  Միավորել աշխատանքային թերթերը   |  Գաղտնագրել/գաղտնազերծել բջիջները   |  Ուղարկեք նամակներ ըստ ցանկի   |  Սուպեր զտիչ   |   Հատուկ զտիչ (զտել թավ/շեղ/շեղված...) ...
Լավագույն 15 գործիքների հավաքածու:  12 Տեքստ Գործիքներ (Ավելացրեք տեքստ, Հեռացնել նիշերը, ...)   |   50+ Աղյուսակ Տեսակներ (Գանտի աղյուսակը, ...)   |   40+ Գործնական Բանաձեւեր (Հաշվարկել տարիքը ՝ ելնելով ծննդյան տարեդարձից, ...)   |   19 միացում Գործիքներ (Տեղադրեք QR կոդ, Տեղադրեք նկար ուղուց, ...)   |   12 Փոխարկում Գործիքներ (Բառեր համարներ, Արտարժույթի փոխակերպումը, ...)   |   7 Միաձուլում և պառակտում Գործիքներ (Ընդլայնված կոմբինատ տողեր, Պառակտված բջիջներ, ...)   |   ... եւ ավելին

Լրացրեք ձեր Excel-ի հմտությունները Kutools-ի հետ Excel-ի համար և փորձեք արդյունավետությունը, ինչպես երբեք: Kutools-ը Excel-ի համար առաջարկում է ավելի քան 300 առաջադեմ առանձնահատկություններ՝ արտադրողականությունը բարձրացնելու և ժամանակ խնայելու համար:  Սեղմեք այստեղ՝ Ձեզ ամենաշատ անհրաժեշտ հատկանիշը ստանալու համար...

Նկարագրություն

Office Tab- ը Tabbed ինտերֆեյսը բերում է Office, և ձեր աշխատանքը շատ ավելի դյուրին դարձրեք

  • Միացնել ներդիրներով խմբագրումը և ընթերցումը Word, Excel, PowerPoint- ով, Հրատարակիչ, Access, Visio և Project:
  • Բացեք և ստեղծեք բազմաթիվ փաստաթղթեր նույն պատուհանի նոր ներդիրներում, այլ ոչ թե նոր պատուհաններում:
  • Բարձրացնում է ձեր արտադրողականությունը 50%-ով և նվազեցնում մկնիկի հարյուրավոր սեղմումները ձեզ համար ամեն օր:
Comments (8)
No ratings yet. Be the first to rate!
David Darby
David Darby
This comment was minimized by the moderator on the site
Convert your shape to an image. Images have tool tips.
Reply
0
0
Niall
Niall
This comment was minimized by the moderator on the site
Doesn't work..... if there is a hyperlink associated with the shape then the macro will not run....
Reply
0
0
crystal
crystal     Niall
This comment was minimized by the moderator on the site
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
Reply
Report
0
0
crystal
crystal     Niall
This comment was minimized by the moderator on the site
Dear Niall,
The code works well in my case. Can you provide your Office version? Thank you for your comment.
Reply
Report
0
0
Evaldas
Evaldas
This comment was minimized by the moderator on the site
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Ą
Reply
0
0
crystal
crystal     Evaldas
This comment was minimized by the moderator on the site
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
Reply
Report
0
0
Ringleader
Ringleader     Evaldas
This comment was minimized by the moderator on the site
I wish someone would solve this problem.
Reply
0
0
crystal
crystal     Ringleader
This comment was minimized by the moderator on the site
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
Reply
Report
1
0
There are no comments posted here yet
Please leave your comments in English
Guest
Posting as Guest
×
Rate this post:
Reset
0   Characters
Suggested Locations