Note: The other languages of the website are Google-translated. Back to English

Jak wyświetlić okno komunikatu, aby wyświetlić zakres komórek lub wartości komórek w programie Excel?

W niektórych przypadkach może zajść potrzeba przypomnienia sobie wybranego zakresu zakresu lub wyświetlenia wszystkich wartości z określonego zakresu. W tym artykule poznasz metody wyświetlania okna komunikatu w celu wyświetlenia wybranego odwołania do komórki lub szczegółowych wartości komórek w programie Excel.

Wyskakujące okno komunikatu, aby wyświetlić zakres komórek z kodem VBA
Wyskakujące okno komunikatu, aby wyświetlić wartości określonego zakresu z kodem VBA


Wyskakujące okno komunikatu, aby wyświetlić zakres komórek z kodem VBA

Poniższy kod VBA pomaga wyświetlić zakres zakresu wybrany w wyskakującym oknie komunikatu. Wykonaj następujące czynności.

1. Po wybraniu zakresu komórek w arkuszu, naciśnij inny + F11 klawisze jednocześnie, aby otworzyć Microsoft Visual Basic for Applications okno.

2. w Microsoft Visual Basic for Applications okno, kliknij wstawka > Moduł. Następnie skopiuj i wklej poniższy kod VBA do okna Module.

Kod VBA: pole wiadomości do wyświetlania zakresu komórek

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

3. wciśnij F5 klucz do uruchomienia kodu. Następnie pojawia się okno komunikatu z zakresem zakresu wybranych komórek wyświetlanych w środku.


Wyskakujące okno komunikatu, aby wyświetlić wartości określonego zakresu z kodem VBA

Przypuśćmy, że musisz wyświetlić okno komunikatu, aby wyświetlić wszystkie wartości komórek z zakresu A1: D13, jak pokazano na poniższym zrzucie ekranu. Uruchom poniższy kod VBA.

1. naciśnij inny + F11 klawisze jednocześnie, aby otworzyć Microsoft Visual Basic for Applications okno.

2. w Microsoft Visual Basic for Applications okno, kliknij wstawka > Moduł. Następnie skopiuj i wklej poniższy kod VBA do okna Module.

Kod VBA: okno komunikatu do wyświetlania wybranych wartości komórek w programie 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. wciśnij F5 klucz do uruchomienia kodu w wyskakującym okienku Kutools dla programu Excel W oknie dialogowym wybierz zakres, w którym chcesz wyświetlić wartości komórek w oknie komunikatu, a następnie kliknij OK przycisk. Zobacz zrzut ekranu:

Następnie pojawi się okno komunikatu, jak pokazano na poniższym zrzucie ekranu, a wszystkie wartości komórek z określonego zakresu są wyświetlane w oknie komunikatu.


Powiązane artykuły:


Najlepsze narzędzia biurowe

Kutools dla programu Excel rozwiązuje większość problemów i zwiększa produktywność o 80%

  • Ponowne użycie: Szybko włóż złożone wzory, wykresy i wszystko, czego używałeś wcześniej; Szyfruj komórki z hasłem; Utwórz listę mailingową i wysyłaj e-maile ...
  • Pasek Super Formula (łatwo edytować wiele wierszy tekstu i formuły); Układ do czytania (łatwe odczytywanie i edytowanie dużej liczby komórek); Wklej do filtrowanego zakresu...
  • Scal komórki / wiersze / kolumny bez utraty danych; Podziel zawartość komórek; Połącz zduplikowane wiersze / kolumny... Zapobiegaj zduplikowanym komórkom; Porównaj zakresy...
  • Wybierz Duplikat lub Unikalny Wydziwianie; Wybierz puste wiersze (wszystkie komórki są puste); Super Find i Fuzzy Find w wielu zeszytach ćwiczeń; Losowy wybór ...
  • Dokładna kopia Wiele komórek bez zmiany odwołania do formuły; Automatyczne tworzenie odniesień do wielu arkuszy; Wstaw punktory, Pola wyboru i nie tylko ...
  • Wyodrębnij tekst, Dodaj tekst, Usuń według pozycji, Usuń przestrzeń; Tworzenie i drukowanie podsumowań stronicowania; Konwertuj zawartość komórek i komentarze...
  • Super filtr (zapisz i zastosuj schematy filtrów do innych arkuszy); Zaawansowane sortowanie według miesiąca / tygodnia / dnia, częstotliwości i innych; Specjalny filtr pogrubieniem, kursywą ...
  • Połącz skoroszyty i arkusze robocze; Scal tabele na podstawie kluczowych kolumn; Podziel dane na wiele arkuszy; Konwersja wsadowa xls, xlsx i PDF...
  • Ponad 300 zaawansowanych funkcji. Obsługuje Office / Excel 2007-2021 i 365. Obsługuje wszystkie języki. Łatwe wdrażanie w przedsiębiorstwie lub organizacji. Pełne funkcje 30-dniowa bezpłatna wersja próbna. 60-dniowa gwarancja zwrotu pieniędzy.
karta kte 201905

Karta Office wprowadza interfejs z zakładkami do pakietu Office i znacznie ułatwia pracę

  • Włącz edycję i czytanie na kartach w programach Word, Excel, PowerPoint, Publisher, Access, Visio i Project.
  • Otwieraj i twórz wiele dokumentów w nowych kartach tego samego okna, a nie w nowych oknach.
  • Zwiększa produktywność o 50% i redukuje setki kliknięć myszką każdego dnia!
officetab dół
Sortuj komentarze według
Komentarze (2)
Brak ocen. Oceń jako pierwszy!
Ten komentarz został zminimalizowany przez moderatora na stronie
To jest bardzo pomocne! Czy istnieje sposób sformatowania kolumn na wyświetlaczu wartości zakresu w VBA? Widzę również w twoim przykładzie, że nie wszystkie kolumny pokazują te same dane. Kolumna nazwy jest długa i przesuwa kolumnę daty w prawo.
Ten komentarz został zminimalizowany przez moderatora na stronie
Ja puedes ayudar?. Necesito hacer la selección que se hace con este cuadro, pero al seleccionarlo quiero copiarlo y pegarlo pl otra hoja.
Nie ma tu jeszcze żadnych komentarzy
Zostaw swój komentarz
Publikowanie jako gość
×
Oceń ten post:
0   Postacie
Sugerowane lokalizacje

Bądż na bieżąco

Prawa autorskie © 2009 - www.extendoffice.com. | Wszelkie prawa zastrzeżone. Zasilany przez ExtendOffice, | Mapa strony
Microsoft i logo Office są znakami towarowymi lub zastrzeżonymi znakami towarowymi Microsoft Corporation w Stanach Zjednoczonych i / lub innych krajach.
Chronione przez Sectigo SSL