EXCELのマクロに関して

質問

vbaのマクロに関して質問があります。
マクロをどのように作ればよいでしょうか？
マクロは以下のようになっています。sheet1以外（sheet2,sheet3など）に単語を入れて、sheet1でフラッシュ単語のようにするマクロです。これに付け加えたい内容があります。sheet1のセルにある値を入れれば、sheet1以外のシートのある特定の列をフラッシュ単語としてだしたいと考えています。シートと列を指定したいと考えています。
どのように付け足せばよいでしょうか？

Sub sample()
Dim i As Integer

i = 1
Worksheets("sheet1").Activate

Do
Sheet1.Range("A1").Value = Sheet3.Range("b" & i).Value
'1000で1秒,oで場所,sheet2の場所
Call Sleep(1000)
DoEvents
i = i + 1
Loop Until IsEmpty(Sheet3.Range("b" & i).Value)
'1000で1秒,oで場所,sheet2の場所

End Sub

回答No.2

jcctaira · ベストアンサー

kira3qさん

> 例えば、sheet1のセルT2にsheet3、T3にbと書き込むと、sheet3の列bをフラッシュ単語…
以下でできるかと思います。

Sub sample()
Dim I As Integer
Worksheets("Sheet1").Select
I = 1
With Worksheets(Range("T2").Value).Columns(Range("T3").Value)
　Do While (.Cells(I).Value <> "")
　　Range("A1").Value = .Cells(I).Value
　　Call Sleep(1000)
　　DoEvents
　　I = I + 1
　Loop
End With
End Sub

回答No.1

bin-chan

> sheet1以外のシートのある特定の列を

２箇所で登場する以下の部分を変更する。
Sheet3.Range("b" & i).Value

'変数を宣言する
dim strSheetName as string
dim strColumnName as string

'変数を設定する　　※Doの直前で行うこと
strSheetName = "Sheet3"
strColumnName = "b"

WorkSheet(strSheetName).Range(strColumnName & i).Value

これで現在と同じ動きをするはず。
あとは代入する値をご自由に。

補足

例えば、sheet1のセルT2にsheet3、T3にbと書き込むと、sheet3の列bをフラッシュ単語にするようなマクロにしたいのですが、可能でしょうか？