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

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

浦山大さんの投稿

(投稿ID: 3489)

2回目です。
1回目の時にコメント欄でForEach構文で作成されたコードがあったため、挑戦してみました。offsetも閃くことが出来ました。
HidaとMigiは鉄板ですね。
rgHidaがくどいかな？最初with文入れてみたんですが、行数増えちゃうので消しました。もう少し長大なときは使いたいと思いました。

Sub renshu()
    Dim rgHida As Range
    Dim rgMigi As Range
    For Each rgMigi In Range("E4:E15")
        For Each rgHida In Range("A4:A29")
            If rgHida.Value = rgMigi.Value Then
                rgHida.Font.Bold = True
                rgHida.Offset(, 2).Value = rgMigi.Offset(, 1).Value
                Exit For
            End If
        Next
    Next
End Sub

2017/10/08 08:12

小川慶一さんのコメント

(コメントID: 4953)

浦山大さん:

commenid 5379, 5380 あたり参考になるかと。
というか、提出されたコードほぼそのまんまですね。

> rgHidaがくどいかな？最初with文入れてみたんですが、行数増えちゃうので消しました。もう少し長大なときは使いたいと思いました。

善悪は微妙ですね。

with [object]

end with

を使うと、上記当該[object]をいちいち再度探す手間が省けるので、こびとちゃん的には少し助かります。
可読性という点で考えると少し微妙なところです。

2017/10/08 10:19