Note: The other languages of the website are Google-translated. Back to English

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:


Yr Offer Cynhyrchedd Swyddfa Gorau

Mae Kutools for Excel yn Datrys y rhan fwyaf o'ch Problemau, ac yn Cynyddu Eich Cynhyrchedd 80%

  • Ailddefnyddio: Mewnosod yn gyflym fformwlâu cymhleth, siartiau ac unrhyw beth rydych chi wedi'i ddefnyddio o'r blaen; Amgryptio Celloedd gyda chyfrinair; Creu Rhestr Bostio ac anfon e-byst ...
  • Bar Fformiwla Gwych (golygu llinellau lluosog o destun a fformiwla yn hawdd); Cynllun Darllen (darllen a golygu nifer fawr o gelloedd yn hawdd); Gludo i'r Ystod Hidlo...
  • Uno Celloedd / Rhesi / Colofnau heb golli Data; Cynnwys Celloedd Hollt; Cyfuno Rhesi / Colofnau Dyblyg... Atal Celloedd Dyblyg; Cymharwch y Meysydd...
  • Dewiswch Dyblyg neu Unigryw Rhesi; Dewiswch Blank Rows (mae pob cell yn wag); Darganfyddiad Gwych a Darganfyddiad Niwlog mewn Llawer o Lyfrau Gwaith; Dewis ar Hap ...
  • Copi Union Celloedd Lluosog heb newid cyfeirnod fformiwla; Auto Creu Cyfeiriadau i Daflenni Lluosog; Mewnosod Bwledi, Blychau Gwirio a mwy ...
  • Testun Detholiad, Ychwanegu Testun, Tynnu yn ôl Swydd, Tynnwch y Gofod; Creu ac Argraffu Subtotals Paging; Trosi rhwng Cynnwys a Sylwadau Celloedd...
  • Hidlo Super (arbed a chymhwyso cynlluniau hidlo i ddalenni eraill); Trefnu Uwch yn ôl mis / wythnos / dydd, amlder a mwy; Hidlo Arbennig gan feiddgar, italig ...
  • Cyfuno Llyfrau Gwaith a Thaflenni Gwaith; Uno Tablau yn seiliedig ar golofnau allweddol; Rhannwch Ddata yn Daflenni Lluosog; Trosi Swp xls, xlsx a PDF...
  • Mwy na 300 o nodweddion pwerus. Yn cefnogi Swyddfa / Excel 2007-2019 a 365. Yn cefnogi pob iaith. Defnydd hawdd yn eich menter neu sefydliad. Nodweddion llawn treial am ddim 30 diwrnod. Gwarant arian yn ôl 60 diwrnod.
tab kte 201905

Mae Tab Office yn Dod â rhyngwyneb Tabbed i'r Swyddfa, a 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!
gwaelod officetab
sylwadau (8)
Dim sgôr eto. Byddwch y cyntaf i sgorio!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo, Is-brawf() Ar Gwall Ail-ddechrau Dim Nesaf xShape As Shape Set xShape = ActiveSheet.Shapes("Petryal 4") Os Nad Ydy xShape Yn Dim Yna _ ActiveSheet.Hyperlinks.Add xShape, "", "", ScreenTip:=" Cliciwch i redeg Macro " Mae cod Diwedd Is Diolch yn gweithio'n wych, ond mae'n dileu'r macro Assigned. Pan fyddaf yn defnyddio Awgrym Sgrin a phwyso ar siâp nid yw Macro Deos yn gweithio. A oes unrhyw ffordd i drwsio hynny? Defnyddio tip Sgrin ar siâp a pharhau i weithio macro? Diolch i chi
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Hoffwn pe bai rhywun yn datrys y broblem hon.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Diwrnod da,
Ceisiwch fel isod i ddatrys y broblem.

Cam 1:
Yn y daflen waith sy'n cynnwys y siâp y byddwch yn ei ddangos, cliciwch ar y dde ar y tab taflen a dewiswch Gweld Cod o'r ddewislen cyd-destun. Ac yna copïwch isod VBA i ffenestr y Cod:

Is-daflen Waith Breifat_SelectionChange(FalVal Target As Range)
Os yw Target.Address = Ystod ("A1").Cyfeiriad Yna
Ffoniwch MoveRow
Gorffennwch Os
Is-End

Cam 2:
Agorwch ffenestr cod y Modiwl, copïwch y cod isod i ffenestr y Modiwl.
Newidiwch "MoveRow" yn y llinell Call MoveRow i'r enw macro a neilltuwyd gennych i'r siâp, ac yna pwyswch yr allwedd F5 i redeg y cod.
Diolch am eich sylw.

Is-destun()
Dim xShape As Shape
Dim xRg Fel Ystod
Ar Ail-ddechrau Gwall Nesaf
Application.EnableEvents = Gau
Gosod xShape = ActiveSheet.Shapes ("Petryal 1")
Os Na Ydy xShape Yn Dim Yna
ActiveSheet.Hyperlinks.Add xShape, "", "A1", ScreenTip:="Cliciwch i redeg Macro"
Gorffennwch Os
If ActiveSheet.Hyperlinks(1).SubAddress = "A1" Yna
Ffoniwch MoveRow
Gorffennwch Os
Application.EnableEvents = Gwir
Is-End
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Annwyl Evaldas,
Sori am y camgymeriad. Ceisiwch fel isod i ddatrys y broblem.

Cam 1:
Yn y daflen waith sy'n cynnwys y siâp y byddwch yn ei ddangos, cliciwch ar y dde ar y tab taflen a dewiswch Gweld Cod o'r ddewislen cyd-destun. Ac yna copïwch isod VBA i ffenestr y Cod:

Is-daflen Waith Breifat_SelectionChange(FalVal Target As Range)
Os yw Target.Address = Ystod ("A1").Cyfeiriad Yna
Ffoniwch MoveRow
Gorffennwch Os
Is-End

Cam 2:
Agorwch ffenestr cod y Modiwl, copïwch y cod isod i ffenestr y Modiwl.
Newidiwch "MoveRow" yn y llinell Call MoveRow i'r enw macro a neilltuwyd gennych i'r siâp, ac yna pwyswch yr allwedd F5 i redeg y cod.
Diolch am eich sylw.

Is-destun()
Dim xShape As Shape
Dim xRg Fel Ystod
Ar Ail-ddechrau Gwall Nesaf
Application.EnableEvents = Gau
Gosod xShape = ActiveSheet.Shapes ("Petryal 1")
Os Na Ydy xShape Yn Dim Yna
ActiveSheet.Hyperlinks.Add xShape, "", "A1", ScreenTip:="Cliciwch i redeg Macro"
Gorffennwch Os
If ActiveSheet.Hyperlinks(1).SubAddress = "A1" Yna
Ffoniwch MoveRow
Gorffennwch Os
Application.EnableEvents = Gwir
Is-End
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Ddim yn gweithio..... os oes hyperddolen yn gysylltiedig â'r siâp yna ni fydd y macro yn rhedeg....
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Annwyl Niall,
Mae'r cod yn gweithio'n dda yn fy achos i. Allwch chi ddarparu eich fersiwn Office? Diolch i chi am eich sylw.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Annwyl Niall,
Sori am y camgymeriad. Ceisiwch fel isod i ddatrys y broblem.

Cam 1:
Yn y daflen waith sy'n cynnwys y siâp y byddwch yn ei ddangos, cliciwch ar y dde ar y tab taflen a dewiswch Gweld Cod o'r ddewislen cyd-destun. Ac yna copïwch isod VBA i ffenestr y Cod:

Is-daflen Waith Breifat_SelectionChange(FalVal Target As Range)
Os yw Target.Address = Ystod ("A1").Cyfeiriad Yna
Ffoniwch MoveRow
Gorffennwch Os
Is-End

Cam 2:
Agorwch ffenestr cod y Modiwl, copïwch y cod isod i ffenestr y Modiwl.
Newidiwch "MoveRow" yn y llinell Call MoveRow i'r enw macro a neilltuwyd gennych i'r siâp, ac yna pwyswch yr allwedd F5 i redeg y cod.
Diolch am eich sylw.

Is-destun()
Dim xShape As Shape
Dim xRg Fel Ystod
Ar Ail-ddechrau Gwall Nesaf
Application.EnableEvents = Gau
Gosod xShape = ActiveSheet.Shapes ("Petryal 1")
Os Na Ydy xShape Yn Dim Yna
ActiveSheet.Hyperlinks.Add xShape, "", "A1", ScreenTip:="Cliciwch i redeg Macro"
Gorffennwch Os
If ActiveSheet.Hyperlinks(1).SubAddress = "A1" Yna
Ffoniwch MoveRow
Gorffennwch Os
Application.EnableEvents = Gwir
Is-End
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Trowch eich siâp yn ddelwedd. Mae gan ddelweddau awgrymiadau offer.
Nid oes unrhyw sylwadau wedi'u postio yma eto
Gadewch eich sylwadau
Postio fel Gwestai
×
Graddiwch y swydd hon:
0   Cymeriadau
Lleoliadau a Awgrymir