Come inserire una tabella o una casella di testo fluttuante in un foglio di lavoro Excel?

Se hai una tabella o una casella di testo con alcuni dati importanti che desideri siano sempre visibili sullo schermo del foglio di lavoro, anche quando scorri verso l'alto o verso il basso. Questo potrebbe essere un compito interessante; in questo articolo, ti presenterò un trucco rapido per risolvere il problema.

Inserisci una tabella fluttuante in Excel con il codice VBA

Inserisci una casella di testo fluttuante in Excel con il codice VBA

Inserisci una tabella fluttuante in Excel con il codice VBA

Non esiste un modo diretto per inserire una tabella fluttuante, quindi devi convertire i dati della tabella in un'immagine e poi applicare un codice per completare l'operazione, procedi come segue:

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

2. Nella finestra di dialogo Copia immagine che appare, seleziona Come mostrato sullo schermo dalla sezione Aspetto e scegli Immagine sotto la sezione Formato, fai clic su OK per chiudere la finestra di dialogo, quindi fai clic su una cella per esportare l'immagine, infine, premi Ctrl + V per incollare questa immagine, vedi screenshot:

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

Codice VBA: Inserisci una tabella fluttuante 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

Nota: In questo codice, Picure1 è il nome dell'immagine che hai creato, cambialo secondo le tue esigenze.

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 rimane sempre nell'angolo in alto a destra del foglio di lavoro.

Sblocca la Magia di Excel con Kutools AI

• Esecuzione Intelligente: Esegui operazioni sulle celle, analizza i dati e crea grafici — tutto guidato da semplici comandi.
• Formule Personalizzate: Genera formule su misura per ottimizzare i tuoi flussi di lavoro.
• Codifica VBA: Scrivi e implementa codice VBA senza sforzo.
• Interpretazione delle Formule: Comprendi facilmente formule complesse.
• Traduzione del Testo: Superare le barriere linguistiche all'interno dei tuoi fogli di calcolo.

Potenzia le tue capacità di Excel con strumenti alimentati dall'IA. Scarica Ora ed esperisci un'efficienza mai vista prima!

Inserisci una casella di testo fluttuante in Excel con il codice VBA

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

1. Prima di tutto, dovresti inserire una casella di testo dalla scheda Sviluppatore, fai clic su Sviluppatore > Inserisci > Casella di testo (controllo ActiveX), quindi disegna la casella di testo e inserisci le informazioni necessarie. Vedi screenshot:

2. Quindi fai clic con il tasto destro sulla scheda del foglio che contiene la casella di testo che desideri mantenere sempre visibile e scegli Visualizza codice dal menu contestuale, e nella finestra di Microsoft Visual Basic per Applicazioni aperta, copia e incolla il seguente codice nel Modulo vuoto:

Codice VBA: Inserisci una casella di testo fluttuante 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

Nota: In questo codice, TextBox1 è il nome della casella di testo che hai inserito, cambialo secondo le tue esigenze.

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