Witam, Stworzyłem sobie formularz w którym wykorzystuję checkboxy do wstawienia informacji w określoną komórkę + chciałem dodać jeszcze textbox. MA to działać na takiej zasadzie że klikam checkbox1 i wpisuję text do textbox1 po zatwierdzeniu obie informacje wklejają się w jednej linii (najlepiej...

REKLAMA

Adblock/uBlockOrigin/AdGuard mogą powodować znikanie niektórych postów z powodu nowej reguły.

VBA: Jak dynamicznie pobrać TextBox(i).Text w pętli dla wielu checkboxów?

mario22 15 Mar 2013 15:04 2472 1

REKLAMA

Zgłoś naruszenie prawa

Odpowiedz | Nowy temat

#1 12063821 15 Mar 2013 15:04

mario22 mario22

Poziom 12

Posty: 69

Pomógł: 1

Ocena: 3
Autor tematu

Post #1
12063821 15 Mar 2013 15:04

Witam,
Stworzyłem sobie formularz w którym wykorzystuję checkboxy do wstawienia informacji w określoną komórkę + chciałem dodać jeszcze textbox.
MA to działać na takiej zasadzie że klikam checkbox1 i wpisuję text do textbox1 po zatwierdzeniu obie informacje wklejają się w jednej linii (najlepiej rozdzielonej spacją) w danej komórce.
Analogicznie checkbox2 textbox2.

Wszystko działa poza małym problemem przy Textbox.
Ma ktoś pomysł jak wpisać polecenie Textbox(i).text aby wpisywał odpowiadające chceckboxowi linie?
Ręczne wpisanie tekstbox1.text działa ale oczywiście wpisuje tylko to co jest pod poz 1.

Poniżej program:
Kod: text
Zaloguj się, aby zobaczyć kod

Dzięki
eufyMake E1 - łatwa personalizacja za pomocą druku UV [sponsorowany]
REKLAMA

#2 12076403 18 Mar 2013 10:07

mario22 mario22

Poziom 12

Posty: 69

Pomógł: 1

Ocena: 3

Post #2

12076403 18 Mar 2013 10:07

Poradziłem sobie z tą pętlą:

Wklejam może się komuś przyda.
KOD:

Private Sub CommandButton1_Click()
Dim i As Integer
i = 1
For Each ctrl In Me.Controls
  If TypeName(ctrl) = "CheckBox" Then
    If ctrl = True Then
      If i > 0 Then
        lst = lst & Chr(10) & ctrl.Caption & Me.Controls("Textbox" & i).Text
      Else
        lst = ctrl.Caption
      End If
      i = i + 1
    End If
  End If
Next
ActiveCell = lst
Unload Me
End Sub
Private Sub CommandButton2_Click()
Unload Me
End Sub

Pozdrawiam

Zarejestruj konto, Zaloguj się i bądź aktywny na forum, a wtedy reklamy nie będą się pojawiać. Dołącz do dyskusji i otrzymaj punkty za rejestrację oraz odpowiedzi.

Zainstaluj aplikację Elektroda

Odpowiedz | Nowy temat

Zgłoś naruszenie prawa

REKLAMA