Excel Forum - Porady, Pomoc,  Excel Help, Excel FAQ Strona Główna
 FAQ  RegulaminRegulamin  Szukaj   Użytkownicy   Grupy   Rejestracja   Profil   Twoje wiadomości   Zaloguj 


Poprzedni temat «» Następny temat
ID tematu: 74059 Skopiuj do schowka listbox ColumnWidths
Autor Wiadomość
nunus67 
ExcelSpec


Wersja: Win Office 2019
Pomógł: 192 razy
Posty: 543
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 23 raz(y) 164.6 KB

_________________
Nunus67
ID posta: 424712 Skopiuj do schowka
 
 
J_B 
Excel Expert


Wersja: Win Office 2016
Pomógł: 638 razy
Posty: 1529
Wysłany: 27-01-2023, 15:30   

nunus67 napisał/a:
nie potrafię sobie poradzić z ustawieniem (wymuszeniem ustawienia)
poprawnej szerokości kolumn w listboxie

musisz podać szerokość poszczególnych kolumn w taki sposób dla twojego przykładu
Kod:
.ColumnWidths = "30;20;160;90;50;100;123;80;60;70;66;55;56"
ID posta: 424714 Skopiuj do schowka
 
 
nunus67 
ExcelSpec


Wersja: Win Office 2019
Pomógł: 192 razy
Posty: 543
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
ID posta: 424715 Skopiuj do schowka
 
 
nunus67 
ExcelSpec


Wersja: Win Office 2019
Pomógł: 192 razy
Posty: 543
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
_________________
Nunus67
ID posta: 424716 Skopiuj do schowka
 
 
Wyświetl posty z ostatnich:   
Odpowiedz do tematu
Nie możesz pisać nowych tematów
Nie możesz odpowiadać w tematach
Nie możesz zmieniać swoich postów
Nie możesz usuwać swoich postów
Nie możesz głosować w ankietach
Nie możesz załączać plików na tym forum
Możesz ściągać załączniki na tym forum
Dodaj temat do Ulubionych
Wersja do druku

Skocz do:  

Powered by phpBB modified by Przemo © 2003 phpBB Group
Theme xandgreen created by spleen& Programosy modified v0.3 by warna
Opieka techniczna www.wip.pl

Archiwum

Strona uĹźywa plikĂłw cookies.

Kliknij tutaj, żeby dowiedzieć się jaki jest cel używania cookies oraz jak zmienić ustawienia cookie w przegl�darce.
Korzystając ze strony użytkownik wyraża zgodę na używanie plików cookies, zgodnie z bieżącymi ustawieniami przeglądarki.
SprawdĹş, w jaki sposĂłb przetwarzamy dane osobowe