|
はじめまして、VBA初心者です。
よろしくお願いいたします。
セルA1〜A30の内容(文字列)をテキストボックス担当者名1〜30に表示させたいの
ですが、今までは次のコードで対応しておりました。
担当者名1.Value = Sheets("Sheet1").Range("A1")
担当者名2.Value = Sheets("Sheet1").Range("A2")
担当者名3.Value = Sheets("Sheet1").Range("A3")
・
・
・
担当者名30.Value = Sheets("管理").Range("A30")
同じような処理がたくさんあるので、ループ処理で対応できないものかと思っております。
どなたか、ご教授お願いいたします。
ちなみに、下記ようなコードを書いてみましたが、うまくいきません。
Dim tantousya_mei As Integer
Dim tantousya_no, ketugou As String
tantousya_mei = "担当者名"
tantousya_no = 1
ketugou = tantousya_mei & tantousya_no
Do
If tantousya_no > 30 Then
Exit Do
Else
ketugou.Value = Sheets("管理").Cells(tantousya_no,1)
ketugou = ketugou + 1
End If
Loop
|
|