|
▼りんご さん:
>私は、同ファイルにあるシート間ではご指摘の方法を使いますが、ファイルが別であると、できませんよね。
>やってみましたが、できませんでしたよ。
>出来るのでしたら、書き方を教えてください。その方がすっきりしますし、好みです。
こんばんは
久しぶりにこの板にきました。
まだ、活発な(?)議論が続いていたんですね。
とりあえず、私への上記レスに対してのみ。
ブックが異なっても、もちろん、値の転記は可能ですよ。(単一セルでも複数セル領域でも)
基本はCopy1のような構文です。長ったらしくなるので、実際にはCopy2のようにして使ったりします。
Sub Copy1()
Workbooks("ブック1.xls").Worksheets("シート名1").Range("○○").Value = _
Workbooks("ブック2.xls").Worksheets("シート名2").Range("□□").Value
End Sub
Sub Copy2()
Dim sh1 As Worksheet, sh2 As worsheet
Set sh1 = Workbooks("ブック1.xls").Worksheets("シート名1")
Set sh2 = Workbooks("ブック2.xls").Worksheets("シート名2")
sh1.Range("○○").Value = sh2.Range("□□").Value
End Sub
|
|