Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


14852 / 76734 ←次へ | 前へ→

【67370】Re:シート名を指定する
回答  UO3  - 10/11/28(日) 22:50 -

引用なし
パスワード
   ▼りんご さん:
>私は、同ファイルにあるシート間ではご指摘の方法を使いますが、ファイルが別であると、できませんよね。
>やってみましたが、できませんでしたよ。
>出来るのでしたら、書き方を教えてください。その方がすっきりしますし、好みです。

こんばんは
久しぶりにこの板にきました。

まだ、活発な(?)議論が続いていたんですね。
とりあえず、私への上記レスに対してのみ。
ブックが異なっても、もちろん、値の転記は可能ですよ。(単一セルでも複数セル領域でも)

基本は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
5 hits

【67253】シート名を指定する りんご 10/11/17(水) 17:01 質問
【67254】Re:シート名を指定する Jaka 10/11/17(水) 17:20 発言
【67261】Re:シート名を指定する りんご 10/11/17(水) 19:23 発言
【67263】Re:シート名を指定する UO3 10/11/17(水) 21:08 発言
【67292】Re:シート名を指定する りんご 10/11/21(日) 14:16 回答
【67296】Re:シート名を指定する よろずや 10/11/21(日) 19:04 発言
【67305】Re:シート名を指定する りんご 10/11/22(月) 19:24 お礼
【67370】Re:シート名を指定する UO3 10/11/28(日) 22:50 回答
【67264】Re:シート名を指定する Jaka 10/11/18(木) 13:38 発言
【67293】Re:シート名を指定する りんご 10/11/21(日) 14:20 お礼
【67273】Re:シート名を指定する metabeaux 10/11/19(金) 10:36 発言
【67294】Re:シート名を指定する りんご 10/11/21(日) 14:29 発言
【67295】Re:シート名を指定する mxpx 10/11/21(日) 16:39 発言
【67306】Re:シート名を指定する りんご 10/11/22(月) 19:38 発言

14852 / 76734 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free