Hoe toont u het geselecteerde bereik of de celwaarden in een meldingsvenster in Excel?
In sommige gevallen is het handig om uzelf eraan te herinneren welk bereik u hebt geselecteerd of om alle waarden van het beperkte bereik weer te geven. In dit artikel leest u hoe u een meldingsvenster opent dat de verwijzing naar de geselecteerde cellen of gedetailleerde celwaarden toont in Excel.
Laat een meldingsvenster verschijnen om een celbereik weer te geven met VBA-code
Laat een meldingsvenster verschijnen om waarden van Beperkt bereik weer te geven met VBA-code
Laat een meldingsvenster verschijnen om een celbereik weer te geven met VBA-code
Met de volgende VBA-code toont u het geselecteerde bereik in een pop-upmeldingsvenster. Volg deze stappen.
1. Selecteer eerst een bereik cellen in het werkblad en druk vervolgens tegelijkertijd op Alt+F11 om het venster Microsoft Visual Basic for Applications te openen.
2. Klik in het venster Microsoft Visual Basic for Applications op Invoegen > Module. Kopieer en plak daarna de onderstaande VBA-code in het modulevenster.
VBA-code: Meldingsvenster om een celbereik weer te geven
Sub Test()
On Error Resume Next
MsgBox Application.Selection.Address, vbInformation, "Kutools for Excel"
End Sub3. Druk op de toets F5 om de code uit te voeren. Er verschijnt dan een meldingsvenster met het bereik van de geselecteerde cellen.
Laat een meldingsvenster verschijnen om waarden van Beperkt bereik weer te geven met VBA-code
Stel dat u een meldingsvenster wilt om alle celwaarden uit het bereik A1:D13 weer te geven, zoals in de onderstaande schermafbeelding. Voer dan de volgende VBA-code uit.
1. Druk tegelijkertijd op Alt + F11 om het venster Microsoft Visual Basic for Applications te openen.
2. In het Microsoft Visual Basic for Applications-venster, klik op Invoegen > Module. Kopieer en plak daarna de onderstaande VBA-code in het modulevenster.
VBA-code: Meldingsvenster om geselecteerde celwaarden weer te geven in Excel
Sub message()
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. Druk op de toets F5 om de code uit te voeren. Selecteer in het verschijnende dialoogvenster Kutools voor Excel het bereik waarvan u de celwaarden in een meldingsvenster wilt weergeven en klik op de knop OK. Zie schermafbeelding:
U krijgt dan een meldingsvenster te zien, zoals hieronder afgebeeld, met alle celwaarden uit het beperkte bereik.
Gerelateerde artikelen:
- Hoe maakt u een meldingsvenster met een timer dat automatisch sluit na een ingestelde tijd in Excel?
- Hoe zorgt u ervoor dat er een meldingsvenster verschijnt wanneer u op een bepaalde cel in Excel klikt?
- Hoe kopieert u tekst uit een meldingsvenster in Excel?
- Hoe zorgt u ervoor dat een meldingsvenster verschijnt wanneer u een specifiek werkblad activeert of opent in Excel?
- Hoe zorgt u ervoor dat een meldingsvenster verschijnt wanneer de celwaarde binnen een bereik in Excel verandert?
Beste Office-productiviteitshulpmiddelen
Geef uw Excel-vaardigheden een boost met Kutools voor Excel en ervaar efficiëntie zoals nooit tevoren.Kutools voor Excel biedt meer dan 300 geavanceerde functies om de productiviteit te verhogen en Tijd besparen.Klik hier om de functie te krijgen die u het meest nodig heeft...
Office Tab brengt een tabbladinterface naar Office en maakt uw werk veel eenvoudiger
- Schakel tabbladbewerking en -lezen in voor Word, Excel, PowerPoint, Publisher, Access, Visio en Project.
- Open en maak meerdere documenten aan in nieuwe tabbladen binnen hetzelfde venster, in plaats van in afzonderlijke vensters.
- Verhoogt uw productiviteit met 50 % en bespaart u dagelijks honderden muisklikken!
Alle Kutools-add-ins in één installatieprogramma.
Kutools for Office bundelt add-ins voor Excel, Word, Outlook en PowerPoint, plus Office Tab Pro—ideaal voor teams die met meerdere Office-apps werken.
- Alles-in-één suite— add-ins voor Excel, Word, Outlook & PowerPoint plus Office Tab Pro
- Één installatieprogramma, één licentie— binnen enkele minuten klaar (MSI-geschikt)
- Werkt beter samen— gestroomlijnde productiviteit in alle Office-apps
- 30 dagen volledig functionele proefversie— geen registratie, geen creditcard
- Beste prijs-kwaliteitverhouding— bespaar ten opzichte van het afzonderlijk kopen van add-ins