Skip i'r prif gynnwys

Sut i ychwanegu llygoden dros domen i siâp penodol yn Excel?

Mewn llawer o achosion, mae angen i chi neilltuo macro i siâp penodol er mwyn rhedeg y macro trwy ei glicio yn eich taflen waith. Ar ôl aseinio macro i'r siâp, gall ychwanegu llygoden dros domen helpu i'ch atgoffa beth mae'r siâp yn ei ddefnyddio yn y dyfodol. Mae'r erthygl hon yn dangos dau ddull i chi ychwanegu llygoden dros domen i siâp penodol yn Excel.

Ychwanegwch y llygoden dros y domen i siâp penodol gan ychwanegu hyperddolen
Ychwanegwch y llygoden dros y domen i siâp penodol gyda chod VBA

Ychwanegwch y llygoden dros y domen i siâp penodol gan ychwanegu hyperddolen

Gallwch ychwanegu hyperddolen gyda ScreenTip i siâp penodol yn y daflen waith. Gwnewch fel a ganlyn.

1. De-gliciwch y siâp sydd ei angen arnoch i ychwanegu llygoden dros domen, yna cliciwch hyperlink o'r ddewislen clicio ar y dde. Gweler y screenshot:

2. Yn y Mewnosod Hyperlink blwch deialog, cliciwch y SgrinTip botwm. Ac yn y Gosod Hyperlink ScreenTip blwch deialog, nodwch destun tip y sgrin y mae angen i chi ei arddangos wrth hofran dros y siâp gan lygoden. O'r diwedd cliciwch ar y OK botwm. Gweler y screenshot:

3. Pan fydd yn dychwelyd i'r Mewnosod Hyperlink blwch deialog, cliciwch y Llyfrnodi botwm. Yna rhowch A1 yn y Math ym mlwch cyfeirio celloedd y Dewiswch Lle yn y Ddogfen blwch deialog, ac yn olaf cliciwch y OK botwm.

4. Cliciwch ar y OK botwm yn y Mewnosod Hyperlink blwch deialog i orffen y hyperddolen yn creu.

Nawr gallwch weld tomen y sgrin yn arddangos wrth hofran dros y siâp gan lygoden.

Ychwanegwch y llygoden dros y domen i siâp penodol gyda chod VBA

Gallwch chi ychwanegu llygoden dros domen yn hawdd i siâp penodol ar ôl rhedeg y cod VBA canlynol.

1. Mae agor y daflen waith yn cynnwys y siâp y byddwch chi'n ei ddangos wrth symud y llygoden drosodd. Cliciwch ar y dde ar y tab dalen ac yna cliciwch View Code o'r ddewislen cyd-destun.

2. Yn y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr, copïwch y cod VBA isod i mewn i ffenestr y Cod.

Cod VBA 1: Ychwanegu llygoden dros y domen i siâp penodol

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. Cliciwch Mewnosod > Modiwlau. Yna nodwch isod god VBA yn ffenestr y Modiwl.

Cod VBA 2: Ychwanegu llygoden dros y domen i siâp penodol

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

Nodiadau:

1). Disodli'r “Cliciwch i redeg Macro"A"Rectangle 4”Gyda'ch testun blaen sgrin ac enw'r siâp penodol.
2). Amnewid "SymudRow" mewn llinell "Ffoniwch MoveRow"i'r enw macro rydych chi wedi'i neilltuo i'r siâp

3. Gwasgwch y F5 allwedd i redeg y cod. Yna ychwanegir y domen sgrin benodol at y siâp penodol ar unwaith.

Erthyglau perthnasol:

Offer Cynhyrchiant Swyddfa Gorau

Nodweddion Poblogaidd: Darganfod, Amlygu neu Adnabod Dyblygiadau   |  Dileu Rhesi Gwag   |  Cyfuno Colofnau neu Gelloedd heb Colli Data   |   Rownd heb Fformiwla ...
Super-edrych: VLookup Meini Prawf Lluosog  |   VLookup Gwerth Lluosog  |   VLookup Ar Draws Taflenni Lluosog   |   Edrych Niwlog ....
Rhestr gwympo Uwch: Creu Rhestr Gollwng yn Gyflym   |  Rhestr Gollwng Dibynnol   |  Rhestr Gollwng Aml-ddewis ....
Rheolwr Colofn: Ychwanegu Nifer Penodol o Golofnau  |  Symud Colofnau  |  Toglo Statws Gwelededd Colofnau Cudd  |  Cymharwch Ystodau a Cholofnau ...
Nodweddion dan Sylw: Ffocws ar y Grid   |  Golwg Dylunio   |   Bar Fformiwla Mawr   |  Rheolwr Llyfr Gwaith a Thaflen   |  Llyfrgell Adnoddau (Testun Auto)   |  Dewiswr Dyddiad   |  Cyfuno Taflenni Gwaith   |  Amgryptio/Dadgryptio Celloedd   |  Anfon E-byst trwy Restr   |  Hidlo Super   |   Hidlo Arbennig (hidlo mewn print trwm/italig/strikethrough...) ...
15 Set Offer Gorau:  12 Testun offer (Ychwanegu Testun, Dileu Cymeriadau,...)   |   50 + Siart Mathau (Siart Gantt,...)   |   40+ Ymarferol Fformiwlâu (Cyfrifwch oedran yn seiliedig ar ben-blwydd,...)   |   19 mewnosod offer (Mewnosod Cod QR, Mewnosod Llun o'r Llwybr,...)   |   12 Trosi offer (Rhifau i Eiriau, Trosi arian cyfred,...)   |   7 Uno a Hollti offer (Rhesi Cyfuno Uwch, Celloedd Hollt,...)   |   ... a mwy

Supercharge Eich Sgiliau Excel gyda Kutools for Excel, a Phrofiad Effeithlonrwydd Fel Erioed Erioed o'r blaen. Kutools for Excel Yn cynnig dros 300 o nodweddion uwch i hybu cynhyrchiant ac arbed amser.  Cliciwch Yma i Gael Y Nodwedd Sydd Ei Angen Y Mwyaf...

tab kte 201905

Office Tab Yn dod â rhyngwyneb Tabbed i Office, ac yn Gwneud Eich Gwaith yn Haws o lawer

  • Galluogi golygu a darllen tabbed yn Word, Excel, PowerPoint, Cyhoeddwr, Mynediad, Visio a Phrosiect.
  • Agor a chreu dogfennau lluosog mewn tabiau newydd o'r un ffenestr, yn hytrach nag mewn ffenestri newydd.
  • Yn cynyddu eich cynhyrchiant 50%, ac yn lleihau cannoedd o gliciau llygoden i chi bob dydd!
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