Excel - Formularz z listą rozwijaną

Question

Witam,próbuję stworzyć formularz w Excelu, w którym będę mógł wybierać z listy rozwijanej jedną wartość, a reszta będzie się uzupełniać?W załączeniu...

adamas_nt · Accepted Answer

Wpisz w C9 Code: textLog in, to see the codei zatwierdź Ctrl+Shift+Enter (tablicowa)Resztę kolumn powinno załatwić zwykłe WYSZUKAJ.PIONOWOdodano po chwiliA nie, "nazwa_ósma" - zdaje się, że wszędzie potrzebujesz "tablicówek".

adamas_nt · Accepted Answer

Najwygodniej byłoby zrobić UserForm z dwoma ComboBox'ami, gdzie na podstawie wyboru pierwszego (nazwa arkusza) wypełniało by się drugi danymi z dwóch kolumn. Bardzo uprościłoby ujednolicenie nagłówków.

Oczywiście jest to do zrobienia w obecnej postaci, ale nie we wszystkich arkuszach występują obie poszukiwane kolumny. Co w takim przypadku?

adamas_nt · Accepted Answer

Przykład (schemat działania) w załączniku. Sposób odwołania do arkuszy (pobieranie danych) w przypisaniach Masgbox'a.
Aktywne tylko dwie pierwsze pozycje, resztę trzeba doklepać.
Można wstawić TextBox z ilością i odejmować ze stanu.

kecajs · Answer

A wracając do tego wątku. W jaki sposób mogę dołożyć zakresu przeszukiwania w postaci innych arkuszy z tego samego skoroszytu? Mam skoroszyt, w którym jest kilka arkuszy. Potrzebuję przeszukać je wg powyższego schematu (tj, że podaję Nr rys i Część na rys, zaś reszta treści kopiuje się z właściwych arkuszy).

adamas_nt · Answer

Najprościej wrzucić wszystko do jednego arkusza "Bazy". Można zrobić to formułami, patrz kolumna A i C w "Dane" + dynamiczna nazwa, patrz "Część_rys".
Jeśli tych arkuszy jest więcej (niż powiedzmy 5), sugeruję napisać makro.

kecajs · Answer

Fajnie to wygląda, ale arkuszy jest 11 i nie mają tego samego układu kolumn. A nie mogę nic zmieniać, bo to są arkusze, z których korzystają też inne osoby. Myślałem, że jest prosty sposób i że mogę w Formularzu w formule tablicowej po prostu jakoś "dołożyć" sprawdzanie także w innych arkuszach. Code: text Expand Select all Copy to clipboard
{=JEŻELI(D9<>"";INDEKS(Dane!B$2:B$11;PODAJ.POZYCJĘ(2;(Dane!C$2:C$11=D9)+(Dane!D$2:D$11=E9);0));"")}

adamas_nt · Answer

To "ciut" komplikuje, ale jeśli kolumny mają identyczne nagłówki, to coś dałoby się zrobić. INDEKS oraz PODAJ.POZYCJĘ "działają" również w poziomie. Załącz jakiś, w miarę podobny do oryginału, przykład.

kecajs · Answer

W załączniku przykładowy plik.

kecajs · Answer

Pomysł uważam niezły. Co do braku jednej z kolumn, to mogę dołożyć kolumnę pustą, którą sobie ukryję i tyle. W kolumnie nie będzie żadnych wartości lub będą wartości np. "0". Powinno rozwiązać to sprawę, prawda?
A jak ten formularz zrobić?

kecajs · Answer

Dopisałem już brakujące arkusze, ale co muszę jeszcze zmienić, aby w liście rozwijanej była widoczna druga linia, tj. po wyborze arkusza nie mam nic w liście z nr rys i pozycją na rys. Są tylko te dwie pierwsze, które Ty wpisałeś.
A jak mogę to teraz przenieść do formularza, aby po kliknięciu na OK pojawiały się te dane w formularzu, tak jak to było w pierwszym formularzu?

adamas_nt · Answer

Ad.1 Linię opatrzoną komentarzem (tymczasowe...do wyrzucenia) należy usunąć
Ad.2 Sposób odwołania masz w trzeciej linijce tekstu komentarza
Znaleźć ostatni wiersz w zakresie (docelowym) chyba potrafisz? Ostatecznie "wygoogluj" funkcję LastRow i przypisz.

P.S. W drugim Combo formularza możesz umieścić dane z dowolnych kolumn (bez przesady oczywiście) i w dowolnej kolejności. Widziałbym tu symbol z kolumny "element" na przykład (dla lepszej orientacji).

kecajs · Answer

Usunąłem linię do wyrzucenia.
Co do reszty, to możesz trochę bardziej sprecyzować, o jaki komentarz chodzi i trochę szerzej powiedzieć co mam zmienić w kwestii widoczności wszystkich pozycji w drugim polu Combo.
Uporządkowałem już nagłówki.
A jak te informacje pojawiające się w MsgBox przenieść do formularza? No i jak w MessageBox zrobić enter, aby każda wywoływana linia była wyswietlana w osobnym wierszu, a nie ciągiem?
W załączeniu podsyłam plik z moimi zmianami.
Dzięki wielkie za pomoc i cierpliwość do początkującego

adamas_nt · Answer

Widzę, że ujednoliciłeś nagłówki - będzie prościej. Przeanalizuj, dostosuj do własnych potrzeb.

kecajs · Answer

Super, wielkie dzięki za pomoc!A mam jeszcze pytanie odnośnie przycisku wywołującego MessageBox'a - jak go przesunąć lub zmienić wygląd etc. PPM nie działa

adamas_nt · Answer

Karta "Deweloper" > Tryb projektowaniaP.S. Jest to przycisk AciveX, wywołujący UserForm

kecajs · Answer

A jeszcze jedno - mam nadzieję ostatnie pytanie

W jaki sposób ograniczyć ilość wierszy? Bo formularz będzie miał określoną liczbę wierszy i pod spodem muszę jeszcze coś dopisać. Kiedy dopisuję coś pod tabelą, to kolejne wiersze z MsgBox'a wstawiane są poniżej tego tekstu, a nie w kolejności w tabeli.

adamas_nt · Answer

Zmień przypisanie na

ostWrs = .Range("B35").End(xlUp).Row + 1

gdzie B35 to ostatnia komórka tabeli. Przydałoby się być może zabezpieczenie przed przekroczeniem, ale to "wyjdzie w praniu".

kecajs · Answer

Wielkie dzięki za pomoc Ile mogłem, tyle "kciuków w górę" kliknąłem. Temat zamykam.