Elektroda.pl
Elektroda.pl
X
Proszę, dodaj wyjątek dla www.elektroda.pl do Adblock.
Dzięki temu, że oglądasz reklamy, wspierasz portal i użytkowników.

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

15 Wrz 2015 15:26 2565 19
  • Poziom 23  
    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ście jest taka opcja. Jeśli chodzi o ComboBox: czy jest możliwość aby w ComboBox umieszczonym w oknie UserForm wybrać coś z rozwijanej listy i aby to co wybiorę pozostało w tym ComboBox nawet po restarcie pliku? Następnie czy w ComboBox można zrobić tak aby nie można było do niego wpisać nic innego jak tylko to co jest możliwe do wyboru z rozwijanej listy w ComboBox? Jeśli chodzi o ListBox: czy można dla tego okna utworzyć listę z unikalnych nazw umieszczonych w kolumnie arkusza? Dajmy na to że mam w kolumnie X, 1000 pozycji a w niektórych (nie wszystkie komórki tej kolumny X są zapisane) z nich są powtarzające się wpisy, i właśnie z tych unikalnych wpisów utworzyć listę (jeśli to możliwe alfabetycznie posortowaną), czyli ma pobrać listę unikalnych wpisów z kolumny X od pierwszej do ostatniej pełnej komórki. Bardzo proszę o pomoc.
  • Pomocny post
    Specjalista - VBA, Excel
    1.
    Code:
    Private Sub UserForm_Terminate()
    
    combo1.Value = combo1.ControlSource
    End Sub

    2.
    Code:
    combo1.MatchRequired = True

    3. Do wujka Googla CreateObject("scripting.dictionary")
    Na angielskom - http://www.snb-vba.eu/VBA_Dictionary_en.html
  • Poziom 23  
    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?

    Kod: vb
    Zaloguj się, aby zobaczyć kod


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

    Kod: vb
    Zaloguj się, aby zobaczyć kod


    A jeśli chodzi o trzecie to właśnie przegrzebuję google
  • Pomocny post
    Specjalista - VBA, Excel
    OblKierownik1.MatchRequired = True - to nie makrem, to we wlasciwosciach kombo(proektowanie)

    .ControlSource - wlasciwosci - ma byc adres komorki na arkushe - u mnia dziala
  • Poziom 23  
    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.
  • Specjalista - VBA, Excel
    Do teraz także nie wiedział o tym, spojrzał na wszystkie opcje i wypróbował ten. :) :)
  • Poziom 23  
    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ść?
  • Specjalista - VBA, Excel
    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.
  • Poziom 23  
    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 :/ .

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

    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.

    Kod: vb
    Zaloguj się, aby zobaczyć kod
  • Specjalista - VBA, Excel
    Witaj. To dodatkowe, PPM i najdz Microsoft ListView Control.
    EXCEL- ComboBox, ListBox: Listy rozwijane i inne możliwości
  • Poziom 23  
    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.

    EXCEL- ComboBox, ListBox: Listy rozwijane i inne możliwości
  • Poziom 23  
    :P 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
  • Poziom 23  
    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ć?
  • Specjalista - VBA, Excel
    Jeżeli zakresy rozmiaru tego samego, podjąć pomocniczy zakres, który zawiera trzy wymagane.
  • Poziom 23  
    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'?

    EXCEL- ComboBox, ListBox: Listy rozwijane i inne możliwości
  • Pomocny post
    Specjalista - VBA, Excel
    Code:
    With 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
  • Poziom 23  
    Dzięki. Działa wyśmienicie.
    EXCEL- ComboBox, ListBox: Listy rozwijane i inne możliwości