Заполните столбец UserForm

Question

Я хочу заполнить столбец UserForm. Пользователь имеет 4 варианта, как заполнять столбец. Моя проблема заключается в том, что работает только первый вариант (2). Также маска ввода не исчезнет после нажатия кнопки OK. Выбранный вариант следует скопировать в столбец H и заполнить автоматически. Где мои ошибки?

Private Sub CommandButton1_Click() 

' OK Button 
Dim emptyRow As Range 
Dim lastrow As Long 
lastrow = Cells.SpecialCells(xlCellTypeLastCell).row 

Worksheets("Sheet1").Activate 
Set emptyRow = Worksheets("Sheet1").Range("H2:H" & lastrow) 

If OptionButton2.value = True Then 
    emptyRow.value = "2" 

    If OptionButton3.value = True Then 
     emptyRow.value = "3" 

     If OptionButton4.value = True Then 
      emptyRow.value = "4" 

      If OptionButton5.value = True Then 
       emptyRow.value = "5" 
      End If 
     End If 
    End If 
End If 

End Sub 

Answer 1

Дайте этому выстрел .. Самая большая разница здесь как If statement написано. Ваш исходный код имел If statements, вложенные друг в друга, что хорошо, но не будет работать над тем, чего вы пытаетесь достичь. Заявление, которое я написал, - If statement. Другой способ, которым вы можете это сделать, - это дать Select Case заявлениям. Я сохраняю код похожим на ваш оригинал для простоты обучения.

Private Sub CommandButton1_Click() 
' OK Button 
Dim emptyRow As Range, ws As Worksheet 
Dim lastrow As Long 

Set ws = ThisWorkbook.Sheets(1) 
lastrow = ws.Cells(ws.Rows.Count, "H").End(xlUp).Row 'A more flexible way to find last row 
Set emptyRow = ws.Range("H2:H" & lastrow) 

If OptionButton2.value = True Then 
    emptyRow.value = "2" 
ElseIf OptionButton3.value = True Then 
    emptyRow.value = "3" 
ElseIf OptionButton4.value = True Then 
    emptyRow.value = "4" 
ElseIf OptionButton5.value = True Then 
    emptyRow.value = "5" 
Else: MsgBox "No option was chosen.", vbOKOnly, "No Option Chosen" 'Catches no button selected 
End If 

Me.Hide 'This hides the userform. Another method is Unload Me which drops the cache as well 

End Sub