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.

VBA Excel. Dane z Combobox oraz textboxu na multipage eksportowane do komorki

10 Lut 2012 23:06 2556 3
  • Poziom 2  
    Witam,

    Mam taki problem, mam nadzieje ze bedziecie mogli mi pomoc. Po kliknieciu przycisku 4 na arkuszu oferta, chciałabym wybraną wartość z Comboboxu oraz Textboxu "Wartosc" przeniesc po kliknieciu przycisku do komorek B9 i C9...

    Przeszukałam wiele for internetowych lacznie z tym, przeczytalam PDFy i nie moge sobie poradzic od paru dni :(
  • Pomocny post
    Moderator Programowanie
    Nie wystarczy zwykłe przypisanie w kodzie przycisku? Zdaje się, że chodzi też o wypełnienie kolejnych pozycji. Spróbuj:
    Kod: vb
    Zaloguj się, aby zobaczyć kod
  • Poziom 2  
    Wielkie dzięki za odp. Tak chodziło mi o to, żeby po dodaniu kolejnego przesuwało się w dół. Co prawda udało mi się samej gdyż znalazłam wkońcu tu na forum podobny przykład zmodyfikowałam go do swoich potrzeb i widzę, że najważniejsza część jest podobna do Twojego rozwiązania...:

    Cytat:

    Dim ct As Control

    For Each ct In Me.Controls
    If TypeName(ct) = "TextBox" Then
    If ct.Value = Empty Then licz = licz + 1
    End If
    Next


    With Sheets("Oferta")
    ostWrs = .Range("B19").End(xlUp).Row + 1
    .Cells(ostWrs, 2) = ComboBox5.Value
    .Cells(ostWrs, 3) = Wartosc.Value

    End With

    For Each ct In Me.Controls
    If TypeName(ct) = "TextBox" Then
    ct.Value = Empty
    End If



    Działa. Na pewno nie było zbyt efektywnie zrobione... i nie rozumiałam co dokładnie robiła ostatnia część kodu... wolałam ją zostawić... ale widzę, że spokojnie mogę to zmodyfikować tak by było jak w Twoim przykładzie:)

    Swoją drogą to szukając rozwiązania tego problemu nauczyłam się dużo więcej niż na całodniowym kursie ;)
  • Poziom 2  
    Witam,

    Mam kolejny kłopot. Jak zapisać poniższy kod aby był poprawny? Chciałabym po kliknięciu Checkbox, aktywowac/deaktywowac ponizsze TextBoxy oraz Button...
    Wiem jak jednym checkboxem obsluzyc jeden obiekt... ale jak kilka? Znalazłam tu na forum chyba podobny temat i rozwiązanie:

    https://www.elektroda.pl/rtvforum/topic2148004.html


    Probowałam i z Frame i z Tagiem ale cały czas czegoś brakowało:(

    Cytat:
    Private Sub CheckBox29_Click()

    'aktywacja/deaktywacja własnego wpisu
    If CheckBox_29.Value = True Then

    TextBox106.Locked = False

    TextBox107.Locked = False

    TextBox108.Locked = False

    TextBox109.Locked = False

    TextBox110.Locked = False

    TextBox106.BackColor = &H80000005

    TextBox107.BackColor = &H80000005

    TextBox108.BackColor = &H80000005

    TextBox109.BackColor = &H80000005

    TextBox110.BackColor = &H80000005

    CommandButton28.Locked = False

    Else

    TextBox106.Locked = True

    TextBox107.Locked = True

    TextBox108.Locked = True

    TextBox109.Locked = True

    TextBox110.Locked = True

    TextBox106.BackColor = &H80000000

    TextBox107.BackColor = &H80000000

    TextBox108.BackColor = &H80000000

    TextBox109.BackColor = &H80000000

    TextBox110.BackColor = &H80000000
    CommandButton28.Locked = True
    End If
    End Sub