Excel Forum - Porady, Pomoc, Excel Help, Excel FAQ - listbox ColumnWidths

nunus67 · Wysłany: 27-01-2023, 15:13 **listbox ColumnWidths**

Witam,

w załączniku jest plik w którym nie potrafię sobie poradzić z ustawieniem (wymuszeniem ustawienia) poprawnej szerokości kolumn w listboxie. Problem polega na tym że czasami listbox wyświetla się z kolumnami o szerokości takiej jaka wynika z kodu, a czasami "głupieje" i szerokość kolumn jest inna niż potrzebuję. W arkuszu "screen" jest przykład tego jak to wygląda.

Dziś naprzykład rano plik testowy pokazywał dobre szerokości kolumn. Zamknąłem plik, popracowałem trochę z plikiem docelowym... W pliku docelowym listbox mi "zgłupiał"...
Wróciłem do pliku testowego a tam excel również pokazuje nie to co chciałbym zobaczyć :( .
Ciekawe jest to że listbox w pliku testowym i docelowym wyświetla się w taki sam sposób.

Może ktoś kiedyś spotkał się już z podobnym problemem?

listbox testy.xlsm

Pobierz Plik ściągnięto 9 raz(y) 164.6 KB

J_B · Wysłany: 27-01-2023, 15:30

nunus67 · Wysłany: 27-01-2023, 15:53

niestety ale excel się zbuntował, podawanie szerokości bezpośrednio w UserForm_Initialize:

Kod:

.ColumnWidths = "32;82,4;77,6;240,8;58,4;58,4;58,4;89,6;16,4;21,2;463,4;40,4;85,4;32"

tym razem też nie pomaga. Zajrzyj do załącznika, czwarta kolumna nie ma szerości 240,8...
Poza tym chciałem aby szerokość kolumn w listboxie dopasowywała się do szerokości kolumn w arkuszu.

Zrzut ekranu 2023-01-27 154929.png

Plik ściągnięto 6 raz(y) 22.04 KB

nunus67 · Wysłany: 27-01-2023, 16:18

Wygląda na to że zmiana kodu w procedurze GetData:

Kod:

vR(n) = CInt(.Columns(i).Width) + cTol

pomogła. Dzięki za natchnienie J_B