Wie füge ich eine schwebende Tabelle oder ein Textfeld in ein Excel-Arbeitsblatt ein?
Wenn Sie eine Tabelle oder ein Textfeld mit einigen wichtigen Daten haben, die auf dem Arbeitsblattbildschirm immer sichtbar sein sollen, auch wenn Sie im Arbeitsblatt nach oben oder unten scrollen. Dies kann eine interessante Aufgabe sein, in diesem Artikel werde ich einen schnellen Trick vorstellen, um sie zu lösen.
Fügen Sie eine schwebende Tabelle mit VBA-Code in Excel ein
Fügen Sie ein schwebendes Textfeld mit VBA-Code in Excel ein
Fügen Sie eine schwebende Tabelle mit VBA-Code in Excel ein
Es gibt keine direkte Möglichkeit, die schwebende Tabelle einzufügen. Sie müssen daher die Tabellendaten in ein Bild konvertieren und dann einen Code anwenden, um sie zu beenden. Gehen Sie dazu wie folgt vor:
1. Wählen Sie die Datentabelle aus, die Sie sichtbar halten möchten, und klicken Sie dann auf Kopieren > Als Bild kopieren unter dem Home Registerkarte, siehe Screenshot:
2. In der herausgesprungen Bild kopieren Dialogfeld auswählen Wie auf dem Bildschirm gezeigt von dem Optik Abschnitt, und wählen Sie Bild unter dem Format Abschnitt, klicken Sie auf OK Um den Dialog zu schließen und dann auf eine Zelle zu klicken, um das Bild auszugeben, drücken Sie zuletzt Strg + V Um dieses Bild einzufügen, siehe Screenshot:
3. Klicken Sie nach dem Konvertieren der Tabelle in ein Bild mit der rechten Maustaste auf die Blattregisterkarte, die das Tabellenbild enthält, das Sie immer sichtbar halten möchten, und wählen Sie Code anzeigen aus dem Kontextmenü und im geöffneten Microsoft Visual Basic für Anwendungen Kopieren Sie im Fenster den folgenden Code und fügen Sie ihn in das leere Modul ein:
VBA-Code: Fügen Sie eine schwebende Tabelle in Excel ein:
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 diesem Code ist die Picure1 Ist der von Ihnen erstellte Bildname, ändern Sie ihn bitte nach Ihren Wünschen.
4. Speichern und schließen Sie dann das Codefenster. Wenn Sie jetzt durch das Arbeitsblatt scrollen und auf eine Zelle klicken, wird das Tabellenbild immer in der oberen rechten Ecke des Arbeitsblatts angezeigt.
Fügen Sie ein schwebendes Textfeld mit VBA-Code in Excel ein
Um ein schwebendes Textfeld einzufügen, finden Sie hier auch einen VBA-Code, um diese Aufgabe zu lösen.
1. Zuerst sollten Sie ein Textfeld aus dem einfügen Entwickler:in / Unternehmen Tab, klicken Sie auf Entwickler:in / Unternehmen > Insert > Textfeld (ActiveX-Steuerelement)Zeichnen Sie dann das Textfeld und geben Sie die Informationen nach Bedarf in das Textfeld ein. Siehe Screenshot:
2. Klicken Sie dann mit der rechten Maustaste auf die Blattregisterkarte, die das Textfeld enthält, das Sie immer sichtbar halten möchten, und wählen Sie Code anzeigen aus dem Kontextmenü und im geöffneten Microsoft Visual Basic für Applikationen Kopieren Sie den folgenden Code und fügen Sie ihn in das leere Feld ein Modul:
VBA-Code: Fügen Sie ein schwebendes Textfeld in Excel ein:
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 diesem Code ist die TextBox1 Ist der Name des Textfelds, den Sie eingegeben haben, ändern Sie ihn bitte nach Ihren Wünschen.
3. Speichern und schließen Sie dann das Codefenster. Wenn Sie jetzt durch das Arbeitsblatt scrollen, wird das eingefügte Textfeld immer in der oberen rechten Ecke des Arbeitsblatts angezeigt.
Arbeitsblattfenster maximieren oder minimieren
Um das Arbeitsblattfenster zu maximieren, können Sie mehr Platz für Benutzer freigeben. In Excel können Sie das Arbeitsblattfenster maximieren, indem Sie die Multifunktionsleiste, die Formelleiste oder die Statusleiste ausblenden. Kutools for Excel's Arbeitsbereich kann Ihnen helfen, das Menüband mit nur einem Klick auszublenden. Laden Sie jetzt Kutools für Excel herunter und testen Sie es kostenlos!
Beste Office-Produktivitätstools
Verbessern Sie Ihre Excel-Kenntnisse mit Kutools für Excel und erleben Sie Effizienz wie nie zuvor. Kutools für Excel bietet über 300 erweiterte Funktionen, um die Produktivität zu steigern und Zeit zu sparen. Klicken Sie hier, um die Funktion zu erhalten, die Sie am meisten benötigen ...
Office Tab Bringt die Oberfläche mit Registerkarten in Office und erleichtert Ihnen die Arbeit erheblich
- Aktivieren Sie das Bearbeiten und Lesen von Registerkarten in Word, Excel und PowerPoint, Publisher, Access, Visio und Project.
- Öffnen und erstellen Sie mehrere Dokumente in neuen Registerkarten desselben Fensters und nicht in neuen Fenstern.
- Steigert Ihre Produktivität um 50 % und reduziert jeden Tag Hunderte von Mausklicks für Sie!