Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
9880 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【24977】どこがまずいのでしょうか hinerikomi 05/5/16(月) 15:44 質問[未読]
【24979】Re:どこがまずいのでしょうか Kein 05/5/16(月) 16:02 回答[未読]
【24985】＞Re:どこがまずいのでしょうか hinerikomi 05/5/16(月) 16:42 お礼[未読]
【24980】Re:どこがまずいのでしょうか 小僧 05/5/16(月) 16:03 回答[未読]
【24986】＞Re:どこがまずいのでしょうか hinerikomi 05/5/16(月) 16:45 お礼[未読]
【24982】Re:どこがまずいのでしょうか Jaka 05/5/16(月) 16:08 発言[未読]
【24984】>Re:どこがまずいのでしょうか hinerikomi 05/5/16(月) 16:38 お礼[未読]
【24977】どこがまずいのでしょうか
質問  hinerikomi  - 05/5/16(月) 15:44 -
引用なし
パスワード
   Range("A1":"C4")のエリアに、4列目で改行するようにして
各セルに1〜10の数字を出力させようとしています。
すなわち
Range("A1") = 1
Range("A2") = 2
Range("A3") = 3
改行して
Range("A2") = 4
……………………
……………………
Range("A4") = 10
という具合です。
そこで、次のようなコードを作ってみました。

PrivateSub CommandButton1_Click()
Dim N,i,myCC AS Integer
For i = 1 To 4
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
Next i
End Sub

が、これを実行すると、最後の行、すなわち65536行まで
延々と続いてしまいます。
どこがどのようにまずいのでしょうか。
【24979】Re:どこがまずいのでしょうか
回答  Kein  - 05/5/16(月) 16:02 -
引用なし
パスワード
   >Range("A1":"C4")のエリアに、4列目で改行するようにして
>各セルに1〜10の数字を出力
ならば

Sub Test()
　 Dim i As Long
　 Dim C As Range

　 For Each C In Range("A1:C4")
　　　i = i + 1
　　　C.Value = i
　 Next
End Sub

で、良いのでは ?
【24980】Re:どこがまずいのでしょうか
回答  小僧  - 05/5/16(月) 16:03 -
引用なし
パスワード
   ▼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
【24982】Re:どこがまずいのでしょうか
発言  Jaka  - 05/5/16(月) 16:08 -
引用なし
パスワード
   こんにちは。

▼hinerikomi さん：
>Range("A1":"C4")のエリアに、4列目で改行するようにして
>各セルに1〜10の数字を出力させようとしています。
>すなわち
>Range("A1") = 1
>Range("A2") = 2
>Range("A3") = 3
>改行して
>Range("A2") = 4
>……………………
>……………………
>Range("A4") = 10
>という具合です。

すみません。
上の意味がわかりません。
Range("A2") = 2
Range("A2") = 4　改行せずに同じ所に書き込んでますが

こう言う事なんでしょうか？
Dim Cel As Range
For Each Cel In Range("A1:C4")
　　ct = ct + 1
　　Cel.Value = ct
Next

同じですが、
For i = 1 To 4
　 For ii = 1 To 3
　　　 CT = CT + 1
　　　 Cells(i, ii).Value = CT
　 Next
Next
【24984】>Re:どこがまずいのでしょうか
お礼  hinerikomi  - 05/5/16(月) 16:38 -
引用なし
パスワード
   Jaka さん、こんにちは。

>▼hinerikomi さん：
>>Range("A1":"C4")のエリアに、4列目で改行するようにして
>>各セルに1〜10の数字を出力させようとしています。
>>すなわち
>>Range("A1") = 1
>>Range("A2") = 2
>>Range("A3") = 3
>>改行して
>>Range("A2") = 4
>>……………………
>>……………………
>>Range("A4") = 10
>>という具合です。
>
>すみません。
>上の意味がわかりません。
>Range("A2") = 2
>Range("A2") = 4　改行せずに同じ所に書き込んでますが

非常に申し訳ありません。
Range("A1") = 1
>>Range("B1") = 2
>>Range("C1") = 3
>>改行して
>>Range("A2") = 4
>>……………………
>>……………………
>>Range("A4") = 10
>>という具合です。
が正しい記述です。

>こう言う事なんでしょうか？
>Dim Cel As Range
>For Each Cel In Range("A1:C4")
>　　ct = ct + 1
>　　Cel.Value = ct
>Next
>
>同じですが、
>For i = 1 To 4
>　 For ii = 1 To 3
>　　　 CT = CT + 1
>　　　 Cells(i, ii).Value = CT
>　 Next
>Next

ありがとうございます。
そのとおりです。
【24985】＞Re:どこがまずいのでしょうか
お礼  hinerikomi  - 05/5/16(月) 16:42 -
引用なし
パスワード
   Kein さん、こんにちは。
私の記述に誤りがありました。申し訳ございません。

>>Range("A1":"C4")のエリアに、4列目で改行するようにして
>>各セルに1〜10の数字を出力
>ならば
>
>Sub Test()
>　 Dim i As Long
>　 Dim C As Range
>
>　 For Each C In Range("A1:C4")
>　　　i = i + 1
>　　　C.Value = i
>　 Next
>End Sub
>
>で、良いのでは ?

そのとおりです。
回等をありがとうございます。
【24986】＞Re:どこがまずいのでしょうか
お礼  hinerikomi  - 05/5/16(月) 16:45 -
引用なし
パスワード
   小僧 さん、こんにちは。
私の記述に誤りがありました。申し訳ございません。

>>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

回答に感謝いたします。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
9880 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free