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

Jak wstawić pływającą tabelę lub pole tekstowe w arkuszu programu Excel?

Jeśli masz tabelę lub pole tekstowe z ważnymi danymi, które chcesz, aby zawsze były widoczne na ekranie arkusza roboczego, nawet jeśli przewijasz arkusz w górę lub w dół. To może być interesujące zadanie, w tym artykule przedstawię szybką sztuczkę, aby go rozwiązać.

Wstaw tabelę pływającą w Excelu z kodem VBA

Wstaw pływające pole tekstowe w programie Excel z kodem VBA


strzałka niebieski prawy bąbelek Wstaw tabelę pływającą w Excelu z kodem VBA

Nie ma bezpośredniego sposobu na wstawienie tabeli ruchomej, więc musisz przekonwertować dane tabeli na obraz, a następnie zastosować kod, aby go zakończyć, wykonaj następujące czynności:

1. Wybierz tabelę danych, która ma być widoczna, a następnie kliknij Skopiuj > Skopiuj jako obrazek pod Strona Główna tab, zobacz zrzut ekranu:

doc wstaw zmienną tabelę 1

2. W wyskoczył Skopiuj zdjęcie okno dialogowe, wybierz Jak pokazano na ekranie z Wygląd sekcja, i wybierz Obrazek pod utworzony sekcja, kliknij OK aby zamknąć okno dialogowe, a następnie kliknij komórkę, aby wyświetlić obraz, w końcu naciśnij Ctrl + V aby wkleić to zdjęcie, zobacz zrzut ekranu:

doc wstaw zmienną tabelę 2

3. Po przekonwertowaniu tabeli na obraz kliknij prawym przyciskiem myszy kartę arkusza zawierającą obraz tabeli, który ma być zawsze widoczny, i wybierz Wyświetl kod z menu kontekstowego oraz w otwartym Microsoft Visual Basic dla aplikacji w oknie, skopiuj i wklej następujący kod do pustego modułu:

Kod VBA: Wstaw zmienną tabelę w programie Excel:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'Updateby Extendoffice
    Application.ScreenUpdating = False
    If Target.Cells.Count > 1 Then Exit Sub
        With ActiveSheet.Shapes("Picture1")
            .Top = ActiveWindow.VisibleRange.Top + 5
            .Left = ActiveWindow.VisibleRange.Left + ActiveWindow.VisibleRange.Width - .Width - 45
        End With
    Application.ScreenUpdating = False
End Sub

Uwagi: W tym kodzie Picure1 to nazwa obrazu, którą utworzyłeś, zmień ją zgodnie z potrzebami.

doc wstaw zmienną tabelę 3

4. Następnie zapisz i zamknij okno kodu. Teraz, gdy przewiniesz arkusz roboczy i klikniesz komórkę, obraz tabeli jest zawsze przechowywany w prawym górnym rogu arkusza.


strzałka niebieski prawy bąbelek Wstaw pływające pole tekstowe w programie Excel z kodem VBA

Aby wstawić pływające pole tekstowe, oto kod VBA do rozwiązania tego zadania.

1. Najpierw należy wstawić pole tekstowe z pliku Deweloper tab, kliknij Deweloper > wstawka > Pole tekstowe (formant ActiveX), a następnie narysuj pole tekstowe i wprowadź potrzebne informacje w polu tekstowym. Zobacz zrzut ekranu:

doc wstaw zmienną tabelę 4

2. Następnie kliknij prawym przyciskiem myszy kartę arkusza zawierającą pole tekstowe, które ma być zawsze widoczne, i wybierz Wyświetl kod z menu kontekstowego oraz w otwartym Microsoft Visual Basic for Applications okno, skopiuj i wklej następujący kod w puste miejsce Moduł:

Kod VBA: Wstaw pływające pole tekstowe w programie Excel:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'Updateby Extendoffice
    Application.ScreenUpdating = False
    With ActiveWindow.VisibleRange
        TextBox1.Top = .Top + 5
        TextBox1.Left = .Left + .Width - TextBox1.Width - 45
    End With
    Application.ScreenUpdating = True
End Sub

Uwagi: W tym kodzie TextBox1 to nazwa pola tekstowego, którą wstawiłeś, zmień ją zgodnie z potrzebami.

doc wstaw zmienną tabelę 5

3. Następnie zapisz i zamknij okno kodu, teraz, gdy przewiniesz arkusz roboczy w dowolne miejsce, wstawione pole tekstowe jest zawsze przechowywane w prawym górnym rogu arkusza.


Maksymalizuj lub minimalizuj okno arkusza

Aby zmaksymalizować okno arkusza, można zwolnić więcej miejsca dla użytkowników, w programie Excel można zmaksymalizować okno arkusza, ukrywając wstążkę, pasek formuły lub pasek stanu. Kutools dla programu Excel's Miejsce pracy może pomóc ukryć wstążkę za pomocą jednego kliknięcia. Pobierz i bezpłatną wersję próbną Kutools dla programu Excel już teraz!


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 (8)
Brak ocen. Oceń jako pierwszy!
Ten komentarz został zminimalizowany przez moderatora na stronie
Dziękuję - to bardzo łatwo rozwiązało mój problem!
Ten komentarz został zminimalizowany przez moderatora na stronie
Jeśli zmienię rozmiar okna, obraz wpadnie zbyt daleko na środek. Jak sprawić, by obraz unosił się na tym samym marginesie z ekranu, bez względu na rozmiar okna?
Ten komentarz został zminimalizowany przez moderatora na stronie
Cześć,
Gdzieś między krokami 2 i 3 w „Wstaw pływającą tabelę w programie Excel z kodem VBA” nie wiedziałem, jak nazwać zdjęcie, które właśnie skopiowałem i wkleiłem.

Tomek
Ten komentarz został zminimalizowany przez moderatora na stronie
To samo mi się przydarzyło, skąd znasz nazwę pliku obrazu?
Ten komentarz został zminimalizowany przez moderatora na stronie
Cześć Peter,
Aby poznać nazwę zdjęcia, wystarczy wybrać zdjęcie, a następnie wyświetlić nazwę z pola nazwy w lewym górnym rogu.
Ten komentarz został zminimalizowany przez moderatora na stronie
Lewy górny róg obok pola, w którym wpisujesz formułę
Ten komentarz został zminimalizowany przez moderatora na stronie
Nazwy są takie same, ale z jakiegoś powodu nadal napotykam wymagany obiekt błędu czasu wykonywania 424?
Ten komentarz został zminimalizowany przez moderatora na stronie
Cześć, dobrze, rano.

Mi pregunta es como mantener siempre widoczne la imagen flotante aun cuando me desplace en distintas filas lub columnas de la hoja.

Saludos y gracias por compartir tus conocimientos.
Nie ma tu jeszcze żadnych komentarzy

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