Wie wird ein Meldungsfeld geöffnet, um den Zellenbereich oder die Zellenwerte in Excel anzuzeigen?
In einigen Fällen müssen Sie sich möglicherweise an den von Ihnen ausgewählten Bereichsbereich erinnern oder alle Werte des angegebenen Bereichs anzeigen. In diesem Artikel erhalten Sie Methoden zum Aufrufen des Meldungsfelds, um die ausgewählte Zellreferenz oder detaillierte Zellenwerte in Excel anzuzeigen.
Popup-Meldungsfeld zur Anzeige des Zellenbereichs mit VBA-Code
Popup-Meldungsfeld zur Anzeige von Werten des angegebenen Bereichs mit VBA-Code
Popup-Meldungsfeld zur Anzeige des Zellenbereichs mit VBA-Code
Mit dem folgenden VBA-Code können Sie den von Ihnen ausgewählten Bereichsbereich in einem angezeigten Meldungsfeld anzeigen. Bitte gehen Sie wie folgt vor.
1. Drücken Sie nach Auswahl des Zellenbereichs im Arbeitsblatt Andere + F11 Tasten gleichzeitig zum Öffnen der Microsoft Visual Basic für Applikationen Fenster.
2. In dem Microsoft Visual Basic für Applikationen Klicken Sie im Fenster Insert > Modul. Kopieren Sie dann den folgenden VBA-Code und fügen Sie ihn in das Modulfenster ein.
VBA-Code: Meldungsfeld zur Anzeige des Zellenbereichs
Sub Test()
On Error Resume Next
MsgBox Application.Selection.Address, vbInformation, "Kutools for Excel"
End Sub3. Drücken Sie die Taste F5 Schlüssel zum Ausführen des Codes. Anschließend wird ein Meldungsfeld mit dem Bereichsbereich ausgewählter Zellen angezeigt.
Popup-Meldungsfeld zur Anzeige von Werten des angegebenen Bereichs mit VBA-Code
Angenommen, Sie müssen ein Meldungsfeld öffnen, um alle Zellenwerte des Bereichs A1: D13 anzuzeigen (siehe Abbildung unten). Bitte führen Sie den folgenden VBA-Code aus.
1. Drücken Sie Andere + F11 Tasten gleichzeitig zum Öffnen der Microsoft Visual Basic für Applikationen Fenster.
2. In dem Microsoft Visual Basic für Applikationen Klicken Sie im Fenster Insert > Modul. Kopieren Sie dann den folgenden VBA-Code und fügen Sie ihn in das Modulfenster ein.
VBA-Code: Meldungsfeld zur Anzeige ausgewählter Zellenwerte in Excel
Sub mesage()
Dim xRg As Range
Dim xTxt As String
Dim xCell As Range
Dim xStr As String
Dim xRow As Long
Dim xCol As Long
On Error Resume Next
If ActiveWindow.RangeSelection.Count > 1 Then
xTxt = ActiveWindow.RangeSelection.AddressLocal
Else
xTxt = ActiveSheet.UsedRange.AddressLocal
End If
Set xRg = Application.InputBox("Please select range:", "Kutools for Excel", xTxt, , , , , 8)
If xRg Is Nothing Then Exit Sub
On Error Resume Next
For xRow = 1 To xRg.Rows.Count
For xCol = 1 To xRg.Columns.Count
xStr = xStr & xRg.Cells(xRow, xCol).Value & vbTab
Next
xStr = xStr & vbCrLf
Next
MsgBox xStr, vbInformation, "Kutools for Excel"
End Sub3. Drücken Sie die Taste F5 Schlüssel zum Ausführen des Codes beim Auftauchen Kutools for Excel Wählen Sie im Dialogfeld den Bereich aus, in dem Zellenwerte in einem Meldungsfeld angezeigt werden sollen, und klicken Sie dann auf OK Taste. Siehe Screenshot:
Anschließend wird ein Meldungsfeld angezeigt (siehe Abbildung unten), und alle Zellenwerte des angegebenen Bereichs werden im Meldungsfeld angezeigt.
In Verbindung stehende Artikel:
- Wie erstelle ich einen Nachrichtenbox-Timer, um das Nachrichtenfeld nach einer bestimmten Zeit in Excel automatisch zu schließen?
- Wie wird ein Meldungsfeld angezeigt, wenn Sie in Excel auf eine bestimmte Zelle klicken?
- Wie kopiere ich Text aus dem Meldungsfeld in Excel?
- Wie wird beim Aktivieren / Öffnen eines bestimmten Arbeitsblatts in Excel ein Meldungsfeld angezeigt?
- Wie wird ein Meldungsfeld angezeigt, wenn sich der Zellenwert innerhalb eines Bereichs in Excel ändert?
Die besten Tools für die Office-Produktivität
Kutools for Excel löst die meisten Ihrer Probleme und erhöht Ihre Produktivität um 80%
- Wiederverwendung: Schnell einfügen komplexe Formeln, Diagramme und alles, was du vorher benutzt hast; Zellen verschlüsseln mit Passwort; Mailingliste erstellen und E-Mails senden ...
- Super Formelriegel (leicht mehrere Textzeilen und Formeln bearbeiten); Layout lesen (leichtes Lesen und Bearbeiten einer großen Anzahl von Zellen); In gefilterten Bereich einfügen...
- Zellen / Zeilen / Spalten zusammenführen ohne Daten zu verlieren; Inhalt geteilter Zellen; Kombinieren Sie doppelte Zeilen / Spalten... doppelte Zellen verhindern; Bereiche vergleichen...
- Wählen Sie Duplizieren oder Eindeutig Reihen; Wählen Sie Leere Zeilen (alle Zellen sind leer); Super Find und Fuzzy Find in vielen Arbeitsmappen; Zufällige Auswahl ...
- Exakte Kopie Mehrere Zellen ohne Änderung der Formelreferenz; Referenzen automatisch erstellen zu mehreren Blättern; Aufzählungszeichen einfügen, Kontrollkästchen und mehr ...
- Text extrahieren, Text hinzufügen, Nach Position entfernen, Leerzeichen entfernen;; Paging-Zwischensummen erstellen und drucken; Inhalt und Kommentare zwischen Zellen konvertieren...
- Superfilter (Speichern und Anwenden von Filterschemata auf andere Blätter); Erweiterte Sortierung nach Monat / Woche / Tag, Häufigkeit und mehr; Spezialfilter fett, kursiv ...
- Kombinieren Sie Arbeitsmappen und Arbeitsblätter;; Tabellen basierend auf Schlüsselspalten zusammenführen; Daten in mehrere Blätter aufteilen; Batch-Konvertierung von xls, xlsx und PDF...
- Mehr als 300 leistungsstarke Funktionen. Unterstützt Office / Excel 2007-2021 und 365. Unterstützt alle Sprachen. Einfache Bereitstellung in Ihrem Unternehmen oder Ihrer Organisation. 30-tägige kostenlose Testversion mit allen Funktionen. 60 Tage Geld-zurück-Garantie.
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!
