Excelシートから列を読み取り、テキストボックスvbaに表示

Question

実行時に作成されるテキストボックスに1列のすべての行を表示します。&表示されます。助けてくれなかった。

Name

ABC

AB

GHFD

ABCEF

私はExcelシートからのすべての行は、彼らがシートに現れると同じようにテキストボックスに表示されたいです私は4tを作成しています列を表すextbox（s）&行を表す11個のテキストボックス。最初の列については、データをそのままシートに表示します。私は自分の要件に応じてテキストボックスを作成するのに成功していますが、必要に応じてデータを表示することはできません。私はあなたが "chkDemo"という名前のテキストボックスを作成して表示されていないおかげでトンの助けを

Public Sub UserForm_Initialize()

Set sh = ThisWorkbook.Sheets("Testing") 

sh.Range("F21").Activate 

With sh 
    fatalcount = WorksheetFunction.CountIf(Range("F:F"), "Fatal") 
    Majorcount = WorksheetFunction.CountIf(Range("F:F"), "Major") 
    Minorcount = WorksheetFunction.CountIf(Range("F:F"), "Minor") 
End With 

For jrow = 1 To 11 
For i = 0 To 4 
    Set txtB1 = WtmsFrm.Controls.Add("Forms.TextBox.1") 
    With txtB1 
    .Name = "chkDemo" & i 
    .Height = 20 
    .Width = 5 + 50 + 5 
    .Left = 10 + 50 * i + 2 
    .Top = 15 * jrow + 10 
    .ControlTipText = "Type of Bug" 
    End With 
Next i 
Next jrow 

For Each tbox In Frm.Controls 
    ' For counter = 2 To 11 

    If tbox.Name = "chkDemo" Then 

     tbox.Value = Sheets("sheet1").Cells(counter, 2).Value ' failing code 
     tbox.ControlTipText = "Name" 

    ElseIf tbox.Name = "chkDemo1" Then 
     tbox.Value = 1 

    ElseIf tbox.Name = "chkDemo2" Then 
     tbox.Value = 2 
    ElseIf tbox.Name = "chkDemo3" Then 
     tbox.Value = 3 
    ElseIf tbox.Name = "chkDemo4" Then 
     tbox.Value = 4 
    End If 
    ' Next counter 

Next 


' Initialise the followings 
Frm.txtFatal.Value = fatalcount 

Frm.txtMajor.Value = Majorcount 

Frm.txtMinor.Value = Minorcount 

Frm.txtTotoal.Value = fatalcount + Majorcount + Minorcount 

End Sub 

Answer 1

。彼らにはすべて数字が付いています。 tboxをすべてのコントロールから取ると、"chkDemo"という名前のどこかのコントロールがテキストボックスではないことがあります。 counterも宣言または初期化されていません。それによってコードが失敗する可能性もあります。

また、.Name = "chkDemo" & iを使用すると、For jrowループにも含まれているため、テキストボックスに同じ名前を付けることにも注意してください。