VBAのIE制御

Function birthdayGet(Optional place As Integer = 1) As Collection

    Dim minYear As Integer, maxYear As Integer
    Dim intYear As String, intMonth As String, intDay As String
    Dim arrBirthday As New Collection

    minYear = Year(Date) - 80   '今年から80年前
    maxYear = Year(Date) - 20   '今年から20年前
    
    intYear = makeRndInt(minYear, maxYear)
    intMonth = makeRndInt(1, 12)
    intDay = makeRndInt(1, 28)
    
    '2桁に変換
    If place <> 1 Then
    a = Format(intMonth, "00")
        intMonth = Format(intMonth, "00")
        intDay = Format(intDay, "00")
    End If

    arrBirthday.Add intYear, "Y" '年
    arrBirthday.Add intMonth, "M"   '月
    arrBirthday.Add intDay, "D"   '日

    Set birthdayGet = arrBirthday

End Function

※ドラッグ(スワイプ)すると全体を確認できます。

こちらは戻り値が必要ですので、functionプロシージャで対応しています。引数には「桁数」の1つが設定されています。以下が引数の詳細になります。

「place」は任意項目です。「place」には、1桁の月日を2桁にする場合2を設定します。こちらを設定することで「1」→「01」のように2桁で取得できます。

↑VBAのIE操作で分からない事があればこちらの掲示板よりご質問ください。

↑こちらはVBAをマスターできるよう初心者向けのエクセルVBA入門コンテンツになります。

目次