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

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

マメコトさんの投稿

(投稿ID: 3924)

今回の問題はこのように書いてから動画を見ました。

Sub mondai2()
    Dim hida
    Dim migi
    Dim Kuiki
    migi = 2
    
    For hida = 2 To 27
        If Range("A" & hida).Value <> Range("A" & hida - 1) Then
            Range("E" & migi).Value = Range("A" & hida).Value
            Range("F" & migi).Value = Range("B" & hida).Value
            Kuiki = Range("C" & hida).Value & "地区"
            Range("G" & migi).Value = Kuiki
            migi = migi + 1
        Else
            Kuiki = Kuiki & "," & Range("C" & hida) & "地区"
            Range("G" & migi - 1).Value = Kuiki
        End If
    Next

End Sub

重複した業者名が続くと『区域』を毎回書き直すのがカッコワルイと感じてはいますが、最初と最後の特殊な制御は不要になるので、メンテナンスはしやすく、これはこれでアリなのではと思っています。
一方、処理が重くなったり遅くなったりするというデメリットもあるかも知れないのですが・・・どうでしょうか。

2018/05/28 10:11

小川慶一さんのコメント

(コメントID: 5479)

マメコトさん:

> 重複した業者名が続くと『区域』を毎回書き直すのがカッコワルイと感じてはいますが
> 最初と最後の特殊な制御は不要になるので、メンテナンスはしやすく、これはこれでアリなのではと思っています。

↑
デメリットをふまえたうえで、メリットもあるということですね。
とても建設的な意見かと思います。

上記デメリットが強調される局面もありえます。
[a] カッコワルイ
[b] 工数が多い(変数に値を格納する、変数の値を読み出す、より、セルに値を入れる、セルの値を読み出すことのほうが高コストです)

なので、両方のやり方をできるようになれればよりよいです。
というか、「最初と最後の特殊な制御」は、パターンなので、ここでマスターしておかないと、先々行き詰まります。ので、できればしっかりマスターしておきたいところ。

なお...。 [a] はメリットにもなりえます。
マクロ初心者に「ホラホラ！」と言いつつマクロが動作している様子を見せるときには、どんどんセルの値が更新されるほうがキャッチーなので(^^;

2018/05/28 10:32