Ｐａｇｅ 246 ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ 通常モードに戻る ┃ ＩＮＤＥＸ ┃ ≪前へ │ 次へ≫ ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ ▼２つのブックで複数のシートを扱う場合。 ころすけ 02/10/22(火) 22:29 ┗Re:２つのブックで複数のシートを扱う場合。 Nakamura 02/10/22(火) 22:48 ┗Re:２つのブックで複数のシートを扱う場合。 ころすけ 02/10/23(水) 8:55 ┗Re:２つのブックで複数のシートを扱う場合。 Nakamura 02/10/23(水) 13:00 ┗Re:２つのブックで複数のシートを扱う場合。 ころすけ 02/10/23(水) 13:06 ─────────────────────────────────────── ■題名 ： ２つのブックで複数のシートを扱う場合。 ■名前 ： ころすけ <aya_nonme@yahoo.co.jp> ■日付 ： 02/10/22(火) 22:29 -------------------------------------------------------------------------
| 最近VBAを勉強し始めたばかりの初心者です。 質問なのですが、 AとB二つのブックが開いています。 Aにはシートが5つ。Bにはシートが2つ。 Aのシートと、Bに存在するシート名が合致するものだけを コピー。存在しなければそのまま ってな感じのものを作成したいのですが、 ちっともわかりません。 教えていただけたら、とってもうれしいです。 よろしくお願いいたします。 説明が不十分なときはメールいただければ幸いです。 |
| こんばんは メールでと言う訳には、いかないと思いますので、この場で質問させて頂きます。 Aブック、Bブックどちらのシートから、どちらのシートにコピーするのですか？ それとも、違うブックにコピーするのですか？ それでは |
| BのブックからAのブックへです。 Aのブックには予めシート名がいくつかあり、 Bのブックには、Aのブックにあるシート名の中から 抜粋した形でいくつかのシートがそんざいしている状態です。 |
| こんにちは こんな感じでどうでしょう？ Sub test() Dim Ash As Worksheet, Bsh As Worksheet For Each Ash In Workbooks("A.xls").Worksheets For Each Bsh In Workbooks("B.xls").Worksheets If Ash.Name = Bsh.Name Then Bsh.Cells.Copy Ash.Cells End If Next Next End Sub それでは |
| ▼Nakamura さん： ありがとうございました！！ できました！！ もっと勉強して自分でできるように また、Nakamuraさんのように だれかにアドバイスできるようがんばります。 またよろしくお願いします。 ありがとうございました。 |