|
▼にぃ 様
こんにちは。
気付くのが遅くなってしまい申し訳ありません。
重ね重ねありがとうございます。早速、書き換えてみます。
>
>>Do を↓で上手くいきました。ありがとうございました。
>すみません、最初のDoの位置ですと「NewRow = NewRow + 1」
>を入れるのを忘れていたため動作しませんでしたね^^;
>
>>勉強しながらと言うか、ツギハギで作り込んでるので自身が無いんですが
>>おかしい(変)所があれば指摘も御願いします。
>私もそれほど言える立場ではないのですが、少し言わせていただければ、
>RangeやCellsがたくさんありますが、どちらかに統一したほうがいいと思います。
>自分だけが見ていればあまり問題ないですが、他の人がみたり、編集したり、
>またこのような掲示板で載せる場合にも統一していたほうが見やすく
>分析しやすいです。
そうなんです。自分でも気になっている所なんですが、ツギハギで作ってるのが
出ている部分ですね。
>
>あとは転機の際にしっかりと「Sheet3」や「Sheet4」を宣言しているので
>いちいちSheetをActiveにする必要はないです。
ここも↑と同じと言えば同じなんですが、書きながら自分にも言い聞かせてる部分
でもあり。。;;です。
>
>一応下記に少し改善して作ってみましたが、もっといい方法はたくさん
>あると思います。参考程度に使ってやってください。
>
>ちなみに比較の際にVariantで置き換えて操作したほうが処理が速くなるので
>使用しました。
>Variantはとてもいい機能なので機会があったら調べてみてください。
ありがとうございます。早速、調べてみます。知らない事の方が多いと何から
調べて良いかも分からなくなりがちですが指摘して頂けると、新たな方向性が
見えてきて、幅が広がります。感謝です。
>
>また、動作テストは行ってませんので、テスト環境でこちらは行ってください。
>コード的には短くなってないかもしれませんが、処理スピードは速くなっているはずです。
>
早速、試してみたいと思います。本当にありがとうございました。
|
|