|
超初心者さんへ
ご回答、ありがとうございます。
超初心者さん、ループでくくる方法は思いつきませんでした。
ただ、現状ではどのような式になるのか、分からず仕舞です。
いまあるマクロにどのように組み込めばよいか、
ご教示いただければ幸いです。
neptune さんへ
ご回答、ありがとうございます。
On Error Resume Nextは、
H:J列を開いていない状態で終了すると、
H:J列を綴じる必要が無いため、エラーメッセージがでてしまうので、
それを回避するために入れています。
万が一の予期せぬのエラーのためを考えると、
On Error GoTo 0をいれたほうが良いということでしょうか・・。
それから、おっしゃるとおり、
active sheetで限っているので、
うまくいかないことはわかっているのですが、
もともと、シートが一枚のときに組んだマクロを利用していることもあり、
そのようなコードになってしまっています。
それが、必要に応じてシートを増やすことになって、
また、シート名も内容によって後から設定していくので、
あらかじめシート名を設定できません。
For Each Ws In ThisWorkbook
というコードをネットでみつけて、トライしてみましたが、
うまくいきませんでした。
ループでくくる方法はまだ勉強不足でよく分かっていませんが、
そのような方法がべストでしょうか。
|
|