Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

10127 / 76807

←次へ　｜　前へ→


	【72233】Re:捺印数の照合

UO3 - 12/6/24(日) 8:23 -


	引用なし

	パスワード

▼ピッポさん：

おはようございます

コードはざっと眺めただけで読んでいません。

>シート１のＡＦ列に電子印の捺印数が記載されていて数が一致していれば
>Ｉ列に”問題なし”、異常なら”問題あり”と記載したい。
>下記のように作成しましたが、”問題あり”と記載されてしまいます。

問題ありの場合は問題ありとでていいわけですから、問題がないはずなのに問題有りとなる。
そういうことなんでしょうね。

Shape は　セル範囲を特定して抽出するといった『器用なこと』はできません。
そのシート上のすべてのShapeが抽出されます。ですから、抽出されたShapeが
特定領域にあるのかどうかのチェックが必要です。
そのあたりが原因ではないですか？

ところで、本当に、このこーどのイメージで書かれているのでしょうか？
最初のほうはインデントがつけられていますが、あとは、まったくついていませんね。
これだけIF分岐やFor/Nextループが入り組んだコードですから、このイメージだとすると
コードを追いかけるのも至難の業ではないですか？

それと、コード記述そのものに、改善の余地があるかもです。
c.Offset(,0). これは Offsetの意味が全くないですね。単純に c. でよろしいんですが。
あと、 With も必ずしも有効に使われていない（With の必要がない）ところもありますね。

0 hits

▼

【72228】捺印数の照合 ピッポ 12/6/24(日) 0:07