Przejdź do głównej zawartości

Jak skopiować wartość pola kombi do aktywnej komórki w programie Excel?

W niektórych przypadkach może być konieczne skopiowanie wybranej wartości z pola kombi do aktywnej komórki. Zwykle musisz dostać się do Combo Box, skopiować i wkleić ręcznie do aktywnej komórki. W tym artykule przedstawiono wygodną metodę automatycznego aktualizowania aktywnej komórki podczas wybierania wartości w polu kombi.

Skopiuj wartość pola kombi do aktywnej komórki z kodem VBA

VBA 1: Skopiuj wartość pola kombi do aktywnej komórki za pomocą polecenia
VBA 2: Automatycznie kopiuj wartość pola kombi do aktywnej komórki


Skopiuj wartość pola kombi do aktywnej komórki z kodem VBA

Poniższe kody VBA mogą pomóc w automatycznym skopiowaniu wartości pola kombi do aktywnej komórki. Wykonaj następujące czynności.

VBA 1: Skopiuj wartość pola kombi do aktywnej komórki za pomocą przycisku polecenia

1. Po pierwsze, musisz wstawić przycisk polecenia do arkusza roboczego, jak pokazano poniżej.

2. Kliknij prawym przyciskiem myszy przycisk polecenia, a następnie kliknij Wyświetl kod z menu po kliknięciu prawym przyciskiem myszy. Zobacz zrzut ekranu:

3. W wyskakującym okienku Microsoft Visual Basic for Applications zamień oryginalny kod w oknie Kod na poniższy kod VBA.

Kod VBA: Skopiuj wartość Combo Box do aktywnej komórki

Private Sub CommandButton1_Click()
   ActiveCell.Value = Me.ComboBox1.Text
End Sub

Note: W kodzie CommandButton1 to nazwa wstawionego przycisku polecenia, a ComboBox1 to nazwa pola kombi, z którego skopiujesz wartość. Zmień je według potrzeb.

4. wciśnij inny + Q klucze do zamknięcia Microsoft Visual Basic for Applications okno.

Odtąd, gdy chcesz skopiować wartość pola kombi do aktywnej komórki, po prostu wybierz komórkę, a następnie kliknij przycisk polecenia, aby to zrobić.

VBA 2: Automatycznie kopiuj wartość pola kombi do aktywnej komórki

Poniższy kod VBA może pomóc w automatycznej aktualizacji aktywnej komórki podczas wybierania wartości w polu Combo Box. Możesz wykonać następujące czynności.

1. Upewnij się, że Tryb projektowania jest włączony pod Deweloper patka.

2. Kliknij prawym przyciskiem pole kombi, z którego chcesz skopiować wartość, a następnie kliknij Wyświetl kod z menu po kliknięciu prawym przyciskiem myszy. Zobacz zrzut ekranu:

3. W wyskakującym okienku Microsoft Visual Basic for Applications oknie, zamień oryginalny kod w Code okno z poniższym kodem VBA.

Kod VBA: Skopiuj wartość Combo Box do aktywnej komórki

Private Sub ComboBox1_Change()
  ActiveCell.Value = Me.ComboBox1.Value
End Sub

Note: W kodzie ComboBox1 to nazwa pola Combo Box, z którego skopiujesz wartość.

4. wciśnij inny + Q klawisze, aby zamknąć okno Microsoft Visual Basic for Applications i wyłączyć tryb projektowania na karcie Deweloper.

Odtąd, podczas wybierania wartości z Combo Box, ten wybrany rekord będzie automatycznie wyświetlany w aktywnej komórce.


Powiązane artykuły:

Najlepsze narzędzia biurowe

🤖 Pomocnik AI Kutools: Zrewolucjonizuj analizę danych w oparciu o: Inteligentne wykonanie   |  Wygeneruj kod  |  Twórz niestandardowe formuły  |  Analizuj dane i generuj wykresy  |  Wywołaj funkcje Kutools...
Popularne funkcje: Znajdź, wyróżnij lub zidentyfikuj duplikaty   |  Usuń puste wiersze   |  Łącz kolumny lub komórki bez utraty danych   |   Okrągły bez wzoru ...
Super wyszukiwanie: Wiele kryteriów VLookup    Wiele wartości VLookup  |   Przeglądanie pionowe na wielu arkuszach   |   Wyszukiwanie rozmyte ....
Zaawansowana lista rozwijana: Szybko twórz listę rozwijaną   |  Zależna lista rozwijana   |  Lista rozwijana wielokrotnego wyboru ....
Menedżer kolumn: Dodaj określoną liczbę kolumn  |  Przesuń kolumny  |  Przełącz stan widoczności ukrytych kolumn  |  Porównaj zakresy i kolumny ...
Polecane funkcje: Fokus siatki   |  Widok projektu   |   Duży pasek formuły    Menedżer skoroszytów i arkuszy   |  Biblioteka zasobów (Automatyczny tekst)   |  Selektor dat   |  Połącz arkusze   |  Szyfruj/odszyfruj komórki    Wysyłaj e-maile według listy   |  Super filtr   |   Specjalny filtr (filtruj pogrubienie/kursywa/przekreślenie...) ...
15 najlepszych zestawów narzędzi12 Tekst Tools (Dodaj tekst, Usuń znaki, ...)   |   50 + Wykres rodzaje (Wykres Gantta, ...)   |   40+ Praktyczne Wzory (Oblicz wiek na podstawie urodzin, ...)   |   19 Wprowadzenie Tools (Wstaw kod QR, Wstaw obraz ze ścieżki, ...)   |   12 Konwersja Tools (Liczby na słowa, Przeliczanie walut, ...)   |   7 Połącz i podziel Tools (Zaawansowane wiersze łączenia, Podział komórki, ...)   |   ... i więcej

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...

Opis


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!
Comments (2)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Kalau sel aktifnya ditentuka, seperti misalnya D7, bagaimana code nya?
Terima Kasih
This comment was minimized by the moderator on the site
maksud saya, code vba berikut, untuk cel aktif yang randomKode VBA: Salin nilai Combo Box ke sel aktif
Private Sub ComboBox1_Change()
ActiveCell.Value = Me.ComboBox1.Value
End Sub

kalau cel aktifnya ingin di tentukan misalnya text dari combo box tersebut ingin berada di cell D7, bagaimana merubah code vba nyaterima kasih
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations