Excel Forum - Porady, Pomoc, Excel Help, Excel FAQ - Tworzenie listy pozycji w ListBox w UserForm

Leon M · Exceloholic Wersja: Win Office 2010 Posty: 131

Szanowni Forumowicze,

Zwracam się do Was z gorącą prośbą o rozwiązanie następującej kwestii:

W Tabeli w arkuszu Excela zawarte są dane pracowników, na podstawie których tworzone są comiesięczne rachunki. Makro obsługujące arkusz podmienia określone łańcuchy znaków w szablonie rachunku odpowiednimi danymi pobieranymi z tabeli i tworzy rachunki, zapisując je w folderze "Rachunki bieżące".
W załączniku zamieszczam materiał poglądowy.

W obecnym rozwiązaniu po kliknięciu kontrolki "Utwórz" tworzone są rachunki dla wszystkich pozycji w tabeli.
Liczba pozycji w tabeli jest zmienna, bowiem sukcesywnie dopisywani do listy są nowi pracownicy.

Chciałbym rozbudować obecny układ o wykorzystanie UserForm przez możliwość przedstawienia listy pracowników (nazwisko i imię) z tabeli w ListBox z możliwością wielokrotnego wyboru.
W takim przypadku tworzone byłyby rachunki dla pracowników zaznaczonych w ListBox.

Samodzielnie nie potrafię napisać odpowiedniego makra, dlatego kieruje prośbę do Szanownych Forumowiczów o pomoc w rozwiązaniu przedstawionego zagadnienia.

Z góry serdecznie dziękuję za Wasze odpowiedzi.

Tworzenie Rachunków.rar

Pobierz Plik ściągnięto 12 raz(y) 145.62 KB

beret · Wysłany: 29-03-2021, 09:02

Cytat:

W obecnym rozwiązaniu po kliknięciu kontrolki "Utwórz" tworzone są rachunki dla wszystkich pozycji w tabeli.

Ja bym to zrobił inaczej. Zamiast tworzyć rachunki w Wordzie, szablon rachunku zrobiłbym w Excelu i odpowiednio korzystał z niego przy wywoływaniu pracownika / pracowników.

Leon M · Exceloholic Wersja: Win Office 2010 Posty: 131

Beret, dzięki za Twój wpis.

Czy mógłbyś bardziej szczegółowo przedstawić swoją koncepcję i zobrazować ją przykładem w arkuszu?

apollo · ExcelSpec **Pomógł:** 1317 razy Posty: 4543

O ile pamiętam to już zrobiłem dla Ciebie takie zadanie.

Tadek · Wysłany: 29-03-2021, 14:34

Wg propozycji Bereta (chyba się nie obrazi ;-)

).
Zobacz w załaczniku.

LISTA.xlsm

Pobierz Plik ściągnięto 13 raz(y) 29.75 KB

Leon M · Exceloholic Wersja: Win Office 2010 Posty: 131

Apollo, tak, dobrze pamiętasz, w rozwiązaniu przedstawionym przez Ciebie wybór pozycji do utworzenia rachunku dokonywał się poprzez InputBox, a teraz chciałbym zaaplikować do tego celu ListBox w UserForm.

Tadku, bardzo dziękuję za przedstawienie rozwiązania. Prawdę mówiąc, nie mogę dociec, na jakiej zasadzie ono działa. Np., jak została utworzona lista wyboru, jak dokonują się podstawienia poszczególnych danych.

apollo · ExcelSpec **Pomógł:** 1317 razy Posty: 4543

Poczytaj to, co napisałem w arkuszu Arkusz3. Cały kod w Module1 i UserForm1.

Lista Obecności.xlsm

Pobierz Plik ściągnięto 15 raz(y) 42.95 KB

Leon M · Exceloholic Wersja: Win Office 2010 Posty: 131

Apollo, przeogromne dzięki za przedstawione rozwiązanie. Odpowiada w pełni podanym założeniom. :-)

Teraz muszę się podjąć rozgryzienia kodu, który stworzyłeś, aby pojąć jego działanie.

Tadek · Wysłany: 30-03-2021, 08:27

Cytat:

Tadku, bardzo dziękuję za przedstawienie rozwiązania. Prawdę mówiąc, nie mogę dociec, na jakiej zasadzie ono działa. Np., jak została utworzona lista wyboru, jak dokonują się podstawienia poszczególnych danych.

Lista wyboru:
kliknij kolejno:
1) Formuły-->Menedżer nazw-->pracownik (tu jest utworzona lista pracowników)
2) Dane-->Poprawność danych-->Lista-->Źródło (lista wyboru)

Podstawianie danych:
dane są podstawiane za pomocą odpowiednich formuł - aby je zobaczyć odkryj kolumnę L.

Leon M · Exceloholic Wersja: Win Office 2010 Posty: 131

Tadku, bardzo dziękuję z wskazówki i wyjaśnienia.

Leon M · Exceloholic Wersja: Win Office 2010 Posty: 131

Apollo, jeszcze raz pięknie dziękuję za napisaną przez Ciebie aplikację. Cieszę się z niej niezmiernie.
Zacząłem właśnie analizować kody, które ułożyłeś, i w związku z tym chciałbym Cię uprzejmie prosić o wyjaśnienia w kwestiach, w których mam problemy z ich ogarnięciem.

1. W procedurze UserForm_Initialize() jest taki oto fragment:

Kod:

For r = 1 To UBound(dane)
dane(r, 3) = r + 3 ' w 3-ciej dodanej kolumnie zapamiętać numer wiersza na arkuszu danej pozycji.
Next r
With ListBox1
.ColumnCount = 2
.MultiSelect = 1
.List = dane
End With

Tablica dane() ma trzy kolumny, natomiast ListBox chyba dwie (ListBox1.ColumnCount = 2).
Czy to znaczy, że do ListBox zostają przypisane tylko dwie pierwsze kolumny tablicy dane() (ListBox1.List = dane), czy może że tylko dwie kolumny ListBox są wyswietlane (ListBox1.ColumnCount = 2)?

2. W procedurze CommandButton1_Click():

Kod:

If ListBox1.Selected(r) Then
count = count + 1
wiersze(count) = ListBox1.List(r, 2) ' numer wiersza na arkuszu wybranej pozycji
End If

Jak indeksowana jest ListBox, od 0 czy od 1, bowiem zastanawia mnie czy ListBox1.List(r, 2) jest odwołaniem do drugiej, czy trzeciej kolumny? Wydaje mi się, że do trzeciej.

3. W procedurze UtwórzRachunek()":

zmieniłem na

Kod:

Application.StatusBar = "Plik " & indeks

i niestety nie działa, nie wyświetla wartości indeks, czyli liczby kolejnego tworzonego rachunku.
Nie wiem, dlaczego.

Będę bardzo wdzięczny za wyjaśnienia, za które z góry pięknie dziękuję.

apollo · ExcelSpec **Pomógł:** 1317 razy Posty: 4543

Leon M · Exceloholic Wersja: Win Office 2010 Posty: 131

Apollo, pięknie dziękuję za przedstawione wyjaśnienia, bardzo mi pomogły w ogarnianiu kodu.

Leon M · Exceloholic Wersja: Win Office 2010 Posty: 131

Apollo, chciałbym zwrócić się o pomoc jeszcze w następującej rzeczy. Otóż, chciałbym dodać jeszcze jeden element do Twojej aplikacji. Mianowicie, aby po wybraniu pozycji z ListBox i naciśnięciu przycisku "Utwórz rachunki" wyświetlał się komunikat o liczbie wybranych pozycji.
Czy można do tego celu wykorzystać formant Label? Jeśli można, to jak to wykonać?
Czy w oknie ListBox można zamieszczać tekst? Np. w górnej części "Wybierz pozycje z poniższej listy"

I jeszcze pytanie: czy można sprawić tak, aby po utworzeniu rachunków automatycznie zamykało się okno ListBox?

Z góry bardzo dziękuję za odpowiedź.

apollo · ExcelSpec **Pomógł:** 1317 razy Posty: 4543