Excel VBA質問箱 IV

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

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


75676 / 76738 ←次へ | 前へ→

【5494】Re:よろしくお願いします。
回答  Nakamura  - 03/5/15(木) 23:35 -

引用なし
パスワード
   こんばんは

こんな感じでどうでしょう?

Sub test()

  Dim i As Integer, ii As Integer
  
  ii = Application.InputBox("繰り返し回数を入力してください。")
  
  For i = 1 To ii
  
    '処理
    
  Next i
  
End Sub

Sub test1()

  Dim i As Integer
  On Error Resume Next
  
  i = Application.InputBox("選択セル数を入力してください。")
  
  With ActiveCell
  
    Range(.Address, .Offset(i - 1).Address).Select
  
  End With
End Sub

それでは

2 hits

【5493】よろしくお願いします。 Starmine☆ 03/5/15(木) 23:12 質問
【5494】Re:よろしくお願いします。 Nakamura 03/5/15(木) 23:35 回答
【5496】Re:よろしくお願いします。 ichinose 03/5/15(木) 23:52 発言
【5495】Re:よろしくお願いします。 ichinose 03/5/15(木) 23:50 回答
【5497】素早いご回答ありがとうございます。 Starmine☆ 03/5/16(金) 0:07 お礼

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