Excel VBA質問箱 IV

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

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


12535 / 76734 ←次へ | 前へ→

【69716】Re:複数のブックから1つのシートに
発言    - 11/8/23(火) 18:44 -

引用なし
パスワード
   ▼UO3 さん:

返信を急いでしまい、複数にわたって回答してしまい申し訳ございません。

>Book1、Book2を読み込んでいる部分は、Sub 複数のファイルを一つに() です。
>私は、ここをさわっていません。
>Book1が反映されてBook2が反映されないのが、私がアップした部分の処理の結果だとすれば
>Book2が持つデータと同じデータが既に転記先に存在するということでは?

UO3さんのコードをサブプロシージャに入力して、実行してみました。
Book1とBook2のデータは違うものを入力しております。
まっさらなマクロブックで実行しますと、ちょっとと分かりにくいかもですが、A行のみで話をしますね。
B行も同じ結果になっていますので。
1.book1のA3〜A6まで、book2のA3〜A6までデータを入れた場合、(もちろん全て違う値)マクロブックのA2〜A6までデータが入ります。
この時A2〜A5まではbook1の値が入ります。
A6のみBook2のA6の値が入ります。
2.book1のA3〜A4まで、book2のA3〜B6までデータを入れた場合、(もちろん全て違う値)マクロブックのA2〜A6までデータが入ります。
この時A2〜A3まではbook1の値が入ります。
A4〜A6まではBook2のA4〜A6の値が入ります。

>それより、連絡忘れましたが、私がアップした Sub subTenki(theBook As Workbook) では
>引数の flg を削除しています。(使っていなかったので)
>一方、Sub 複数のファイルを一つに() からの Call には flg が残ったままだと思いますので
>実行するとエラーになったはずなんですが?

ご指摘どうり、エラーが発生しました。
ですので、Sub 複数のファイルを一つに()のCallのflgを削除しましたけど・・・これでコンパイルエラーおきなかったので勝手にこれでよし。と判断してしまいました。問題ないですよね? 

>いずれにしても、質問している件への回答・確認、よろしくお願いします。

何度も付き合って頂き本当にありがとうございます。
以降の返信は明日させていただきます。

6 hits

【69705】複数のブックから1つのシートに 11/8/23(火) 12:06 質問
【69706】Re:複数のブックから1つのシートに UO3 11/8/23(火) 12:25 発言
【69707】Re:複数のブックから1つのシートに 11/8/23(火) 13:22 発言
【69709】Re:複数のブックから1つのシートに UO3 11/8/23(火) 15:03 発言
【69710】Re:複数のブックから1つのシートに 11/8/23(火) 15:59 発言
【69713】Re:複数のブックから1つのシートに UO3 11/8/23(火) 17:30 発言
【69715】Re:複数のブックから1つのシートに 11/8/23(火) 17:53 発言
【69711】Re:複数のブックから1つのシートに UO3 11/8/23(火) 15:59 回答
【69712】Re:複数のブックから1つのシートに 11/8/23(火) 17:26 お礼
【69714】Re:複数のブックから1つのシートに UO3 11/8/23(火) 17:42 発言
【69716】Re:複数のブックから1つのシートに 11/8/23(火) 18:44 発言
【69725】Re:複数のブックから1つのシートに UO3 11/8/24(水) 16:19 発言
【69726】Re:複数のブックから1つのシートに 11/8/24(水) 17:36 発言
【69733】Re:複数のブックから1つのシートに UO3 11/8/25(木) 10:48 回答
【69735】Re:複数のブックから1つのシートに 11/8/25(木) 11:06 発言
【69736】Re:複数のブックから1つのシートに UO3 11/8/25(木) 13:14 発言
【69734】Re:複数のブックから1つのシートに UO3 11/8/25(木) 10:56 発言
【69737】Re:複数のブックから1つのシートに 11/8/25(木) 14:44 発言
【69738】追記 11/8/25(木) 15:07 発言
【69744】Re:追記 UO3 11/8/25(木) 19:35 発言
【69752】Re:追記 11/8/26(金) 9:21 お礼

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