Cum se introduce o tabelă mobilă sau o cutie de text în foaia de lucru Excel?

Dacă aveți un tabel sau o casetă text cu câteva date importante pe care doriți să fie întotdeauna vizibile pe ecranul foii de lucru, chiar dacă derulați în sus sau în jos foaia de lucru. Aceasta poate fi o sarcină interesantă, în acest articol, voi introduce un truc rapid pentru a-l rezolva.

Introduceți tabelul plutitor în Excel cu cod VBA

Introduceți casetă text plutitoare în Excel cu cod VBA

Introduceți tabelul plutitor în Excel cu cod VBA

Nu există nicio modalitate directă de a insera tabelul flotant, deci trebuie să convertiți datele tabelului într-o imagine și apoi să aplicați un cod pentru ao termina, vă rugăm să procedați astfel:

1. Selectați tabelul de date pe care doriți să îl păstrați vizibil, apoi faceți clic pe Copiați > Copiați ca imagine în temeiul Acasa fila, vezi captura de ecran:

2. În pop-out Copiați imaginea fereastră de dialog, selectați Așa cum se arată pe ecran de la Aspect secțiune și alegeți Imagine în temeiul Format secțiune, faceți clic pe OK pentru a închide dialogul, apoi faceți clic pe o celulă pentru a afișa imaginea, în cele din urmă, apăsați Ctrl + V pentru a lipi această imagine, vedeți captura de ecran:

3. După ce convertiți tabelul în imagine, faceți clic dreapta pe fila foaie care conține imaginea tabelului pe care doriți să o păstrați întotdeauna vizibilă și alegeți Afișați codul din meniul contextual și în meniul deschis Microsoft Visual Basic pentru aplicații fereastră, copiați și lipiți următorul cod în modulul gol:

Cod VBA: introduceți tabelul flotant în Excel:

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

notițe: În acest cod, Poza1 este numele imaginii pe care l-ați creat, vă rugăm să îl modificați în funcție de nevoile dvs.

4. Apoi salvați și închideți fereastra de cod, acum, când derulați foaia de lucru și faceți clic pe o celulă, imaginea tabelului este întotdeauna păstrată în colțul din dreapta sus al foii de lucru.

Introduceți casetă text plutitoare în Excel cu cod VBA

Pentru a insera o casetă de text plutitoare, iată și un cod VBA pentru a rezolva această sarcină.

1. Mai întâi, ar trebui să inserați o casetă text din fișierul Dezvoltator fila, faceți clic pe Dezvoltator > Insera > Casetă text (control ActiveX), apoi desenați caseta text și introduceți informațiile în caseta text după cum aveți nevoie. Vedeți captura de ecran:

2. Apoi faceți clic dreapta pe fila de foaie care conține caseta de text pe care doriți să o păstrați întotdeauna vizibilă și alegeți Afișați codul din meniul contextual și în meniul deschis Microsoft Visual Basic pentru aplicații fereastră, copiați și lipiți următorul cod în spațiul gol Module:

Cod VBA: introduceți o casetă de text plutitoare în Excel:

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

notițe: În acest cod, TextBox1 este numele casetei text pe care l-ați inserat, vă rugăm să îl modificați după nevoile dvs.

3. Apoi salvați și închideți fereastra de cod, acum, când derulați foaia de lucru către oriunde, caseta de text inserată este păstrată întotdeauna în colțul din dreapta sus al foii de lucru.

---

Cele mai bune instrumente de productivitate Office

Kutools pentru Excel vă rezolvă majoritatea problemelor și vă crește productivitatea cu 80%

• reutilizarea: Introduceți rapid formule complexe, diagrame și orice ai folosit anterior; Criptați celulele cu parola; Creați o listă de corespondență și trimiteți e-mailuri ...
• Super Formula Bar (editați cu ușurință mai multe linii de text și formulă); Layout de citire (citiți și editați cu ușurință un număr mare de celule); Lipiți la interval filtrat...
• Merge celule / rânduri / coloane fără a pierde date; Conținut de celule divizate; Combinați rânduri / coloane duplicate... Prevenirea celulelor duplicate; Comparați gamele...
• Selectați Duplicat sau Unic Rânduri; Selectați Rânduri goale (toate celulele sunt goale); Super Find și Fuzzy Find în multe cărți de lucru; Selectare aleatorie ...
• Copie exactă Mai multe celule fără modificarea referinței formulelor; Creați automat referințe la foi multiple; Introduceți gloanțe, Casete de selectare și multe altele ...
• Extrageți textul, Adăugați text, eliminați după poziție, Eliminați spațiul; Creați și imprimați subtotaluri de paginare; Convertiți conținutul dintre celule și comentarii...
• Super Filtru (salvați și aplicați scheme de filtrare altor foi); Sortare avansată după lună / săptămână / zi, frecvență și multe altele; Filtru special cu bold, italic ...
• Combinați cărți de lucru și foi de lucru; Merge Tables pe baza coloanelor cheie; Împărțiți datele în mai multe foi; Conversia în loturi xls, xlsx și PDF...
• Peste 300 de funcții puternice. Suportă Office / Excel 2007-2021 și 365. Acceptă toate limbile. Implementare ușoară în întreprinderea sau organizația dvs. Funcții complete Probă gratuită de 30 de zile. Garanție de returnare a banilor de 60 de zile.

Citeşte mai mult ... Descărcare gratuită... Cumpărare... 

---

Fila Office aduce interfața cu file în Office și vă face munca mult mai ușoară

• Activați editarea și citirea cu file în Word, Excel, PowerPoint, Publisher, Access, Visio și Project.
• Deschideți și creați mai multe documente în filele noi ale aceleiași ferestre, mai degrabă decât în ​​ferestrele noi.
• Vă crește productivitatea cu 50% și reduce sute de clicuri de mouse pentru dvs. în fiecare zi!

Citeşte mai mult ... Descărcare gratuită... Cumpărare...