Excel VBA質問箱 IV

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

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


9957 / 76736 ←次へ | 前へ→

【72334】Re:捺印数の照合
発言  UO3  - 12/7/13(金) 9:45 -

引用なし
パスワード
   ▼ピッポ さん:

▼ピッポ さん:

おはようございます。

コード拝見。
こちらのテスト確認環境を破棄してしまっていますので稼働確認ができません。
以下はコードを読んだだけのコメントになります。その点、お含みおきください。

まず、いろいろお考えになって、処理のタイミングなど対応しておられるご努力には
敬意を表します。

致命的ではないのですが。

NosSheet は 条件に合ったブックのシートのループの中で

For sid = 1 To シート数
  nosSheet = nosSheet + 1         '※追加箇所になります

こうしておられますね。
つまり、NosSheetの値は、調査したすべてのブックの【シート数】の合計になります。

一方、okBooks も

 If i2 = 捺印数 Then okBooks = okBooks + 1 '※追加箇所になります
 i2 = 0                  '※追加箇所になります
Next

これはシートごとのループの中での処理ですから、名前は okBooks ですけど
実際には ok だったシート数ですね。

で、最後のメッセージ処理で
ElseIf nosSheet <> okBooks Then
  rmks = rmks & "(捺印数不合ブック数:" & nosSheet - okBooks & " 件)"  '※追加箇所になります

正確には、ここは、捺印数不合シート数 でしょうね。

あと、ここも、結果的には問題ありませんが、
i2 を ブックレベルの情報からシートレベルの情報にしたわけですね。
ですので、上にあるように、チェックが終わったら、Next で次のシートに行く前に
i2 = 0 でクリアしておられるわけで、これでいいのですが、もう少しスコープを広げて、
この変数だけをおいかけますと

  i2 = 0  '★ ブックレベルの処理
  For sid = 1 To シート数
    '略
    For Each MyOb In fSh.Shapes '
      '略
     Next
    '略
    i2 = 0 '★シートレベルの処理
  Next

こうなっています。
不具合ではありませんが、

  For sid = 1 To シート数
    i2 = 0 '★シートレベルの処理
    '略
    For Each MyOb In fSh.Shapes '
      '略
     Next
    '略
  Next

このような記述が、本来の書き方なのかなと思います。

0 hits

【72228】捺印数の照合 ピッポ 12/6/24(日) 0:07 質問
【72233】Re:捺印数の照合 UO3 12/6/24(日) 8:23 発言
【72237】Re:捺印数の照合 UO3 12/6/24(日) 9:59 発言
【72238】Re:捺印数の照合 ピッポ 12/6/24(日) 14:25 回答
【72239】Re:捺印数の照合 UO3 12/6/24(日) 14:49 発言
【72241】Re:捺印数の照合 ピッポ 12/6/25(月) 0:25 お礼
【72276】Re:捺印数の照合 ピッポ 12/7/7(土) 9:42 発言
【72279】Re:捺印数の照合 UO3 12/7/7(土) 17:34 発言
【72281】Re:捺印数の照合 ピッポ 12/7/8(日) 11:39 発言
【72282】Re:捺印数の照合 UO3 12/7/8(日) 16:18 発言
【72284】Re:捺印数の照合 ピッポ 12/7/8(日) 16:47 発言
【72286】Re:捺印数の照合 UO3 12/7/8(日) 18:44 発言
【72283】Re:捺印数の照合 UO3 12/7/8(日) 16:35 発言
【72285】Re:捺印数の照合 ピッポ 12/7/8(日) 18:15 発言
【72287】Re:捺印数の照合 UO3 12/7/8(日) 20:54 発言
【72288】Re:捺印数の照合 UO3 12/7/9(月) 10:29 発言
【72294】Re:捺印数の照合 ピッポ 12/7/9(月) 18:00 発言
【72298】Re:捺印数の照合 UO3 12/7/10(火) 12:31 発言
【72329】Re:捺印数の照合 ピッポ 12/7/12(木) 18:12 発言
【72334】Re:捺印数の照合 UO3 12/7/13(金) 9:45 発言
【72339】Re:捺印数の照合 ピッポ 12/7/14(土) 21:26 お礼
【72299】Re:捺印数の照合 UO3 12/7/10(火) 12:42 発言

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