Excel-VBA rangeプロパティの使い方について

質問

Excel-VBA rangeプロパティの使い方について

VBA初心者です。いろいろ調べたのですが、分からないので教えてください。

ThisWorkbookのSheet1のA1セルに、aというファイルのaというシートの特定のセルの値をコピーしたいです。

コピーする値のセルは、ThisWorkbookで入力した値を基に変数で記述したいです。

例えば、ThisWorkbookのSheet1のC2セルに「D1」と記載していたとして、その値を変数として設定して、最終的にaというファイルのaというシートの「D1」セルをThisWorkbookのA1セルに貼り付けるのが目的です。

この場合の、下記のhensuu =
の設定方法について、ご教授願います。

hensuu =
ThisWorkbook.Sheets("Sheet1").Range(“A1”)= Workbooks(a).Sheets(a).Range(hensuu)

回答No.1

kmetu · ベストアンサー

hensuu = Sheets("Sheet1").Range("C2").Value

です。

お礼

大変参考になりました。
ありがとうございました！

回答No.2

Wendy02

こんなスタイルにしてみたら？

　Dim hensuu As String
　Dim a As String
　Dim b As String

　a = "Test"
　b = a & ".xls" '←CSV でも、シートとブック名が同じということはありません。

　With ThisWorkbook.Worksheets("Sheet1")
　　hensuu = .Range("C2").Value
　　If hensuu <> "" Then
　　　.Range("A1").Value = Workbooks(b).Worksheets(a).Range(hensuu).Value
　　End If
　End With

お礼

大変参考になりました。
ありがとうございました！