UserForm : 코딩 및 사용에 관한 정보

Question

다시 한 번 프로그래밍 언어에 대한 경험이 없다는 사실을 내 질문에 앞에 둡니다. 그러나, 나는 UserForm을 가지고 있고 거의 코딩을 마쳤습니다. 이제 "OK"버튼을 코딩해야합니다. 나는 "End With"와 "Clear the form"을 타이핑 한 후 어떻게 끝내야할지 모르겠다.

제 목표는 "확인"버튼을 누른 후 양식이 자동으로 닫히고 참조 된 셀에 사용자의 정보를 입력하는 것입니다. 다음과 같은 질문이 두 개 있습니다.

첫 번째 질문 : 사용자 정의 폼이 입력하는 정보는 S5에서 시작하여 AB5까지 이어집니다. 사용자가 회사 이름을 클릭하도록 매크로를 설정하면 UserForm이 팝업됩니다. 내 질문은, 어떻게 UserForm을 다음 행의 탭으로 프로그래밍 할 것인가?

두 번째 질문 :이 양식에는 IF 변수가 없습니다. 정확히 어떻게 정보를 제출하고 다음 항목에 대한 사용자 정의 폼을 닫으려면 " '양식 지우기"문 아래에 영역을 코딩해야합니다. 나는 이것이 매우 길고 기본적인 질문을 알고, 그래서 대답 할 수있는 사람을 부탁드립니다

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

텍스트 상자 또는 콤보 상자를 지우려면 .Value 속성을 사용하면됩니다. 예를

당신의 스타일이 fmStyleDropDownList입니다 콤보 그러나 경우

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

를 들어, 당신은 .ListIndex 속성을 사용해야합니다. 예를

ComboBox1.ListIndex = -1