VBA AutoFillメソッドによる曜日一括入力

AutoFillメソッドによる曜日一括入力

Sub test()
 ’　AutoFillメソッドによる曜日一括入力　(数式を一切利用せず

    With Range("A2")
        .Value = "2024/4/16"　　’　任意の日付を入れる
        .AutoFill Destination:=Range("A2:A31")
        
        .Offset(, 1) = "火"　　　　　’　上記日付に対応する曜日を入れる
        .Offset(, 1).AutoFill Destination:=Range("B2:B31")
    End With

End Sub

実行結果

AutoFillとResizeと組み合わせた場合

Sub test1()
 ’　AutoFillメソッドによる曜日一括入力　(数式を一切利用せず

    With Range("A2")
        .Value = "2024/4/1"
        .AutoFill Destination:=.Resize(30, 1)
        
        With .Offset(, 1)      ' 右隣の列を取得
            .Value = "月"
            .AutoFill Destination:=.Resize(30, 1)
        End With
    End With

End Sub

― ― ― ― ― ― ― ― ― ― → Excel VBA基礎入門もくじ へ戻る 

参考記事

『VBA 連続データの作成　AutoFillメソッド』

『VBA セル選択範囲の変更 Resizeプロパティ』

『VBA セル入力規則の設定（Validation）』