¿Cómo mostrar el rango o los valores de celda seleccionados en un cuadro de mensaje en Excel?

En algunos casos, puede que necesites recordarte el ámbito del rango que seleccionaste, o mostrar todos los valores de un rango especificado. En este artículo, obtendrás métodos sobre cómo hacer aparecer un cuadro de mensaje para mostrar la referencia de celda seleccionada o los valores detallados de las celdas en Excel.

Hacer aparecer un cuadro de mensaje para mostrar un rango de celdas con código VBA
Hacer aparecer un cuadro de mensaje para mostrar los valores de un rango especificado con código VBA

Hacer aparecer un cuadro de mensaje para mostrar un rango de celdas con código VBA

El siguiente código VBA te ayuda a mostrar el ámbito del rango que seleccionaste en un cuadro de mensaje emergente. Por favor, sigue los siguientes pasos.

1. Después de seleccionar un rango de celdas en la hoja de cálculo, presiona simultáneamente las teclas Alt + F11 para abrir la ventana de Microsoft Visual Basic for Applications.

2. En la ventana de Microsoft Visual Basic for Applications, haz clic en Insertar > Módulo. Luego copia y pega el siguiente código VBA en la ventana del Módulo.

Código VBA: Cuadro de mensaje para mostrar un rango de celdas

Sub Test()
    On Error Resume Next
    MsgBox Application.Selection.Address, vbInformation, "Kutools for Excel"
End Sub

3. Presiona la tecla F5 para ejecutar el código. Luego aparece un cuadro de mensaje con el ámbito del rango de celdas seleccionadas mostrándose dentro.

Hacer aparecer un cuadro de mensaje para mostrar los valores de un rango especificado con código VBA

Supongamos que necesitas un cuadro de mensaje para mostrar todos los valores de celda del rango A1:D13, como se muestra en la captura de pantalla a continuación. Por favor, ejecuta el siguiente código VBA.

1. Presiona simultáneamente las teclas Alt + F11 para abrir la ventana de Microsoft Visual Basic for Applications.

2. En la ventana de Microsoft Visual Basic for Applications, haz clic en Insertar > Módulo. Luego copia y pega el siguiente código VBA en la ventana del Módulo.

Código VBA: Cuadro de mensaje para mostrar los valores de celda seleccionados en 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 Sub

3. Presiona la tecla F5 para ejecutar el código; en el cuadro de diálogo Kutools para Excel que aparece, selecciona el rango cuyos valores de celda deseas mostrar en un cuadro de mensaje y luego haz clic en el botón Aceptar. Ver captura de pantalla:

Luego obtendrás un cuadro de mensaje como se muestra en la siguiente captura de pantalla, y todos los valores de celda del rango especificado se muestran en el cuadro de mensaje.

Artículos relacionados:

• ¿Cómo crear un temporizador de cuadro de mensaje para cerrar automáticamente el cuadro de mensaje después de cierto tiempo en Excel?
• ¿Cómo hacer aparecer un cuadro de mensaje al hacer clic en una celda específica en Excel?
• ¿Cómo copiar texto de un cuadro de mensaje en Excel?
• ¿Cómo hacer aparecer un cuadro de mensaje al activar/abrir una hoja de cálculo específica en Excel?
• ¿Cómo hacer aparecer un cuadro de mensaje si el valor de una celda cambia dentro de un rango en Excel?