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 Acasă 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.
Maximizați sau minimizați fereastra foii de lucru
Pentru a maximiza fereastra foii de lucru poate elibera mai mult spațiu pentru utilizatori, în Excel, puteți maximiza fereastra foii de lucru ascunzând panglica, bara de formule sau bara de stare. Kutools pentru Excel's Zona de lucru vă poate ajuta să ascundeți panglica cu un singur clic. Descărcați și probați gratuit Kutools pentru Excel acum!
Cele mai bune instrumente de productivitate de birou
Îmbunătățiți-vă abilitățile Excel cu Kutools pentru Excel și experimentați eficiența ca niciodată. Kutools pentru Excel oferă peste 300 de funcții avansate pentru a crește productivitatea și a economisi timp. Faceți clic aici pentru a obține funcția de care aveți cea mai mare nevoie...
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!