1

1 か月の各日付のインスタンスを 10 回入力するマクロを作成しようとしています。日付をたどっていきましたが、最初の 10 個のセルで互いに貼り付けられているだけです。

必要なもの (ただし、3 個ではなく 10 個のセット):

3/1/2013
3/1/2013
3/1/2013
3/2/2013
3/2/2013
3/2/2013
3/3/2013
3/3/2013
3/3/2013

私が持っているコード:

Sub Macro1()

Dim v&, MyDate As Date, Cell As Range

For i = DateValue("3/01/2013") To DateValue("3/31/2013")
    Set Cell = [A1]
    For v = 0 To 9 ' 9 means 10 cells
        Cell.Offset(v, 0).Value = i
    Next v
Next i

End Sub

コードで何を使用する必要があるかについての提案はありますか?

4

4 に答える 4

1 
Sub Macro1()
    Dim v&, MyDate As Date, Cell As Range

    Range("A1").Select
    Set Cell = [A1]

    For i = DateValue("3/01/2013") To DateValue("3/31/2013")
        For v = 0 To 9
            ActiveCell.Value = i
            ActiveCell.Offset(1, 0).Select
        Next v
    Next i
End Sub

1/3/13 と 31/3/13 の方がうまくいきますが。

于 2013-07-17T19:18:34.373 に答える