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
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:
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:
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
Note: W tym kodzie Picure1 to nazwa obrazu, którą utworzyłeś, zmień ją zgodnie z potrzebami.
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.
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:
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
Note: W tym kodzie TextBox1 to nazwa pola tekstowego, którą wstawiłeś, zmień ją zgodnie z potrzebami.
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
Zwiększ swoje umiejętności Excela dzięki Kutools for Excel i doświadcz wydajności jak nigdy dotąd. Kutools dla programu Excel oferuje ponad 300 zaawansowanych funkcji zwiększających produktywność i oszczędzających czas. Kliknij tutaj, aby uzyskać funkcję, której najbardziej potrzebujesz...
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!