レッスン-投稿一覧パソコン仕事５倍塾ポータル

投稿/コメントを表示します。

条件に一致するデータだけのリストを、条件に一致しないデータを削除する方法で作成する。

凜さんの投稿

(投稿ID: 5146)

いつもお世話になっております。
教えて頂いた事を復習しつつ、下記のようなマクロを書いてみました。
いちお動作結果は問題ないようでしたが、気付かない不具合があるのかと不安になりました。ご教示頂けますでしょうか。
よろしくお願いします。

Sub hanako()

Dim gyo
For gyo = 10 To 35
    If Range("D" & gyo).Value = "ぬいぐるみ" Then
    
    Else
        If Range("C" & gyo).Value = "" Then
         Exit For
        Else
         Rows(gyo & ":" & gyo).Select
         Selection.Delete shift:=xlUp
         gyo = gyo - 1
        End If
    End If
    
Next

End Sub

2021/06/20 07:54

小川慶一さんのコメント

(コメントID: 7277)

凜さん:

おはようございます。

「動作の結果、期待どおりの状態になるか」ということでしたらこれでも良いと言えばよいです。

が、くり返し作業のカウンターに使う変数の値をループの中で手動で変更するのは、避けたほうが無難です。
処理が複雑になること、可読性が落ちてメンテナンスに手間がかかるようになることが理由です。

ひきつづき、よい学びを☆

2021/06/20 17:18

凜さんのコメント

(コメントID: 7278)

小川慶一さん:
ありがとうございます。
社内で長く使い続ける事が出来るシステムを作る為にも可読性という視点を大事にしていきたいと思います。
実務に合わせたご指導に大変感謝しております。
今後もよろしくお願いします。

2021/06/23 03:45

小川慶一さんのコメント

(コメントID: 7279)

凜さん:

わざわざありがとうございます。
ひきつづき、よろしくお願いいたします (^^*

2021/06/23 03:47