Hur lägger jag till muspekaren till en viss form i Excel?

I många fall måste du tilldela makro till en viss form för att köra makrot genom att klicka på det i kalkylbladet. Efter att ha tilldelat formen makro kan du lägga till musen över spetsen för att påminna dig om vad formen gör i framtida användning. Den här artikeln visar två metoder för att lägga till muspekaren till en viss form i Excel.

Lägg musen över spetsen till en viss form genom att lägga till hyperlänk
Lägg muspekaren över till en viss form med VBA-kod

Lägg musen över spetsen till en viss form genom att lägga till hyperlänk

Fantastisk! Använda effektiva flikar i Excel som Chrome, Firefox och Safari!

Spara 50% av din tid och minska tusentals musklick åt dig varje dag!

Du kan lägga till hyperlänk med ScreenTip till en viss form i kalkylbladet. Gör så här.

1. Högerklicka på den form du behöver för att lägga muspekaren och klicka sedan på Hyperlänk från högerklickmenyn. Se skärmdump:

2. I Infoga hyperlänk dialogrutan, klicka på skärm knapp. Och i Ställ in skärmtips för hyperlänk dialogrutan, ange den skärmtips du behöver visa medan du svävar över formen med musen. Klicka slutligen på OK knapp. Se skärmdump:

3. När den återgår till Infoga hyperlänk dialogrutan, klicka på Bokmärke knapp. Ange sedan A1 i rutan Typ i cellreferensrutan Välj Plats i dokument och slutligen klicka på OK knapp.

4. Klicka på OK knapp i Infoga hyperlänk dialogrutan för att avsluta skapandet av hyperlänken.

Nu kan du se skärmspetsen visas när du svävar över formen med musen.

Lägg muspekaren över till en viss form med VBA-kod

Du kan enkelt lägga muspekaren till en viss form efter att ha kört följande VBA-kod.

1. Öppna kalkylbladet innehåller den form du kommer att visa tips när du flyttar musen över. Högerklicka på arkfliken och klicka sedan på Visa kod från snabbmenyn.

2. I Microsoft Visual Basic för applikationer kopiera nedanstående VBA-kod till kodfönstret.

VBA-kod 1: Lägg muspekaren till en viss form

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. klick Insert > Modulerna. Ange sedan VBA-koden nedan i modulfönstret.

VBA-kod 2: Lägg muspekaren till en viss form

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

Anmärkningar:

1). Byt ut “Klicka för att köra makro"Och"Rektangel 4”Med din skärmtips och namnet på den specifika formen.

2). Byta ut "MoveRow" i kö "Ring MoveRow"till det makronamn du har tilldelat formen

3. tryck på F5 för att köra koden. Sedan läggs den angivna skärmspetsen till den specifika formen omedelbart.

Relaterade artiklar:

De bästa Office-produktivitetsverktygen

Kutools för Excel löser de flesta av dina problem och ökar din produktivitet med 80%

återanvändning: Sätt snabbt i komplexa formler, diagram och allt som du har använt tidigare; Kryptera celler med lösenord; Skapa e-postlista och skicka e-post ...
Super Formula Bar (enkelt redigera flera rader med text och formel); Läslayout (enkelt läsa och redigera ett stort antal celler); Klistra in i filtrerat intervall...
Sammanfoga celler / rader / kolumner utan att förlora data; Delat cellinnehåll; Kombinera duplicerade rader / kolumner... Förhindra duplicerade celler; Jämför intervall...
Välj Duplicera eller Unikt Rader; Välj tomma rader (alla celler är tomma); Super Find och Fuzzy Find i många arbetsböcker; Slumpmässigt val ...
Exakt kopia Flera celler utan att ändra formelreferens; Skapa referenser automatiskt till flera ark; Sätt in kulor, Kryssrutor och mer ...
Extrahera text, Lägg till text, ta bort efter position, Ta bort mellanslag; Skapa och skriva ut personsökningstalsatser; Konvertera mellan celler innehåll och kommentarer...
Superfilter (spara och tillämpa filterscheman på andra ark); Avancerad sortering efter månad / vecka / dag, frekvens och mer; Specialfilter av fet, kursiv ...
Kombinera arbetsböcker och arbetsblad; Sammanfoga tabeller baserat på nyckelkolumner; Dela data i flera ark; Batchkonvertera xls, xlsx och PDF...
Mer än 300 kraftfulla funktioner. Stöder Office / Excel 2007-2021 och 365. Stöder alla språk. Enkel implementering i ditt företag eller organisation. Fullständiga funktioner 30 dagars gratis provperiod. 60 dagars pengarna tillbaka-garanti.

Läs mer... Gratis nedladdning... Köp...

Fliken Office ger ett flikgränssnitt till Office och gör ditt arbete mycket enklare

Aktivera flikredigering och läsning i Word, Excel, PowerPoint, Publisher, Access, Visio och Project.
Öppna och skapa flera dokument i nya flikar i samma fönster, snarare än i nya fönster.
Ökar din produktivitet med 50 % och minskar hundratals musklick för dig varje dag!

Läs mer... Gratis nedladdning... Köp...

Kommentarer (8)

Inga betyg än. Bli först med att betygsätta!

Evaldas

ca 6 år sedan

#18285

Denna kommentar minimerades av moderatoren på webbplatsen

Hej, Sub Test() Vid fel Fortsätt Nästa Dim xShape As Shape Set xShape = ActiveSheet.Shapes("Rektangel 4") Om inte xShape är ingenting då _ ActiveSheet.Hyperlinks.Add xShape, "", "", ScreenTip:=" Klicka för att köra makro " End Sub Tackkod fungerar utmärkt, men det tar bort Tilldelat makro. När jag använder Screen Tip och trycker på shape Macro Deos fungerar inte. Finns det något sätt att fixa det? Använder du skärmtips om formen och fortsätter makrot att fungera? Tack

Svara

Ringleader Evaldas

ca 4 år sedan

#18286

Denna kommentar minimerades av moderatoren på webbplatsen

Jag önskar att någon kunde lösa detta problem.

Svara

kristall Ringleader

ca 4 år sedan

#18287

Denna kommentar minimerades av moderatoren på webbplatsen

God dag,
Försök enligt nedan för att lösa problemet.

Steg 1:
I kalkylbladet innehåller formen du kommer att visa tips, högerklicka på arkfliken och välj Visa kod från snabbmenyn. Och kopiera sedan nedan VBA till kodfönstret:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Om Target.Address = Range("A1"). Adress Då
Ring MoveRow
End If
End Sub

Steg 2:
Öppna modulkodfönstret, kopiera nedanstående kod till modulfönstret.
Ändra "MoveRow" på raden Call MoveRow till det makronamn du tilldelade formen och tryck sedan på F5-tangenten för att köra koden.
Tack för din kommentar.

Undertext()
Dim xShape As Shape
Dim xRg As Range
On Error Resume Next
Application.EnableEvents = False
Ställ in xShape = ActiveSheet.Shapes("Rektangel 1")
Om inte xShape är ingenting då
ActiveSheet.Hyperlinks.Add xShape, "", "A1", ScreenTip:="Klicka för att köra makro "
End If
Om ActiveSheet.Hyperlinks(1).SubAddress = "A1" Då
Ring MoveRow
End If
Application.EnableEvents = True
End Sub

Svara

Report

kristall Evaldas

ca 4 år sedan

#18288

Denna kommentar minimerades av moderatoren på webbplatsen

Kära Evaldas,
Ber om ursäkt för misstaget. Försök enligt nedan för att lösa problemet.

Steg 1:
I kalkylbladet innehåller formen du kommer att visa tips, högerklicka på arkfliken och välj Visa kod från snabbmenyn. Och kopiera sedan nedan VBA till kodfönstret:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Om Target.Address = Range("A1"). Adress Då
Ring MoveRow
End If
End Sub

Steg 2:
Öppna modulkodfönstret, kopiera nedanstående kod till modulfönstret.
Ändra "MoveRow" på raden Call MoveRow till det makronamn du tilldelade formen och tryck sedan på F5-tangenten för att köra koden.
Tack för din kommentar.

Undertext()
Dim xShape As Shape
Dim xRg As Range
On Error Resume Next
Application.EnableEvents = False
Ställ in xShape = ActiveSheet.Shapes("Rektangel 1")
Om inte xShape är ingenting då
ActiveSheet.Hyperlinks.Add xShape, "", "A1", ScreenTip:="Klicka för att köra makro "
End If
Om ActiveSheet.Hyperlinks(1).SubAddress = "A1" Då
Ring MoveRow
End If
Application.EnableEvents = True
End Sub

Svara

Report

Niall

ca 4 år sedan

#24097

Denna kommentar minimerades av moderatoren på webbplatsen

Fungerar inte..... om det finns en hyperlänk kopplad till formen så kommer makrot inte att köras....

Svara

kristall Niall

ca 4 år sedan

#24098

Denna kommentar minimerades av moderatoren på webbplatsen

Kära Niall,
Koden fungerar bra i mitt fall. Kan du tillhandahålla din Office-version? Tack för din kommentar.

Svara

Report

kristall Niall

ca 4 år sedan

#24099

Denna kommentar minimerades av moderatoren på webbplatsen

Kära Niall,
Ber om ursäkt för misstaget. Försök enligt nedan för att lösa problemet.

Steg 1:
I kalkylbladet innehåller formen du kommer att visa tips, högerklicka på arkfliken och välj Visa kod från snabbmenyn. Och kopiera sedan nedan VBA till kodfönstret:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Om Target.Address = Range("A1"). Adress Då
Ring MoveRow
End If
End Sub

Steg 2:
Öppna modulkodfönstret, kopiera nedanstående kod till modulfönstret.
Ändra "MoveRow" på raden Call MoveRow till det makronamn du tilldelade formen och tryck sedan på F5-tangenten för att köra koden.
Tack för din kommentar.

Undertext()
Dim xShape As Shape
Dim xRg As Range
On Error Resume Next
Application.EnableEvents = False
Ställ in xShape = ActiveSheet.Shapes("Rektangel 1")
Om inte xShape är ingenting då
ActiveSheet.Hyperlinks.Add xShape, "", "A1", ScreenTip:="Klicka för att köra makro "
End If
Om ActiveSheet.Hyperlinks(1).SubAddress = "A1" Då
Ring MoveRow
End If
Application.EnableEvents = True
End Sub

Svara

Report

David Darby

ca 3 år sedan

#30961

Denna kommentar minimerades av moderatoren på webbplatsen

Konvertera din form till en bild. Bilder har verktygstips.

Svara

Det finns inga kommentarer här ännu