EXCEL- ComboBox, ListBox: Listy rozwijane i inne możliwości

Question

Witam. Tym razem przy projektowaniu mojego pliku utknąłem przy ComboBox i ListBox- a dokładnie, dodania do nich ewentualnych możliwości jeśli oczywiś...

JRV · Accepted Answer

1. Code: text Expand Select all Copy to clipboardPrivate Sub UserForm_Terminate()
combo1.Value = combo1.ControlSource
End Sub
2. Code: text Expand Select all Copy to clipboardcombo1.MatchRequired = True3. Do wujka Googla CreateObject("scripting.dictionary")Na angielskom - http://www.snb-vba.eu/VBA_Dictionary_en.html

JRV · Accepted Answer

OblKierownik1.MatchRequired = True - to nie makrem, to we wlasciwosciach kombo(proektowanie).ControlSource - wlasciwosci - ma byc adres komorki na arkushe - u mnia dziala

clubs · Accepted Answer

WitamW ListBox nie ma takiej możliwości ale możesz to zrobić w ListViewzobacz takie coś

JRV · Accepted Answer

Code: text Expand Select all Copy to clipboardWith Me.lst
    For i = 0 To .ListCount - 1
    If .List(i, 2) = "Brak JPG" Then
        .Selected(i) = True
    End If
    Next
End With
 Dodano po 1 [minuty]: lst - to jest ListBox

JaroFon · Answer

Jeśli chodzi o pierwsze to daję jak poniżej i nie działa. Czy może myć problem w działaniu jeśli ComboBox znajduje się MultiPage?

Log in, to see the code

W drugim daję jak poniżej aby mnie wypuściło przy ewentualnym braku wpisu w ComboBox i jest OK

Log in, to see the code

A jeśli chodzi o trzecie to właśnie przegrzebuję google

JaroFon · Answer

No tak, tylko jeśli MatchRequired dam na true w opcjach projektowania to nie wypuści mnie z ComboBox jeśli będę chciał go zostawić pusty.

Dodano po 16 [minuty]:

Ach teraz już rozumiem

Przyznam szczerze że nie wiedziałem o takich opcjach. Nie zauważyłem że muszę dać odnośnik zapisujący dla ControlSource. Jeśli chodzi o MatchRequired to muszę to dać w makro aby mnie wypuszczało z pustych ComboBox. Dzięki wielkie.

JRV · Answer

Do teraz także nie wiedział o tym, spojrzał na wszystkie opcje i wypróbował ten.

JaroFon · Answer

Witam. Czy w oknie ListBox jest możliwość aby wyróżnić niektóre wpisy innym kolorem czcionki? Np. W ListBox chciałbym wyróżnić inny kolorem daty które już minęły. Czy jest taka możliwość?

JRV · Answer

Naprawdę, naprawdę wątpliwości. Nie widzę takiej możliwości.

Dodano po 7 [minuty]:

To tworzenia własnych pole listy niestandardowej.
Ale mam podejrzenie, że jest to wielki ciemności, logiczne, prawie nie warte.

JaroFon · Answer

I to kolejny dowód że człowiek całe życie się uczy. Nie wiedziałem że w Excelu jest coś takiego jak ListView. Gdzie w projektowaniu UserForm jest coś takiego? Na załączonym screenie nic takiego nie mam :/ .

Ogólnie to o taki efekt mi chodzi i coś takiego chciałbym osiągnąć. Tylko że w moich ListBoxach mam po parę kolumn. Czy ten ListView można w moim poniższym kodzie jakoś zastosować? W kolumnach 2,3 i 4 są daty które chciałbym wyróżnić w przypadku jeśli są już nieważne.

Log in, to see the code

JRV · Answer

Witaj. To dodatkowe, PPM i najdz Microsoft ListView Control.

JaroFon · Answer

Ok. Już włączyłem ListView. Ale czy ten ListView mogę jakoś zastosować W moim kodzie? Czy to będzie wymagać dużo przeróbek? Nie ukrywam że takich okien ListBox z datami w moim arkuszu mam wiele.

JRV · Answer

Zaczynam się uczyć.

Tu angelskie http://www.cgplusplus.com/online-reference/ma...reference/source/listview_activex_control.htm

Tu jest nieco, tylko to VB, nie VBA:
https://msdn.microsoft.com/pl-pl/library/syst...aspx?cs-save-lang=1&cs-lang=vb#code-snippet-1

JaroFon · Answer

przyznam że dla mnie to magia. A z angielskim nie jestem na bieżąco No trudno. Może z jakimś czasem do czegoś dojdę. A na razie zostawię taka jak mam

JRV · Answer

Do programowania angielski jest pożądany. Tu jeszcze:https://social.msdn.microsoft.com/Forums/en-U...cf4a6bc2321d/how-to-use-listview?forum=isvvbaDopasuj.

JaroFon · Answer

Witam ponownie. Czy w ListBox, w którym mam ustawione np. 3 kolumny jest możliwość aby dla każdej kolumny ustawić inny zakres RowSource? Mam trzy różne zakres i każdy z nich chciałbym wyświetlić w osobnej kolumnie jednego ListBox-a. Czy można coś takiego zrobić?

JRV · Answer

Jeżeli zakresy rozmiaru tego samego, podjąć pomocniczy zakres, który zawiera trzy wymagane.

JaroFon · Answer

Witam. Mam okno ListBox a w nim różne dane jak widać na screenie. Czy można zastosować jakieś makro które jednym kliknięciem zaptaszkuje mi wszystkie pozycje które mają w kolumnie 3 wpis 'Brak JPG'?

JaroFon · Answer

Dzięki. Działa wyśmienicie.