excel - Excelでユーザーフォームから複数のデータをキャプチャする

Question

userform50 を超えるデータ ポイントがキャプチャされている場所があります。ほとんどがユーザー エントリで、他のデータベースからのエントリはほとんどありません。それらをExcelに転送したい。これを行うには、データ ポイントごとに以下を記述するよりも良い方法はありますか?

Range("A1").Value = TextBox44.Value 

Answer 1

次のような for each ステートメントを使用します。

Dim intRow As Integer
intRow = 1
For Each tbTextBox In Me.Controls
    If TypeName(tbTextBox) = "TextBox" Then
        Cells(intRow, 1) = tbTextBox.Value
        intRow = intRow + 1
    End If
Next

これはテストされていないため、軽微なエラーが発生する可能性があります