[[20171013160126]]　『作業を繰り返したい』（BB）　ページの最後に飛ぶ

『作業を繰り返したい』（BB）

この作業を1から15まで繰り返したいです。
マクロ記録で取ったコードですが
Sheets("メニュー画面（勤務）").Select
Range("E21").Select

    ActiveCell.FormulaR1C1 = "1"
E21ここには日付が入ります
ここを1なら1と入力でマクロが動き出します。
この動作を123456789101112131415と15日分の作業を一気にしたいのですが
1を入力して実行２を入力して実行がもうわかりません
教えてください

Sub ボタン186_Click()

Sheets("メニュー画面（勤務）").Select
Range("E21").Select

    ActiveCell.FormulaR1C1 = "1"

Sheets("メニュー画面（勤務）").Select

    sagyouwariateharituke

    Sheets("作業割当表").Select
    作業貼り付け

    Sheets("作業割当表").Select
    ボタン159_Click

    Sheets("作業割当表").Select
    Range("P1").Select

    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
End Sub

よろしくお願いします

＜使用 Excel：Excel2003、使用 OS：WindowsXP ＞

基本形だけ。

 Sub test()
    Dim i As Long

    For i = 1 To 15
        Sheets("メニュー画面（勤務）").Range("E21") = i
        他の処理をここに記述していく
    Next i
 End Sub
（???） 2017/10/13(金) 18:37

回答ありがとうございます
出来たのですが今月のように31日なら
うまく動くのですが９月のように30日の
時にマクロが止まってしまいました。
例えばどこかのセルに関数で月末の表示をし
ておくので28とか30とかの事です。
そのセルの数字をMAXで止めることは出来ない
でしょうか？
あらたに問題が発生してしまったので再度
よろしくお願いします

（BB ） 2017/10/13(金) 20:31

書き込む所間違えました

 For i = 16 To 31
16をA1から参照31をB1より参照したいのですが
よろしくお願いします

（BB） 2017/10/15(日) 05:41

コメント返信：

[ 一覧(最新更新順) ]

[[20171013160126]] 『作業を繰り返したい』（BB） ページの最後に飛ぶ

[[20171013160126]]　『作業を繰り返したい』（BB）　ページの最後に飛ぶ