|
小僧 さん、こんにちは。
私の記述に誤りがありました。申し訳ございません。
>>For N = 1 To 10
>> Range(Cells(i,1),Cells(i,N)).Select
>> myCC = Selection.Count
>> If myCC > 3 Then
>> i = i +1
>> N = N -3
> '↑ここ
>> End If
>> Cells(i,N) = N
>>Next N
>
>「N」の値を変えてしまっているために、
>For 〜 Next のループが抜け出せなくなってしまってます。
>
>そのほか気づいた点を…
>
>>Dim N,i,myCC AS Integer
>
>この表記ですと myCCは Integer型ですが、 N 、i については
>型宣言をしていない為 Variant型として扱われてしまいます。
>
>私が作成するとしたら下のようなコードになります。
>
>Private Sub CommandButton1_Click()
>Dim I As Long
>Dim J As Long
> For I = 1 To 10
> For J = 1 To 3
> Cells(I, J).Value = (I - 1) * 3 + J
> Next
> Next
>End Sub
回答に感謝いたします。
|
|