Hoe selectiebereik of celwaarden in een berichtvenster weergeven in Excel?
In sommige gevallen moet u zich mogelijk het geselecteerde bereik herinneren, of alle waarden van een opgegeven bereik weergeven. In dit artikel leert u methoden om een berichtvenster te laten verschijnen dat de geselecteerde celreferentie of gedetailleerde celwaarden in Excel weergeeft.
Berichtvenster openen om bereik van cellen met VBA-code weer te geven
Berichtvenster openen om waarden van een opgegeven bereik met VBA-code weer te geven
Berichtvenster openen om bereik van cellen met VBA-code weer te geven
De volgende VBA-code helpt u het geselecteerde bereik in een pop-upberichtvenster weer te geven. Volg de onderstaande stappen.
1. Nadat u een bereik van cellen in het werkblad hebt geselecteerd, drukt u gelijktijdig op Alt + F11 om het Microsoft Visual Basic for Applications-venster te openen.
2. Klik in het Microsoft Visual Basic for Applications-venster op Invoegen > Module. Kopieer en plak vervolgens de onderstaande VBA-code in het Module-venster.
VBA-code: Berichtvenster om bereik van cellen weer te geven
Sub Test()
On Error Resume Next
MsgBox Application.Selection.Address, vbInformation, "Kutools for Excel"
End Sub3. Druk op de F5-toets om de code uit te voeren. Vervolgens verschijnt er een berichtvenster met het bereik van de geselecteerde cellen dat binnen wordt weergegeven.
Berichtvenster openen om waarden van een opgegeven bereik met VBA-code weer te geven
Stel dat u een berichtvenster nodig heeft om alle celwaarden van het bereik A1:D13 weer te geven, zoals te zien is in de onderstaande schermafbeelding. Voer dan de onderstaande VBA-code uit.
1. Druk gelijktijdig op Alt + F11 om het Microsoft Visual Basic for Applications-venster te openen.
2. Klik in het Microsoft Visual Basic for Applications-venster op Invoegen > Module. Kopieer en plak vervolgens de onderstaande VBA-code in het Module-venster.
VBA-code: Berichtvenster om geselecteerde celwaarden in Excel weer te geven
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 F5-toets om de code uit te voeren. Selecteer in het pop-upvenster van Kutools voor Excel het bereik waarvan u de celwaarden in een berichtvenster wilt weergeven en klik vervolgens op de knop OK. Zie onderstaande schermafbeelding:
Vervolgens krijgt u een berichtvenster zoals hieronder in de schermafbeelding te zien is, en worden alle celwaarden van het opgegeven bereik in het berichtvenster weergegeven.
Gerelateerde artikelen:
- Hoe maak je een berichtvenster-timer om het berichtvenster automatisch te sluiten na een bepaalde tijd in Excel?
- Hoe laat je een berichtvenster verschijnen wanneer je op een bepaalde cel klikt in Excel?
- Hoe kopieer je tekst uit een berichtvenster in Excel?
- Hoe laat je een berichtvenster verschijnen bij het activeren/openen van een bepaald werkblad in Excel?
- Hoe laat je een berichtvenster verschijnen als de celwaarde verandert binnen een bereik in Excel?
Beste productiviteitstools voor Office
Verbeter je Excel-vaardigheden met Kutools voor Excel en ervaar ongeëvenaarde efficiëntie. Kutools voor Excel biedt meer dan300 geavanceerde functies om je productiviteit te verhogen en tijd te besparen. Klik hier om de functie te kiezen die je het meest nodig hebt...
Office Tab brengt een tabbladinterface naar Office en maakt je werk veel eenvoudiger
- Activeer tabbladbewerking en -lezen in Word, Excel, PowerPoint, Publisher, Access, Visio en Project.
- Open en maak meerdere documenten in nieuwe tabbladen van hetzelfde venster, in plaats van in nieuwe vensters.
- Verhoog je productiviteit met50% en bespaar dagelijks honderden muisklikken!
Alle Kutools-invoegtoepassingen. Eén installatieprogramma
Kutools for Office-suite bundelt invoegtoepassingen voor Excel, Word, Outlook & PowerPoint plus Office Tab Pro, ideaal voor teams die werken met Office-toepassingen.
- Alles-in-één suite — invoegtoepassingen voor Excel, Word, Outlook & PowerPoint + Office Tab Pro
- Eén installatieprogramma, één licentie — in enkele minuten geïnstalleerd (MSI-ready)
- Werkt beter samen — gestroomlijnde productiviteit over meerdere Office-toepassingen
- 30 dagen volledige proef — geen registratie, geen creditcard nodig
- Beste prijs — bespaar ten opzichte van losse aanschaf van invoegtoepassingen