|
▼hinerikomi さん:
こんんちは。
>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
|
|