Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

61816 / 76738

←次へ　｜　前へ→


	【19535】Do・・・While・・・Loopを使って連番処理

YN61 - 04/11/7(日) 16:20 -


	引用なし

	パスワード

選択セルの部分に連番を入れたいのですが・・・
１を２のDo･･･Loopの書き方にすると、範囲選択以外の最初のセルに０が入ります。
しかも範囲選択の最後のところに連番が入りません。（50が最終の連番とすると
４９までしか入りません）

Do･･･Loopをできるだけシンプルに直すには、どのような対処の仕方が良いの
でしょうか。
誠に失礼ではありますが、ポイントのご説明をつけて改善の仕方を教えてください。

１．For･･･Nest

Sub 連番１(）
Dim i As integer
For i = 1 to Selection.Cells.Count
　 Selection.cells(i)=i
Next
End Sub

２．Do･･･While

Sub 連番２()
Dim i As Integer
　 Do While i < Selection.Cells.Count
　　Selection.Cells(i) = i
　i = i + 1
　Loop
End sub

0 hits

▼

【19535】Do・・・While・・・Loopを使って連番処理 YN61 04/11/7(日) 16:20

≪