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 Sub

3. 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 Sub

3. 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?