Excel VBA質問箱 IV

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

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


60251 / 76732 ←次へ | 前へ→

【21123】不連続なセル範囲の指定の仕方
質問  ラータ  - 05/1/12(水) 16:15 -

引用なし
パスワード
   はじめまして。
見様見真似でエクセルのマクロを書いています。
簡単なことだと思うのですが、どなたかご教示ください.

定期的なデータ処理用のエクセルマクロを作成していますが、
不連続なセル範囲の指定の仕方がわかりません。

例えば列:A〜Z、行:1〜N(その時々で列数は確定していますが、行数は変動します)
のデータのうち、A列、K列のフォントを設定する場合、
今までは以下のように表現していました。

最終列 = Columns("A:A").Specialcells(xlconstants).Count
With Range("A1:A" & NO数).Font
    .Name = "MS ゴシック"
    .Size = 10
End With
With Range("K1:K" & NO数).Font
    .Name = "MS ゴシック"
    .Size = 10
End With

ただしこの方法ですと、指定したい列が多くなると
With〜End Withの記述がその分だけ増えてしまい、あんまり
よろしくないと感じています。
できれば一回の記述ですませたいのですが、このような
不連続かつ最終行数が不確定なセル番地の、Rangeオブジェクトの
引数表示はどのように記述すればいいのでしょうか。

以上よろしくお願い致します。

0 hits

【21123】不連続なセル範囲の指定の仕方 ラータ 05/1/12(水) 16:15 質問
【21124】Re:不連続なセル範囲の指定の仕方 ラータ 05/1/12(水) 16:32 質問
【21127】Re:不連続なセル範囲の指定の仕方 Jaka 05/1/12(水) 16:52 回答
【21130】Re:不連続なセル範囲の指定の仕方 ラータ 05/1/12(水) 17:13 質問
【21131】Re:不連続なセル範囲の指定の仕方 Jaka 05/1/12(水) 17:34 回答
【21159】Re:不連続なセル範囲の指定の仕方 ラータ 05/1/13(木) 16:07 お礼
【21129】Re:不連続なセル範囲の指定の仕方 無名 05/1/12(水) 17:04 回答

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