Excel VBA質問箱 IV

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

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


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

45022 / 76732

←次へ　｜　前へ→


	【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では変数は使えないのでしょうか？？

1 hits

▼

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

≪