Excel Forum - Porady, Pomoc, Excel Help, Excel FAQ - Problem z przypisaniem danych do formularza

chips · Exceloholic Posty: 249

Mam nadzieję, że masz jeszcze cierpliwość. Kolejna prośba dotyczy również list.
1. Chciałbym by po wybraniu jakiejś pozycji na liście pierwszej w liście drugiej wyświetlała się pozycja określona w makrze (załączyłem przykład). Da się to równie prosto zrobić?
2. Chciałbym aby w liście wyświetlała się tylko jedna pozycja (czyli nie tak jak w moim przykładzie). Czy da się to zrobić inaczej niż tylko zmianą rozmiaru listy?

2_listy_zależne.zip

Pobierz Plik ściągnięto 688 raz(y) 9.42 KB

chips · Exceloholic Posty: 249

Trebor · Excel Expert **Pomógł:** 1752 razy Posty: 4680

Trebor · Excel Expert **Pomógł:** 1752 razy Posty: 4680

chips · Exceloholic Posty: 249

Wszystko działa. Dzięki Trebor. Ale jeszcze mam zgryz z tym:
1.

Cytat:

2. Chciałbym aby w liście wyświetlała się tylko jedna pozycja (czyli nie tak jak w moim przykładzie). Czy da się to zrobić inaczej niż tylko zmianą rozmiaru listy?

Tu chodzi mi o listę nr 1.

2.Czy wielkością czcionki w liście można sterować?

PS. To nie mój wątek forum więc nie mogę dodawać wam punktów za pomoc

chips · Exceloholic Posty: 249

Umiem zmieniać kod który podał Trebor jeżeli dane będą w tym samym arkuszu. Ale jak zmienić ten kod jeżeli dane do obydwu tych list będą w innym arkuszu (arkusz2) - załączyłem plik.

Kod:

Private Sub ListBox1_Click()
If ListBox2.ListCount >= 0 Then ListBox2.Clear
ListBox2.AddItem Cells(ListBox1.ListIndex + 1, 4)
End Sub

Sorry. że nadwerężam waszą cierpliwość ale formularz, który dzięki waszej pomocy staram się stworzyć jest dość karkołomny.

2_listy_zależne(2).zip

Pobierz Plik ściągnięto 689 raz(y) 10.08 KB

Trebor · Excel Expert **Pomógł:** 1752 razy Posty: 4680

Sprawdź taki kod

Kod:

Private Sub ListBox1_Click()
ListBox2.Clear
ListBox2.AddItem Sheets("Arkusz2").Cells(ListBox1.ListIndex + 1, 4)
End Sub

Pamiętaj, że lista dla listboxa jest indeksowana od 0 tj. pierwszy wiersz jest 0. Podobnie kolumna.
Czcionkę można zmienić dla całego formantu. Nie znam sposobu na zmianę wilkości czcionki dla jednego wiersza spośród innych.

Pozdrawiam

Tajan · **Pomógł:** 5618 razy Posty: 12152

chips, zapytam, tak z ciekawości, po co Ci kontrolka listy w drugiej kolumnie, skoro chcesz wyświetlić jedną wartość? Możesz ją przecież wyprowadzić w komórce B1, bez potrzeby używania kontrolki. Zresztą, i makro nie jest tu potrzebne.
Ustaw właściwość "LinkedCell" pierwszego Listbox'a na komórkę A1, a do komórki B1 wpisz formułe:

Kod:

=JEŻELI(A1="";"";INDEKS(Arkusz2!D1:D8;PODAJ.POZYCJĘ(A1;Arkusz2!C1:C8;0)))

A jezeli już koniecznie ma być kontrolka w kolumnie B, to możesz jej użyć, ustawiając jej "ListFillRange" na komórkę B1, zawierającą powyższą formułę. Efekt będzie taki sam, jak z makrem :-)

chips · Exceloholic Posty: 249

Trebor. Dzięki. Twoje makro działa dla 2 list jeżeli tablica jest w innym arkuszu. Potrzebuję jeszcze ten kod zmodyfikować (spójrz niżej).

Tajan. Dzięki za odpowiedź. Faktycznie trochę błądzę szukając efektywnego rozwiązania. Teraz faktycznie widzę, że dwie listy zależne od siebie to nie najlepszy kierunek. Niemniej nie mogę drugiej listy zastapić komórką z formułą którą podałeś dlatego, że w rzeczywistości dane w tej drugiej liście są to dane tekstowe o znacznej wielkości (kilka zdań).

Bazując na wiadomościach do tej pory od Was otrzymanych wydaje mi się, że najlepszym rozwiązaniem była by lista (ListBox1) oraz pole tekstowe (TextBox1) (zalezne od siebie jak wczesniej). Tylko nie potrafię zmienić kodu by to działało. Możecie pomóc?

Kod:

Private Sub ListBox1_Click()
ListBox2.Clear
ListBox2.AddItem Sheets("Arkusz2").Cells(ListBox1.ListIndex + 1, 4)
End Sub

Tajan · **Pomógł:** 5618 razy Posty: 12152

Rozwiązanie z TexBox'em już bardziej do mnie przemawia :-)

Zmień kod w następujący sposób:

Kod:

Private Sub ListBox1_Click()
TextBox1.Value= Sheets("Arkusz2").Cells(ListBox1.ListIndex + 1, 4).Value
End Sub

chips · Exceloholic Posty: 249

Dzięki. Działa. Mam nadzieję, że koncepcja mi się nie zmieni. :mrgreen:

chips · Exceloholic Posty: 249

Witam, Jeżeli potrzebuję to makro zastosować dla wiekszej ilości listboxów to czy jest możliwość jednej procedury z np. pętlą, czy też muszę utworzyć tyle procedur ile listboxów?

Kod:

Private Sub ListBox2_Click()
TrescCheckList1.Value = Sheets("System2").Cells(ListBox2.ListIndex + 12, 2).Value
End Sub

Tajan · **Pomógł:** 5618 razy Posty: 12152

Pętlą się nie da. Wprawdzie istnieje pewien sposób polegający na napisaniu własnej klasy, ale w Twoim przypadku radziłbym jednak zastosować oddzielna procedurę dla każdej kontrolki.