Почему я получаю ошибку компиляции?

Question

Позвольте мне предисловие к моему вопросу, сказав, что у меня нет предшествующего опыта на любом языке программирования. Тем не менее, я хочу создать UserForm, который позволяет пользователям вводить информацию в определенные области на листе Excel.

Я использую 9 комбинированных ящиков и 1 текстовое поле. Я проверил, что все комбинированные поля правильно указаны в коде, но я постоянно получаю ошибку компиляции при попытке заставить мою кнопку «ОК» работать.

Private Sub cmdCancel_Click() 
Unload Me 
End Sub 
Private Sub cmdOK_Click() 
Dim RowCount As Long 
Dim ctl As Control 
RowCount = Worksheets("February Renewals").Range("S5").CurrentRegion.Rows.Count 
With Worksheets("February Renewals").Range("S5") 
Offset(RowCount, 0).Value = Me.ComboBoxStatus.Value 
Offset(RowCount, 1).Value = Me.ComboBoxRemarketed.Value 
Offset(RowCount, 2).Value = Me.ComboBoxCarrier1.Value 
Offset(RowCount, 3).Value = Me.ComboBoxCarrier2.Value 
Offset(RowCount, 4).Value = Me.ComboBoxCarrier3.Value 
Offset(RowCount, 5).Value = Me.ComboBoxOptional1.Value 
Offset(RowCount, 6).Value = Me.ComboBoxOptional2.Value 
Offset(RowCount, 7).Value = Me.ComboBoxOptional3.Value 
Offset(RowCount, 8).Value = Me.ComboBoxLost.Value 
Offset(RowCount, 9).Value = Me.txtAdditionalNotes.Value 
End Sub 

Почему я получаю это сообщение и что могу сделать для его устранения?

Answer 1

Вам не нужен ДОТ до СМЕЩЕНИЯ. Попробуйте это

With Worksheets("February Renewals").Range("S5") 
    .Offset(RowCount, 0).Value = Me.ComboBoxStatus.Value 
    .Offset(RowCount, 1).Value = Me.ComboBoxRemarketed.Value 
    .Offset(RowCount, 2).Value = Me.ComboBoxCarrier1.Value 
    .Offset(RowCount, 3).Value = Me.ComboBoxCarrier2.Value 
    .Offset(RowCount, 4).Value = Me.ComboBoxCarrier3.Value 
    .Offset(RowCount, 5).Value = Me.ComboBoxOptional1.Value 
    .Offset(RowCount, 6).Value = Me.ComboBoxOptional2.Value 
    .Offset(RowCount, 7).Value = Me.ComboBoxOptional3.Value 
    .Offset(RowCount, 8).Value = Me.ComboBoxLost.Value 
    .Offset(RowCount, 9).Value = Me.txtAdditionalNotes.Value 
End Sub