Excel VBA質問箱 IV

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

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


61810 / 76732 ←次へ | 前へ→

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

引用なし
パスワード
   選択セルの部分に連番を入れたいのですが・・・
1を2のDo・・・Loopの書き方にすると、範囲選択以外の最初のセルに0が入ります。
しかも範囲選択の最後のところに連番が入りません。(50が最終の連番とすると
49までしか入りません)

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


1.For・・・Nest

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

2.Do・・・While

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

1 hits

【19535】Do・・・While・・・Loopを使って連番処理 YN61 04/11/7(日) 16:20 質問
【19536】Re:Do・・・While・・・Loopを使って連番処... かみちゃん 04/11/7(日) 16:25 回答
【19539】Re:Do・・・While・・・Loopを使って連番処... YN61 04/11/7(日) 17:20 お礼
【19542】Re:Do・・・While・・・Loopを使って連番処... ちゃっぴ 04/11/7(日) 19:04 発言
【19634】Re:Do・・・While・・・Loopを使って連番処... YN61 04/11/11(木) 19:33 お礼
【19683】Re:Do・・・While・・・Loopを使って連番処... YN61 04/11/14(日) 21:28 質問
【19684】Re:Do・・・While・・・Loopを使って連番処... ちゃっぴ 04/11/14(日) 21:57 回答
【19715】Re:Do・・・While・・・Loopを使って連番処... YN61 04/11/15(月) 21:20 お礼
【19947】Do・・・While・・・Loopを使って連番処理 YN61 04/11/19(金) 20:01 お礼
【19954】Re:Do・・・While・・・Loopを使って連番処... ちゃっぴ 04/11/19(金) 22:30 回答

61810 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free