[[20150522174112]]　『番号をつけたい』（イチロ）　ページの最後に飛ぶ

『番号をつけたい』（イチロ）

教えてください。
C5～L7までに11から40までの番号を順に付けたいのですがマクロでのやり方を教えてください。

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

 Sub test()
    Dim R As Range
    Dim i As Long

    i = 11

    For Each R In Range("C5:L7")
        R.Value = i
        i = i + 1
    Next
 End Sub
（???） 2015/05/22(金) 18:28

 たとえば

 Sub Test()
    With Range("C5:L7")
        .Formula = "=COLUMN()-COLUMN($C$5)+1+(ROW()-ROW($C$5)+1)*10"
        .Value = .Value
    End With
 End Sub

（β） 2015/05/22(金) 18:59

 もう一例

 Sub Test2()
    Range("C5").Value = 11
    Range("C5:C7").DataSeries Rowcol:=xlColumns, Type:=xlLinear, Date:=xlDay, Step:=10, Trend:=False
    Range("C5:L7").DataSeries Rowcol:=xlRows, Type:=xlLinear, Date:=xlDay, Step:=1, Trend:=False
 End Sub

（β） 2015/05/22(金) 19:02

（???）・（β）さん
お世話になります。
（???）さんのコードが拡張性がありイイと思い使わせていただきます。

（イチロ） 2015/05/22(金) 20:47

コメント返信：

[ 一覧(最新更新順) ]

[[20150522174112]] 『番号をつけたい』（イチロ） ページの最後に飛ぶ

[[20150522174112]]　『番号をつけたい』（イチロ）　ページの最後に飛ぶ