AKB48の推しメンをセンターにできちゃうかもしれない!? >>

tatsu99様

ご無沙汰しております。
その節は、いろいろとご教授いただきましてありがとうございました。
以前、質問させて頂いた際のフォーム変更するに伴い、ご教授頂きましたマクロの変更について
ご教授頂けますと幸いです。
度々恐縮ではございますが、何卒、よろしくお願いいたします。

以前、下記について質問、ご回答いただいております。

①元データ(ピボッド別データ)から個人用シートがある各拠点別のファイルへ
条件設定で自動集計するマクロ
https://oshiete.goo.ne.jp/qa/9963340.html
https://oshiete.goo.ne.jp/qa/9768603.html?pg=1&i …

②①で各拠点別のファイルの個人シートを3つのパターンで全体集計をするマクロ
https://oshiete.goo.ne.jp/qa/9760333.html
https://oshiete.goo.ne.jp/qa/9787481.html
https://oshiete.goo.ne.jp/qa/9902092.html

今回、①の個人シートの一番右側に【拠点計】というシートを追加したいです。
この【拠点計】シートは②の3つのパターンの全体集計からは除きたい為
そのシートを除いた個人シートのみを集計するというマクロに変更したいのです。

質問させて頂く前に、それぞれマクロ実行しましたところ①は問題なく集計できたのですが
②に関しては、集計条件の部門、所属、担当を消しているのでエラーが出てしまいます。
エラーのでないように【拠点計】というシートを除いて集計するマクロを再度ご教授願います。

何かわかりづらい点、確認事項があればお問合せ頂けますと幸いです。

お手数をおかけいたしますが、何卒、よろしくお願いいたします。

A 回答 (3件)

>ちなみにですが、また個々のブックの個人シート以外のシートを追加する場合は


>この部分に同じように追加していけば問題ないでしょうか?

はい、それで問題ありません。

以下、念の為、注意事項です。
1)拠点計の右側に別のシート(XXXX)を追加する場合は、”拠点計”のシートを検知した時点で、
そのブックの処理が打ち切られるので、あえてマクロに”XXXX”を追加する必要はありません。
(但し、追加しても正常に動作しますので、拠点計のシートを今後削除するような予定があるなら、”XXXX”を追加しておいた方が良いでしょう)

2)個人シート以外のつもりで、例えば”加計”などのシートを追加し、マクロに”加計”を追加すると、
”加計”を検知した時点で、そのブックの処理が打ち切られます。
その場合、ほかのブックに、”加計”さんという個人が実在すると、その人の処理ができなくなるので、注意してください。
    • good
    • 1
この回答へのお礼

ありがとう

お忙しい中、再度ご教授いただきましてありがとうございます。
また、いつもご丁寧に注意事項もご教授頂き感謝いたします。
とても勉強になります^^

注意事項の件、承知いたしました。
今後追加することがあった際は、こちらを踏まえて対応したいと思います。
また、何かあった際は何卒よろしくお願いいたします。

お礼日時:2017/11/30 13:11

>→上記から各マクロの「合計」シートを検知した時点で。

。ということはこの部分を「拠点計」に
> 修正すれば良いということでしょうか?

はい、それで良いはずです。
Public Sub 合計シートへ集計() を例にすると
----------------------------------------
'1つのブックを処理する
Private Sub Read1Book(ByVal bookname As String)
Dim ws As Worksheet
Dim i As Long
Workbooks.Open Folder & "\" & bookname
For i = 1 To Worksheets.count
Set ws = Worksheets(i)
If ws.name = "合計" Then Exit For
If ws.name = "拠点計" Then Exit For ・・・・・①
Call Read1Sheet(bookname, ws)
Next
Workbooks(bookname).Close
End Sub
--------------------------------------------
①を追加すれば良いです。
それで、確認していただけますでしょうか。
(合計、拠点計のどちらかを検知した時点でそのブックの処理を打ち切るようになります)

(もし、途中に”合計”がないことが明白であれば、①の追加ではなく”合計”を”拠点計”にかえても問題ありません)
    • good
    • 1
この回答へのお礼

助かりました

ご返信が遅くなり申し訳ありません。
ご教授いただきましてありがとうございます。

再度、ご教授頂いたマクロで無事解決いたしました。
いつも本当にありがとうございます^^

ちなみにですが、また個々のブックの個人シート以外のシートを追加する場合は
この部分に同じように追加していけば問題ないでしょうか?

何度も申し訳ございませんが、ご教授頂けますと幸いです。

お礼日時:2017/11/30 10:05

tatsu99です。


しばらく前なので、かなり失念していますので、まず、前提条件の確認をさせてください。
1)マクロ名は
①Public Sub 合計シートへ集計()
②Public Sub それ以外シートへ集計()
の2つであってますか。

2)以下その前提で、個々のブックのシートは、左側から順に
①個人名(山田等)のシートが複数
②「合計」のシート
③他のシート
④「拠点計」というシート
であってますか。
もし、そうであれば、②の「合計」のシートを検知した時点で、そのブックについては集計を打ち切っていますので、
④「拠点計」というシートが集計されるはずはないのですが。

前提が誤っていれば、その旨補足ください。
    • good
    • 1
この回答へのお礼

うーん・・・

>tatsu99です。
→ご無沙汰しております。いつもお世話になっております。
 今回もお手数をおかけいたします。

>しばらく前なので、かなり失念していますので、まず、前提条件の確認をさせてください。
> 1)マクロ名は
>①Public Sub 合計シートへ集計()
>②Public Sub それ以外シートへ集計()
>の2つであってますか。
→上記に加え③Public Sub 全体集計()、④Public Sub 売上月単位集計()も
 ご教授頂いておりますので計4つのマクロとなります。
 ①②③は同ブックで集計、④のみ別ブックで集計しております。

> 2)以下その前提で、個々のブックのシートは、左側から順に
>①個人名(山田等)のシートが複数
→当初、質問をさせていただいてからいろいろと変更等があり現在個々のブックのシートは
 個人名のシートのみです。それに【拠点計】シートを追加したいです。
 下記②③④はここのブックのシートにはなく、別ブックで集計しております。
>②「合計」のシート
>③他のシート
>④「拠点計」というシート
>であってますか。

>もし、そうであれば、②の「合計」のシートを検知した時点で、そのブックについては集計を打ち切っていますので、
>④「拠点計」というシートが集計されるはずはないのですが。
> 前提が誤っていれば、その旨補足ください。
→上記から各マクロの「合計」シートを検知した時点で。。ということはこの部分を「拠点計」に
 修正すれば良いということでしょうか?

恐れ入りますが、再度ご回答頂けますと幸いです。

お礼日時:2017/11/29 16:58

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!


人気Q&Aランキング