|
hinerikomi さん、こんにちは。(おはようございます。)
つん さん、随分とご無沙汰です。
横から失礼致します。
>>> (N=1 のときは) Range(""A1)=1
>>> (N=2 のときは) Range("C1")=2
>>> (N=3 のときは) Range("A2")=3
>>> (N=4 のときは) Range("E2")=4
>>> (N=5 のときは) Range("E3")=5
>セルの規則性ですが、次のようになります。
>1.列は A〜E 迄の5列のみを使い、5列を超えた場合は
> 改行します。
>2.開始セルは A1
>3.次のセルは一つ空けて、C1
> 次のセルはC1から二つ空けて、F1としたいのですが、
> 1.の条件から改行して、A2となります。
> 次のセルはA2から三つ空けてE2、改行して
> E2から四つ空けてE5となります。
> 順次、次のセルまでの飛び方が1,2,3,4,5,6、……と
> なります。
>という規則性です。
Dim N, r, c As Integer
r = 1
c = 0
For N = 1 To 5
c = c + N
If c > 5 Then
c = c - 5
r = r + 1
End If
Cells(r, c) = N
Next N
こんな事でしょうか?
|
|