UserForm: Что касается кодирования и использования

Question

Еще раз, я предоставлю свой вопрос тем, что у меня нет опыта программирования. Тем не менее, у меня есть UserForm, и я почти закончил его кодирование. Теперь мне просто нужно закончить кодировку кнопки «ОК». Я просто не уверен, как закончить после ввода «Конец с» и «Очистить форму».

Моя цель состоит в том, чтобы автоматически закрыть форму после нажатия кнопки «ОК» и ввести информацию пользователя в ссылочные ячейки. У меня есть 2 вопроса, как показано ниже:

Первый вопрос: информация, вводимая UserForm, начинается с S5 и продолжается через AB5. Я настраиваю макрос, чтобы пользователь щелкнул название компании, и впоследствии появится UserForm. Мой вопрос в том, как запрограммировать UserForm для перехода к следующей строке?

Второй вопрос: у меня нет переменных IF в этой форме. Точно как я должен быть область кодирования ниже инструкции «Очистить форму», чтобы отправить информацию и закрыть UserForm для следующей записи.

Вот код, я использую:

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 With 
    'Clear the form 
End Sub 

Я знаю, что это очень долго и основной вопрос, так что спасибо всем, кто в состоянии ответить на него. :)

Answer 1

Чтобы очистить текстовое поле или ComboBox, вы можете просто использовать свойство .Value. Например

TextBox1.Text = "" 
ComboBox1.Value = "" 

Однако, если вы COMBOBOX'S стиль fmStyleDropDownList, то вам придется использовать .ListIndex свойство. Например

ComboBox1.ListIndex = -1