実行時にvbaのuserformのテキストボックスにフィルターされた値を表示する方法

Question

私の質問を確認していただきありがとうございます:)実行時にユーザーフォームにテキストボックスを作成しています&はフィルタリングされたデータを表示します。私は次のコードのために多くの実行時エラーに走っています。最初のテキストボックスでは、2番目のテキストボックスには致命的な数値を表示したいので、最後のテキストボックスにはMajorcount &にする必要があります。マイナーカウントです。誰かが私を正しい道に向けることができますか？事前に感謝

Private Sub UserForm_Initialize() 

Set sh = ThisWorkbook.Sheets("Testing") 

sh.Range("F21").Activate 

With sh 

    fatalcount = WorksheetFunction.CountIf(Range("F:F"), "Fatal") 
    'MsgBox fatalcount 
    Majorcount = WorksheetFunction.CountIf(Range("F:F"), "Major") 
    'MsgBox Majorcount 
    Minorcount = WorksheetFunction.CountIf(Range("F:F"), "Minor") 

    'MsgBox Minorcount 

'Add a text box at run time 

Dim txtB1 As Control 

Dim i 

For i = 0 To 5 
    Set txtB1 = Me.Controls.Add("Forms.TextBox.1") 
    With txtB1 
     .Name = "chkDemo" & i 
     .Height = 20 
     .Width = 100 
     .Left = 12 
     .Top = 15 * i * 2 
     .Text.i = fatalcount ' problem lines 
     .Text.i 1 = Majorcount 
     .Text.i 2 = Minorcount 

    End With 
Next i 
End Sub 

Answer 1

これはあなたが探しているものです。

Private 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 
    Dim txtB1 As Control 
    Dim i 
    For i = 0 To 2 
     Set txtB1 = UserForm1.Controls.Add("Forms.TextBox.1") 
     With txtB1 
      .Name = "chkDemo" & i 
      .Height = 20 
      .Width = 100 
      .Left = 12 
      .Top = 15 * i * 2 
     End With 
    Next i 
    Dim tbox As Control 
    For Each tbox In UserForm1.Controls 
     If tbox.Name = "chkDemo0" Then 
      tbox.Value = fatalcount 
     ElseIf tbox.Name = "chkDemo1" Then 
      tbox.Value = Majorcount 
     ElseIf tbox.Name = "chkDemo2" Then 
      tbox.Value = Minorcount 
     End If 
    Next 
End Sub