Les galetes ens ajuden a lliurar els nostres serveis. En utilitzar els nostres serveis, accepteu el nostre ús de cookies.
Consell: altres idiomes es tradueixen en Google. Pots visitar el English versió d'aquest enllaç.
Iniciar Sessió
x
or
x
x
Registre
x

or

Com es pot obrir el quadre de missatge per mostrar l'interval de cel·les o els valors de les cel·les a Excel?

En alguns casos, és possible que hagueu de recordar-vos de l'abast de rang que heu seleccionat o mostrar tots els valors del rang especificat. En aquest article, obtindreu mètodes de com mostrar un quadre de missatge per mostrar la referència de cel·la seleccionada o els valors de cel·la detallats a Excel.

Quadre de missatge emergent per mostrar l'interval de cel·les amb codi VBA

Quadre de missatge emergent per mostrar valors de rang especificat amb codi VBA


fletxa blau dreta bombolla Quadre de missatge emergent per mostrar l'interval de cel·les amb codi VBA


El següent codi VBA us ajuda a mostrar l'abast de rang que heu seleccionat en un quadre de missatge emergit. Feu el següent.

1. Després de seleccionar un rang de cel·les en full de càlcul, premeu Alt + F11 tecles simultànies per obrir el Microsoft Visual Basic per a aplicacions finestra.

2. A la Microsoft Visual Basic per a aplicacions finestra, feu clic a Insereix > Mòduls. A continuació, copieu i enganxeu el codi VBA següent a la finestra Mòdul.

Codi VBA: quadre Missatge per mostrar l'interval de cel·les

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

3. Premeu el botó F5 clau per executar el codi. A continuació, apareix un quadre de missatge amb l'abast de l'abast de les cel·les seleccionades que es mostren a l'interior.


fletxa blau dreta bombolla Quadre de missatge emergent per mostrar valors de rang especificat amb codi VBA

Suposant que necessiteu que aparegui un quadre de missatge per mostrar tots els valors de les cel·les del rang A1: D13 com es mostra a continuació. Si us plau, executeu el codi VBA a continuació.

1. Premeu Alt + F11 tecles simultànies per obrir el Microsoft Visual Basic per a aplicacions finestra.

2. A la Microsoft Visual Basic per a aplicacions finestra, feu clic a Insereix > Mòduls. A continuació, copieu i enganxeu el codi VBA següent a la finestra Mòdul.

Codi VBA: quadre Missatge per mostrar els valors de les cel·les seleccionades a 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 Sub

3. Premeu el botó F5 clau per executar el codi, en popping up Kutools for Excel quadre de diàleg, seleccioneu el rang que necessiteu per mostrar els valors de les cel·les en un quadre de missatge i, a continuació, feu clic a la icona OK botó Mostra la captura de pantalla:

A continuació, obtindreu un quadre de missatge tal com es mostra a la captura de pantalla, i es mostren tots els valors de cel·la de l'interval especificat al quadre de missatge.


fletxa blau dreta bombollaRarticles escalfats:



Eines de productivitat recomanades

Pestanya d'Office

estrella d'or1 Porteu les pestanyes pràctiques a l'Excel i a un altre programari d'Office, igual que Chrome, Firefox i el nou Internet Explorer.

Kutools for Excel

estrella d'or1 Increïble! Incrementeu la productivitat en 5 minuts. No necessites cap habilitat especial, estalvieu dues hores cada dia.

estrella d'or1 300 Noves característiques per a Excel, Excel molt fàcil i potent:

  • Combina cel·les / files / columnes sense perdre dades.
  • Combina i consolida diverses fulles i llibres.
  • Comparar intervals, copiar diversos rangs, convertir text a data, unitat i conversió de divises.
  • Compte per colors, subtotals de paginació, classificació avançada i filtre súper,
  • Més Seleccioneu / Insereix / Suprimeix / Text / Format / Enllaç / Comentari / Llibres / Eines de full de càlcul ...

Tret de pantalla de Kutools per a Excel

Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    oscar yescas · 5 months ago
    Me puedes ayudar?. Necesito hacer la selección que se hace con este cuadro, pero al seleccionarlo quiero copiarlo y pegarlo en otra hoja.
  • To post as a guest, your comment is unpublished.
    Chad · 1 years ago
    This is very helpful! Is there a way to format the columns on the display of range values in VBA? I see in your example as well that not all of the columns are showing the same data. The name column is long and pushes your date column over to the right.