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

エクセルマクロ・VBA発展編１フォローアップミニセミナー
エクセルマクロ・VBA発展編１フォローアップミニセミナーNo.04

古口梨絵さんの投稿

(投稿ID: 1821)

発展編を受講し始めて１ヶ月。
ようやく本編を見終わり、フォローアップに突入しました。

今回のお題ですが、最初は勝手にFor Each構文を使わなければ！と思い込んでしまい、作成してみました。
基礎編でもFor Next構文で作った！と思い出し、なぜかmigiはFor Next構文・・・。
C列を指定するのも上手いこと思いつかず、Offsetで表現してみましたが、
For Each構文を使った場合にC列を指定する上手な（スマートな）表現方法ってあるものなのでしょうか？
Sub mondai5()
    Dim rg As Range
    Dim migi As Long
    For migi = 4 To 15
        For Each rg In Range("A4:A29")
            If rg.Value = Range("E" & migi).Value Then
                rg.Offset(0, 2).Value = Range("F" & migi).Value
            Exit For
            End If
        Next
    Next
End Sub

まだまだテキストを見ながら、調べながらでないと書けませんが、
日々精進していきたいと思います。
2015/12/03 20:50