Excel VBA質問箱 IV

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

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


7810 / 13644 ツリー ←次へ | 前へ→

【36717】範囲選択 Range関数の記入方法 まっこ 06/4/10(月) 15:51 質問[未読]
【36718】Re:範囲選択 Range関数の記入方法 とおりすがり 06/4/10(月) 16:04 発言[未読]
【36719】Re:範囲選択 Range関数の記入方法 まっこ 06/4/10(月) 16:28 お礼[未読]

【36717】範囲選択 Range関数の記入方法
質問  まっこ  - 06/4/10(月) 15:51 -

引用なし
パスワード
   エクセルの行間のセルの上の枠線を消す場合、下記のようなプログラムだと
B9からAE9までの行のセルの上を消すことが出来ます。

Sub Macro1()

  Range("B9:AE9").Select
  
  Selection.Borders(xlEdgeTop).LineStyle = xlNone

End Sub

同じような処理をする行がたくさんあるので、
sub Macro1()
  For x=9 to 201 step 2
  Range("Bx:AEx").Select

   If Bx = "" Then End

  Selection.Borders(xlEdgeTop).LineStyle = xlNone
  next
End Sub

というような感じのプログラムを作っても、Range("Bx:AEx").Select
の箇所でエラーとなります。

上記のような流れのプログラムを作る場合の正しい書き方がありましたら、
教えていただけないでしょうか。超初心者です。
いろいろと調べましたが解決出来ませんでした。。。
Rangeでは変数は使えないのでしょうか??

【36718】Re:範囲選択 Range関数の記入方法
発言  とおりすがり  - 06/4/10(月) 16:04 -

引用なし
パスワード
   ▼まっこ さん:
>エクセルの行間のセルの上の枠線を消す場合、下記のようなプログラムだと
>B9からAE9までの行のセルの上を消すことが出来ます。
>
>Sub Macro1()
>
>  Range("B9:AE9").Select
>  
>  Selection.Borders(xlEdgeTop).LineStyle = xlNone
>
>End Sub
>
>同じような処理をする行がたくさんあるので、
>sub Macro1()
>  For x=9 to 201 step 2
>  Range("Bx:AEx").Select
>
>   If Bx = "" Then End
>
>  Selection.Borders(xlEdgeTop).LineStyle = xlNone
>  next
>End Sub
>
>というような感じのプログラムを作っても、Range("Bx:AEx").Select
>の箇所でエラーとなります。
>
>上記のような流れのプログラムを作る場合の正しい書き方がありましたら、
>教えていただけないでしょうか。超初心者です。
>いろいろと調べましたが解決出来ませんでした。。。
>Rangeでは変数は使えないのでしょうか??

>Rangeでは変数は使えないのでしょうか??
使えます。

>Range("Bx:AEx")
これは変数を使ってることになってない。
" "で括ると一つの文字列なり、変数を扱ってることにならない。
Range("B" & x & ":AE" & x)
とすれば変数を扱ってることになる。

【36719】Re:範囲選択 Range関数の記入方法
お礼  まっこ  - 06/4/10(月) 16:28 -

引用なし
パスワード
   >>Rangeでは変数は使えないのでしょうか??
>使えます。
>
>>Range("Bx:AEx")
>これは変数を使ってることになってない。
>" "で括ると一つの文字列なり、変数を扱ってることにならない。
>Range("B" & x & ":AE" & x)
>とすれば変数を扱ってることになる。

無事に解決する事が出来ました。
非常に初歩的な質問であるにもかかわらず、丁寧に教えていただきまして
本当にありがとうございました。
今後も頑張って学んでいきたいと思います。

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