VBA userform_Get 셀에 대한 추가 텍스트 상자의 값

Question

여기에 VBA Userform을 사용하는 방법을 모르겠습니다.

사용자가 텍스트 상자를 추가하고 텍스트 상자에 값을 입력 할 수있는 userform이 있습니다. 각 추가 텍스트 상자의 값을 셀을 구분하여 복사하고 싶습니다. 이것은 내가 한 일이지만 일하지는 않습니다.

라벨

Private Sub CommandButton2_Click() 
    x = Me.Controls.count + 1 
    Set xx = Controls.Add("Forms.TextBox.1", "CtrlName" & x) 
    xx.Top = x * 20 - 108 
    xx.Left = 396 
    xx.Width = 288 
End Sub 

라벨

Private Sub CommandButton1_Click() 
    Dim count as Integer 
    Dim i as Integer 
    count = Me.Controls.count - 9 ("I have 9 other controls, so need to - 9 to count the number of textboxes") 
    For i = 1 To count 
    Cells(i, 1).Select 
    ActiveCell.Value = Me.Controls("TextBox" & i).Value 
    Next i 
End Sub 

문제는 Me.Controls ("TextBox" & I).Value이다 "cell_THIS에 텍스트 상자에서 값을 취득하는 것은 작동하지 않습니다" "clicking_THIS ONE 후 추가 텍스트 상자에 노력하고 있습니다." 나는 다른 funtions를 여기에서 시도했다. 그러나 아직도 그것을 해결할 수 없었다.

Answer 1

당신은 당신은 값이 Me.Controls("CtrlName" & (i + 9)).Value 것을 의미합니다 그 이름이 아닌 TextBox1 등을 사용해야 등 당신의 텍스트 상자 CtrlName10, CtrlName11을 지명했다.

힌트 : 오류 박스에 이 지정됨.Debug 버튼을 누릅니다. 문제가있는 문을 강조 표시 한 코드 편집기로 돌아가고보기 메뉴의 지역 창에서 변수를 검사 할 수 있습니다.