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.

resetowanie pól wyboru lub opcji

bulielmo 21 Maj 2010 20:21 635 2
  • #1 21 Maj 2010 20:21
    bulielmo
    Poziom 7  

    Witam,

    czy jest jakiś prosty sposób (albo ew. makro) które pozwalałoby zresetować - czytaj przywrócić wartość początkową - wszystkich formantów wstawionych z paska narzędzi Formularze (nie chodzi mi o pola activeX tylko zwykłe pola wyboru lub opcji wstawiane bezpośrednio do arkusza).

    Stworzyłem sobie prosty formularz w jednym z arkuszy gdzie te pola wyboru lub opcji wypełniają mi wiersz w drugim arkuszu. Chciałbym w prosty sposób po skopiowaniu sobie tego docelowego wiesza skasować wyniki pobrane z tych pól wyboru i wybrać je ponownie - znów zapisać ten wiersz - skopiować etc.

    czy ktoś pomoże?

    0 2
  • #2 21 Maj 2010 21:58
    adamas_nt
    Moderator Programowanie

    Wykorzystaj łącze komórki formantu. Wystarczy pousuwać lub ustawić domyślne wartości zarejestrowanym w tym celu makrem.

    0
  • #3 22 Maj 2010 08:56
    bulielmo
    Poziom 7  

    chyba jak na razie sobie z tym nie poradzę. Inny problemik.

    Mam dwa pola listy które chciałem powiązać kodem

    Private Sub ListBox2_Click()
    If ListBox1.Value = "ZT 1100" Then ListFillRange = ("h1:h7")
    Else: If ListBox1.Value = "ZT 1200" Then ListFillRange = ("h8:h18")
    Else: If ListBox1.Value = "ZT 1300" Then ListFillRange = ("h19:h29")
    Else: ListBox2.ListFillRange ("h30")
    End If
    End If
    End If


    End Sub

    niestety nie działa - gdzie tkwi błąd - pewnie to wogóle jest bez sensu :-(

    Dodano po 1 [minuty]:

    dokładnie chodziło mi o to żeby w polu listy 2 dostępne były pewne pola z zakresu komórek h1:h30 w zależności od wyboru z listy nr 1

    Dodano po 55 [minuty]:

    nie mogło działać bo przypisałem kod do złego pola listy i zdarzenie tez nie było ok.

    zmieniłem kod ale wyrzuca mi błąd składni - co jest nie tak?

    Private Sub ListBox1_Change()

    If ListBox1.Value = "ZT 1100" Then ListBox2.ListFillRange = ("h1:h7")
    Else: If ListBox1.Value = "ZT 1200" Then ListBox2.ListFillRange = ("h8:h18")
    Else: If ListBox1.Value = "ZT 1300" Then ListBox2.ListFillRange = ("h19:h29")
    Else
    ListBox2.ListFillRange ("h30")
    End If
    End If
    End If

    End Sub

    0