| |
テキストボックスの値をシート1のA1に表示された
名前のシートのA列の最終行の次の行に転記する
サンプルです。
Dim sht as string
sht = worksheets("Sheet1").Range("A1").Value
worksheets(sht).Range("A65536").End(Xlup).Offset(1).Value = _
UserForm1.TextBox1.Value
５０個近い情報というのがテキストボックスなのか何か分かりませんが、
仮にテキストボックスだとすると、テキストボックスの数だけループ
させて転記します。
また、A列の最終行の次の行の行番号も変数に取得しておきます。
'変数の宣言
Dim i as long
Dim MyRow as long
dim sht as string
'シート名の取得/変数shtに格納
sht = worksheets("Sheet1").Range("A1").Value
'取得したシートのA列の最終行の次の行の行番号取得/変数myrowに格納
myrow = worksheets(sht).Range("A65536").End(Xlup).Offset(1).row
'ループ処理
For i = 1 to 50
worksheets(sht).cells(myrow,i).Value = _
UserForm1.Controls("TextBox" & i).Value
next i
|
|
ぱっせんじゃー
- 06/8/16(水) 15:01 -
