Przycisk polecenia VBA - Nie znaleziono metody lub elementu danych

0

problem z dodaniem przycisku polecenia s do formularza użytkownika. Zasadniczo chcę, aby przycisk wstawiał dane do nowego wiersza na arkuszu 1 z polami ustawionymi jak poniżej. Jednak podczas testowania przycisku pojawia się komunikat o błędzie „Nie znaleziono metody lub elementu danych”.

Nie wspaniale z VBA, próbowałem czytać online, ale nadal jestem zdezorientowany, co robić. Proszę pomóż.

Private Sub CommandButton1_Click()

Dim LastRow As Long, ws As Worksheet

Set ws = Sheets("Sheet1")

LastRow = ws.Range("A" & Rows.Count).End(xlUp).Row + 1

ws.Range("A" & LastRow).Value = ComboBox1.Text
ws.Range("C" & LastRow).Value = TextBox1.Text
ws.Range("D" & LastRow).Value = ComboBox2.Text
ws.Range("F" & LastRow).Value = CheckBox2.Text
ws.Range("E" & LastRow).Value = CheckBox1.Text
ws.Range("H" & LastRow).Value = ListBox1.Text
ws.Range("G" & LastRow).Value = ListBox2.Text
ws.Range("I" & LastRow).Value = TextBox2.Text

End Sub
użytkownik767772
źródło
Prawdopodobnie potrzebujesz właściwości Valuelub Caption, w zależności od typu kontrolki.
ThunderFrame
przepraszam, nie wiesz co masz na myśli?
user767772,

Odpowiedzi:

0

Pola wyboru nie mają Textwłaściwości. ValueZamiast tego użyj właściwości, np .:

ws.Range("F" & LastRow).Value = CheckBox2.Value

Zauważ, że zwraca to „Prawda” lub „Fałsz”. Jeśli potrzebujesz czegoś innego, musisz wykonać kontrolę, na przykład:

ws.Range("F" & LastRow).Value = IIf(CheckBox2.Value,"Yes","No")
robinCTS
źródło