Ugrás a tartalomra

Hogyan lehet úszó táblázatot vagy szövegdobozt beszúrni az Excel munkalapba?

Ha van táblája vagy szövegdoboza néhány fontos adattal, amelyet mindig a munkalap képernyőn szeretne látni, annak ellenére, hogy felfelé vagy lefelé görget a munkalapon. Ez érdekes feladat lehet, ez a cikk, bemutatok egy gyors trükköt annak megoldására.

Helyezzen be úszó táblázatot az Excelbe VBA kóddal

Helyezzen be úszó szövegdobozt az Excelbe VBA kóddal


nyíl kék jobb buborék Helyezzen be úszó táblázatot az Excelbe VBA kóddal

Nincs közvetlen módja az úszó tábla behelyezésének, ezért a tábla adatait képpé kell konvertálni, majd a befejezéséhez kódot kell alkalmaznia, kérjük, tegye a következőket:

1. Jelölje ki azt az adattáblát, amelyet láthatóan szeretne tartani, majd kattintson a gombra másolat > Másolás képként alatt a Kezdőlap fül, lásd a képernyőképet:

doc beszúrja az úszóasztalt 1

2. A kiugrott Kép másolása párbeszédpanelen válassza ki A képernyőn látható módon tól megjelenés rész, és válassza Kép alatt a kialakított szakasz, kattintson OK a párbeszédpanel bezárásához, majd a kép megjelenítéséhez kattintson egy cellára, végül nyomja meg a gombot Ctrl + V a kép beillesztéséhez lásd a képernyőképet:

doc beszúrja az úszóasztalt 2

3. Miután átalakította a táblázatot képpé, kattintson a jobb gombbal a lapfülre, amely tartalmazza azt a táblázatos képet, amelyet mindig látni szeretne, és válassza Kód megtekintése a helyi menüből és a megnyitottból Microsoft Visual Basic alkalmazásokhoz ablakba másolja és illessze be a következő kódot az üres modulba:

VBA kód: Az úszó tábla beillesztése az Excelbe:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'Updateby Extendoffice
    Application.ScreenUpdating = False
    If Target.Cells.Count > 1 Then Exit Sub
        With ActiveSheet.Shapes("Picture1")
            .Top = ActiveWindow.VisibleRange.Top + 5
            .Left = ActiveWindow.VisibleRange.Left + ActiveWindow.VisibleRange.Width - .Width - 45
        End With
    Application.ScreenUpdating = False
End Sub

Megjegyzések: Ebben a kódban az Kép1 az Ön által létrehozott képnév, kérjük, változtassa meg igénye szerint.

doc beszúrja az úszóasztalt 3

4. Ezután mentse el és zárja be a kódablakot. Most, amikor görgeti a munkalapot és rákattint egy cellára, a táblázat képe mindig a munkalap jobb felső sarkában marad.


nyíl kék jobb buborék Helyezzen be úszó szövegdobozt az Excelbe VBA kóddal

Lebegő szövegdoboz beszúrásához itt van egy VBA-kód is a feladat megoldására.

1. Először be kell illesztenie egy szövegdobozt a Fejlesztő fülre kattintva Fejlesztő > betétlap > Szövegdoboz (ActiveX-vezérlő), majd rajzolja meg a szövegdobozt, és szükség szerint írja be az információkat a szövegmezőbe. Lásd a képernyőképet:

doc beszúrja az úszóasztalt 4

2. Ezután kattintson a jobb gombbal a lapfülre, amely tartalmazza azt a szövegdobozt, amelyet mindig láthatóan szeretne tartani, majd válassza a Kód megtekintése a helyi menüből és a megnyitottból Microsoft Visual Basic for Applications ablakba másolja és illessze be a következő kódot az üresbe Modulok:

VBA kód: Lebegő szövegdoboz beszúrása az Excelbe:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'Updateby Extendoffice
    Application.ScreenUpdating = False
    With ActiveWindow.VisibleRange
        TextBox1.Top = .Top + 5
        TextBox1.Left = .Left + .Width - TextBox1.Width - 45
    End With
    Application.ScreenUpdating = True
End Sub

Megjegyzések: Ebben a kódban az 1. szövegdoboz a beillesztett szövegdoboz neve, kérjük, változtassa meg igénye szerint.

doc beszúrja az úszóasztalt 5

3. Ezután mentse el és zárja be a kódablakot. Most, amikor a munkalapot bárhová görgeti, a beszúrt szövegdoboz mindig a munkalap jobb felső sarkában marad.


A munkalap ablakának nagyítása vagy minimalizálása

A munkalap ablaka maximalizálása érdekében több hely szabadulhat fel a felhasználók számára, az Excel programban maximalizálhatja a munkalap ablakát a szalag, a képletsáv vagy az állapotsor elrejtésével. Kutools az Excel számára's Munkaterület egyetlen kattintással segíthet elrejteni a szalagot. Töltse le és ingyenes próbaverziója a Kutools for Excel alkalmazást most!

A legjobb irodai hatékonyságnövelő eszközök

🤖 Kutools AI Aide: Forradalmasítsa az adatelemzést a következők alapján: Intelligens végrehajtás   |  Kód létrehozása  |  Hozzon létre egyéni képleteket  |  Adatok elemzése és diagramok létrehozása  |  A Kutools funkciók meghívása...
Népszerű szolgáltatások: Ismétlődések keresése, kiemelése vagy azonosítása   |  Üres sorok törlése   |  Oszlopok vagy cellák kombinálása adatvesztés nélkül   |   Kerek Formula nélkül ...
Szuper keresés: Több kritérium VLookup    Többértékű VLookup  |   VLookup több munkalapon   |   Fuzzy Lookup ....
Speciális legördülő lista: Gyors legördülő lista létrehozása   |  Függő legördülő lista   |  Többszörösen válassza ki a legördülő listát ....
Oszlopkezelő: Adjon meg egy adott számú oszlopot  |  Oszlopok mozgatása  |  Kapcsolja be a Rejtett oszlopok láthatósági állapotát  |  Tartományok és oszlopok összehasonlítása ...
Kiemelt funkciók: Rács fókusz   |  Design nézet   |   Nagy Formula bár    Munkafüzet és lapkezelő   |  Erőforrás-könyvtár (Auto szöveg)   |  Dátumválasztó   |  Kombinálja a munkalapokat   |  Cellák titkosítása/dekódolása    E-mailek küldése listánként   |  Szuper szűrő   |   Speciális szűrő (félkövér/dőlt/áthúzott szűrés...) ...
A 15 legjobb eszközkészlet12 szöveg Eszközök (Szöveg hozzáadása, Karakterek eltávolítása,...)   |   50 + Táblázatos Típusai (Gantt-diagram,...)   |   40+ Praktikus képletek (Számolja ki az életkort a születésnap alapján,...)   |   19 beszúrás Eszközök (Helyezze be a QR-kódot, Kép beszúrása az útvonalból,...)   |   12 Átalakítás Eszközök (Számok szavakig, Valuta átváltás,...)   |   7 Egyesítés és felosztás Eszközök (Haladó kombinált sorok, Hasított sejtek,...)   |   ... és több

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...

Leírás


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!
Comments (8)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Hola, buenos días.

Mi pregunta es cómo mantener siempre visible la imagen flotante aun cuando me desplace en distintas filas o columnas de la hoja.

Saludos y gracias por compartir tus conocimientos.
This comment was minimized by the moderator on the site
The names are the same but for some reason I am still coming across runtime error 424 object required?
This comment was minimized by the moderator on the site
Hi,
Somewhere between steps 2 and 3 on "Insert Floating Table In Excel With VBA Code" I missed how to name the picture I just copy and pasted.

Tom
This comment was minimized by the moderator on the site
Top left corner next to the box you input the formula
This comment was minimized by the moderator on the site
Same has happened to me too, how do you know the name of the picture file?
This comment was minimized by the moderator on the site
Hello, Peter,
To know the name of the picture, you just need to select the picture, and then view the name from the Name Box in the top left corner.
This comment was minimized by the moderator on the site
If I re-size the window, the picture floats too far into the middle. How do I make the picture float to the same margin from the screen no matter what size window I have?
This comment was minimized by the moderator on the site
Thank you-this solved my problem very easily!
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations