★Word/Excel (MS-OFFICE) 初心者スレッド Part41★

[0241 ひよこ名無しさん 2015/06/28(日) 21:12:53.58 ID:???]

>>240
こういうこと？
あと、ここは初心者専用スレッドなので、
VBA等の高度な質問なら、ビジネスsoft板かプログラム板へどうぞ。

Dim a As Long, b As Long, x As Long, y As Long
a = Range("A1").Value
x = InputBox("繰り返し回数を入力")
y = InputBox("終了回数を入力")
For i = 1 To y
b = Int((i - 1) Mod (x + 2))
Cells(i, 1).Value = b * 100 + a
Next i