[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]
『番号をつけたい』(イチロ)
教えてください。
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
[ 一覧(最新更新順) ]
YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki.
Modified by kazu.