Excel VBA質問箱 IV

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

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


5316 / 13645 ツリー ←次へ | 前へ→

【51538】罫線を引く 川口 伸二 07/9/22(土) 22:13 質問[未読]
【51539】Re:罫線を引く 多摩川 07/9/22(土) 22:30 回答[未読]

【51538】罫線を引く
質問  川口 伸二 E-MAIL  - 07/9/22(土) 22:13 -

引用なし
パスワード
    繰り返しステートメントを使い、罫線を次の行に繰り返し10回引たいのでが
 処理のステートメントに Range("A1:H1").Select の指定を
 指定していますが  行を 変数として 1 2 3 --- 10 と
 変化させたいのですが、Rangeの指定方法について
 よろしくお願いします
  
  For 変数 = 初期値 To 終了値
     処理
   Next 変数

  処理内容
     1 Range("A1:H1").Select
     2 Range("A2:H2").Select
     3 Range("A3:H3").Select   
           ↓
     10 Range("A10:H10").Select

【51539】Re:罫線を引く
回答  多摩川  - 07/9/22(土) 22:30 -

引用なし
パスワード
   ▼川口 伸二 さん:
> 繰り返しステートメントを使い、罫線を次の行に繰り返し10回引たいのでが
> 処理のステートメントに Range("A1:H1").Select の指定を
> 指定していますが  行を 変数として 1 2 3 --- 10 と
> 変化させたいのですが、Rangeの指定方法について
> よろしくお願いします
>  
>  For 変数 = 初期値 To 終了値
>     処理
>   Next 変数
>
>  処理内容
>     1 Range("A1:H1").Select
>     2 Range("A2:H2").Select
>     3 Range("A3:H3").Select   
>           ↓
>     10 Range("A10:H10").Select

若輩者ですが・・・
Sub test()
 Dim i As Long
 For i = 1 To 10
  Range("A" & i & ":H" & i).Select
 Next i
End Sub

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