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

エクセルマクロ・VBA発展編２
引数として配列を受け取るFunctionプロシージャ

ゲストさんの投稿

(投稿ID: 2326)

小川先生へ

お世話になっております。
1点質問があります。
下記のサブプロシージャーに
（C-2）とありますが、－２は、なぜついているのでしょうか。
ご教授ください。
よろしくお願い致します。
Sub SetCampaignFlag()
    Dim stKonyuList() As String
    Dim c As Long
    For c = 2 To Range("F65536").End(xlUp).Row
        ReDim Preserve stKonyuList(c - 2)                               '←（質問箇所）こちらです。
        stKonyuList(c - 2) = Range("F" & c).Value
    Next
    
    For c = 2 To Range("B65536").End(xlUp).Row
        '以下のIf文の中で、関数からの戻り値を利用している
        If IsExists(Range("B" & c).Value, stKonyuList) Then
            Range("C" & c).Value = "○"
        Else
            Range("C" & c).ClearContents
        End If
    Next
End Sub

2016/04/27 05:18