Come inserire una tabella mobile o una casella di testo nel foglio di lavoro di Excel?

Se si dispone di una tabella o di una casella di testo con alcuni dati importanti che si desidera siano sempre visibili nella schermata del foglio di lavoro anche se si scorre verso l'alto o verso il basso il foglio di lavoro. Questo potrebbe essere un compito interessante, in questo articolo, introdurrò un rapido trucco per risolverlo.

Inserisci tabella mobile in Excel con codice VBA

Inserisci una casella di testo mobile in Excel con codice VBA

Inserisci tabella mobile in Excel con codice VBA

Non esiste un modo diretto per inserire la tabella mobile, quindi è necessario convertire i dati della tabella in un'immagine, quindi applicare un codice per finirlo, per favore fai come segue:

1. Seleziona la tabella dati che desideri mantenere visibile, quindi fai clic su Copia > Copia come immagine sotto il Casa scheda, vedi screenshot:

2. Nel saltò fuori Copia immagine finestra di dialogo, selezionare Come mostrato sullo schermo dal Forma sezione, e scegliere Immagine sotto il Formato , fai click su OK per chiudere la finestra di dialogo, quindi fare clic su una cella per visualizzare l'immagine, infine premere Ctrl + V per incollare questa immagine, vedi screenshot:

3. Dopo aver convertito la tabella in immagine, fai clic con il pulsante destro del mouse sulla scheda del foglio che contiene l'immagine della tabella che desideri mantenere sempre visibile e scegli Visualizza codice dal menu contestuale e nel file Microsoft Visual Basic per le applicazioni finestra, copia e incolla il seguente codice nel modulo vuoto:

Codice VBA: inserisci una tabella mobile in 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

Note:: In questo codice, il Picure1 è il nome dell'immagine che hai creato, modificalo secondo le tue necessità.

4. Quindi salva e chiudi la finestra del codice, ora, quando scorri il foglio di lavoro e fai clic su una cella, l'immagine della tabella viene sempre mantenuta nell'angolo in alto a destra del foglio di lavoro.

Inserisci una casella di testo mobile in Excel con codice VBA

Per inserire una casella di testo mobile, ecco anche un codice VBA per risolvere questo compito.

1. Innanzitutto, dovresti inserire una casella di testo dal file Costruttori scheda, fare clic Costruttori > inserire > Casella di testo (controllo ActiveX), quindi disegna la casella di testo e inserisci le informazioni nella casella di testo di cui hai bisogno. Vedi screenshot:

2. Quindi fare clic con il pulsante destro del mouse sulla scheda del foglio che contiene la casella di testo che si desidera mantenere sempre visibile e scegliere Visualizza codice dal menu contestuale e nel file Microsoft Visual Basic, Applications Edition finestra, copia e incolla il seguente codice nello spazio vuoto Modulo:

Codice VBA: inserisci una casella di testo mobile in 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

Note:: In questo codice, il Casella di testo1 è il nome della casella di testo che hai inserito, modificalo secondo le tue necessità.

3. Quindi salva e chiudi la finestra del codice, ora, quando scorri il foglio di lavoro ovunque, la casella di testo inserita viene sempre mantenuta nell'angolo in alto a destra del foglio di lavoro.

---

I migliori strumenti per la produttività in ufficio

Kutools per Excel risolve la maggior parte dei tuoi problemi e aumenta la tua produttività dell'80%

• Riutilizzo: Inserisci rapidamente formule complesse, grafici e tutto ciò che hai usato prima; Crittografa celle con password; Crea mailing list e invia email ...
• Bar Super Formula (modifica facilmente più righe di testo e formula); Layout di lettura (leggi e modifica facilmente un gran numero di celle); Incolla su intervallo filtrato...
• Unisci celle / righe / colonne senza perdere dati; Contenuto delle celle divise; Combina righe / colonne duplicate... Impedisci celle duplicate; Confronta intervalli...
• Seleziona Duplica o Unico Righe; Seleziona Righe vuote (tutte le celle sono vuote); Super Find e Fuzzy Find in molte cartelle di lavoro; Selezione casuale ...
• Copia esatta Più celle senza modificare il riferimento della formula; Riferimenti di creazione automatica a più fogli; Inserisci punti elenco, Caselle di controllo e altro ...
• Estrai testo, Aggiungi testo, Rimuovi per posizione, Rimuovi spazio; Creare e stampare totali parziali di paging; Converti contenuto e commenti tra celle...
• Super filtro (salva e applica schemi di filtri ad altri fogli); Ordinamento avanzato per mese / settimana / giorno, frequenza e altro; Filtro speciale in grassetto, corsivo ...
• Combina cartelle di lavoro e fogli di lavoro; Unisci tabelle in base a colonne chiave; Suddividi i dati in più fogli; Conversione in batch xls, xlsx e PDF...
• Più di 300 potenti funzionalità. Supporta Office/Excel 2007-2021 e 365. Supporta tutte le lingue. Facile implementazione nella tua azienda o organizzazione. Funzionalità complete Prova gratuita di 30 giorni. Garanzia di rimborso di 60 giorni.

Leggi di più... Download gratuito... Acquista... 

---

Scheda Office porta l'interfaccia a schede a Office e semplifica notevolmente il lavoro

• Abilita la modifica e la lettura a schede in Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
• Apri e crea più documenti in nuove schede della stessa finestra, piuttosto che in nuove finestre.
• Aumenta la produttività del 50% e riduce ogni giorno centinaia di clic del mouse!

Leggi di più... Download gratuito... Acquista...