エクセルで別ブックのシートを参照したいとき

質問

宜しくお願いします
ブックを１つしか開いていない場合に
そのブックのシート２に値を記入する場合は

Sheets("Sheet2").Cells(2, Sheets("Sheet1").Cells(i,4)+1) = "欠"
こんな具合ですが
ブックが２個あって　ブック１のシート１を参照して
それをブックのシート２に記入したいのですが

Sheets("Sheet2")
この前にどういう記述をしたら
うまくいきますか？
よろしかったら教えていただけないでしょうか？

回答No.2

Wendy02 · ベストアンサー

ennkaiさん、こんばんは。

＞Sheets("Sheet2").Cells(2, Sheets("Sheet1").Cells(i,4)+1) = "欠"

最初に、上のコードは、以下のように書いてみてください。(変数は任意)

Dim cl As Long
Dim i As Long
For i = 1 To 10
cl = Workbooks("Books").Sheets("Sheet1").Cells(i, 4).Value
Sheets("Sheet2").Cells(2, 1 + cl).Value = "欠"
Next i

そうすれば、見えてきますよね。

ブックが違うのでしたら、

Dim cl As Long
Dim i As Long
For i = 1 To 10
cl = Workbooks("Book2.xls").Sheets("Sheet1").Cells(i, 4).Value
ThisWorkbook.Sheets("Sheet2").Cells(2, 1 + cl).Value = "欠"
Next i

1つにまとめようとすると、分からなくなるのだと思います。
ただし、ブックは開けてないとエラーになります。

それと、範囲取得はしないのですから、Activate や Select する必要はありませんね。

回答No.1

hana-hana3

下記を参考にしてみてください。

参考URL：

http://oshiete1.goo.ne.jp/kotaeru.php3?q=696781