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

VBA-ComboBox - tworzenie daty z wartości dwóch comboboxów

thehodgie 16 Gru 2014 17:44 873 2
  • #1 16 Gru 2014 17:44
    thehodgie
    Poziom 2  

    Witam,
    Próbuję stworzy formularz w którym w dwóch oddzielnych ComboBoxach wybiera się miesiąc oraz rok zatrudnienia pracownika. Teraz chciałbym te dwie wartości umieścić w jednej komórce jako datę w formacie ,,mmm yyyy". Miesiące w comboboxie są w formie tekstowej (styczeń, luty itd).
    Próbowałem już to zrobić na kilka sposobów, ale z marnym skutkiem.
    Jak na razie mam wartości miesiąca i roku zdefiniowane jako m i r. Zastanawiam się czy da się to jakoś połączyć za pomocą

    Kod: vb
    Zaloguj się, aby zobaczyć kod

    Dla obecnej daty mam taki kod i zastanawiam się czy da się to jakoś zmodyfikować żeby podstawiał wartość m i r dla date_example
    Kod: vb
    Zaloguj się, aby zobaczyć kod

    0 2
  • Pomocny post
    #2 16 Gru 2014 19:32
    marek_s1
    Poziom 13  

    Jeżeli pola kombi są w w UserForm to musisz zbudować datę na podstawie wybranych wartości.

    Np. ComboBox1 to wybór roku (np. 2014),
    a ComboBox2 to wybór miesiąca (np. lipiec - siódmy na liście)

    wtedy pierwszy dzień miesiąca to:

    Code:
    date_example=DateSerial(ComboBox1.Value, ComboBox2.ListIndex+1,1)
    

    Cells(20, 9) = Format(date_example, "mmm yyyy")



    Osobiście polecam przechowywanie pełnych dat w formacie daty a nie tekstu.
    A wynik formatować dowolnie. Czyli:

    Code:
    Cells(20, 9) = date_example

    0
  • #3 16 Gru 2014 21:02
    thehodgie
    Poziom 2  

    Wielkie dzięki, pomogło. Tak jak radziłeś zostawiłem to jako

    Kod: vb
    Zaloguj się, aby zobaczyć kod

    a format daty jaki chciałem i tak kopiuje mi się z formatami całego wiersza tabeli.

    0