Hogyan adhatjuk meg az egérrel a csúcsot egy bizonyos alakzathoz az Excelben?
Sok esetben makrót kell rendelnie egy bizonyos alakhoz, hogy a makrót a munkalapra kattintva futtassa. Miután makrót rendelt az alakzathoz, az egér hozzáadása a hegy fölé segíthet emlékeztetni arra, hogy az alak mit fog használni a jövőben. Ez a cikk két módszert mutat be, hogy az egérrel a csúcsot hozzáadhatja az Excel egy bizonyos alakjához.
Vigye az egeret a csúcsra egy bizonyos alakzatra a hiperhivatkozás hozzáadásával
VBA kóddal adjon egérrel egy hegyre egy bizonyos alakzatot
Vigye az egeret a csúcsra egy bizonyos alakzatra a hiperhivatkozás hozzáadásával
A ScreenTip segítségével hiperhivatkozást adhat a munkalap bizonyos alakzatához. Kérjük, tegye a következőket.
1. Kattintson a jobb egérgombbal az alakzathoz, amelyet hozzá kell adni az egér fölé, majd kattintson a gombra Hiperhivatkozás a jobb egérgombbal kattintva. Lásd a képernyőképet:
2. Ban,-ben Hyperlink beszúrása párbeszédpanelen kattintson a Képernyőtipp gomb. És a Állítsa be a hiperhivatkozás képernyőtippjét párbeszédpanelen írja be a megjelenítendő képernyőtipp szövegét, miközben az egérrel az alakzat fölé viszi az egeret. Végül kattintson a gombra OK gomb. Lásd a képernyőképet:
3. Amikor visszatér a Hyperlink beszúrása párbeszédpanelen kattintson a Könyvjelző gomb. Ezután írja be az A1 értéket a Típus mezőbe a Válassza a Hely a dokumentumban lehetőséget párbeszédpanelt, és végül kattintson a OK gombot.
4. Kattintson a OK gombot a Hyperlink beszúrása párbeszédpanel a hiperhivatkozás létrehozásának befejezéséhez.
Most láthatja, hogy a képernyő csúcsa megjelenik, amikor az egérrel az alak fölé viszi az egeret.
VBA kóddal adjon egérrel egy hegyre egy bizonyos alakzatot
Az alábbi VBA-kód futtatása után könnyedén hozzáadhatja az egeret a csúcshoz egy bizonyos alakzathoz.
1. Nyissa meg azt a munkalapot, amely tartalmazza azt az alakzatot, amelyet az egér áthúzásakor megjelenít. Kattintson a jobb gombbal a lap fülre, majd a helyi menüben kattintson a Kód megtekintése elemre.
2. Ban,-ben Microsoft Visual Basic for Applications ablakba, kérjük, másolja az alábbi VBA kódot a Kód ablakba.
1. VBA-kód: Vigye az egeret a csúcs fölé egy bizonyos alakzathoz
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. kettyenés betétlap > Modulok. Ezután írja be a VBA kód alatt a Modul ablakot.
2. VBA-kód: Vigye az egeret a csúcs fölé egy bizonyos alakzathoz
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
Megjegyzések:
3. megnyomni a F5 gombot a kód futtatásához. Ezután a megadott képernyőhegy azonnal hozzáadódik a bizonyos alakhoz.
Kapcsolódó cikkek:
- Hogyan lehet automatikusan megváltoztatni az alak méretét az Excel meghatározott cellájának értékétől függően?
- Hogyan lehet kitölteni egy alakot átlátszó háttérszínnel az Excelben?
- Hogyan lehet elrejteni vagy elrejteni egy bizonyos alakzatot az Excel megadott cellája alapján?
A legjobb irodai hatékonyságnövelő eszközök
Töltsd fel Excel-készségeidet a Kutools for Excel segítségével, és tapasztald meg a még soha nem látott hatékonyságot. A Kutools for Excel több mint 300 speciális funkciót kínál a termelékenység fokozásához és az időmegtakarításhoz. Kattintson ide, hogy megszerezze a leginkább szükséges funkciót...
Az Office lap füles felületet hoz az Office-ba, és sokkal könnyebbé teszi a munkáját
- Füles szerkesztés és olvasás engedélyezése Wordben, Excelben és PowerPointban, Publisher, Access, Visio és Project.
- Több dokumentum megnyitása és létrehozása ugyanazon ablak új lapjain, mint új ablakokban.
- 50% -kal növeli a termelékenységet, és naponta több száz kattintással csökkenti az egér kattintását!