Excel VBA質問箱 IV

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

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


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

【41209】Range(cells(1,X),Cells(1,Y))について Hirok 06/8/1(火) 22:28 質問[未読]
【41210】Re:Range(cells(1,X),Cells(1,Y))について Kein 06/8/1(火) 22:39 回答[未読]
【41211】Re:Range(cells(1,X),Cells(1,Y))について Hirok 06/8/1(火) 22:45 お礼[未読]
【41218】Re:Range(cells(1,X),Cells(1,Y))について Jaka 06/8/2(水) 10:36 発言[未読]
【41236】Re:Range(cells(1,X),Cells(1,Y))について Hirok 06/8/2(水) 19:32 お礼[未読]

【41209】Range(cells(1,X),Cells(1,Y))について
質問  Hirok  - 06/8/1(火) 22:28 -

引用なし
パスワード
   下のようなコードは問題ないのでしょうか
表の項目行に濃い黄色をつけるのですが・・・

Range("B6").Select
  ActiveCell.CurrentRegion.Select
  Selection.Interior.ColorIndex = 36
  Selection.Range(Cells(1, 1), Cells(1, 5)).Interior.ColorIndex = 6

Range(Cells(1,1),cells(1,5))のコードは絶対的な範囲選択に使われるものが、ここでは相対的な範囲を示すことになりますが、このような使い方はおかしいのでしょうか?
もっと分かりやすい(誤解のない)方法でコードを作成するとすればどのように成るのでしょうか?    

【41210】Re:Range(cells(1,X),Cells(1,Y))について
回答  Kein  - 06/8/1(火) 22:39 -

引用なし
パスワード
   With Range("B6").CurrentRegion
  .Interior.ColorIndex = 36
  .Range("A1:E1").Interior.ColorIndex = 6
End With

ぐらいでどうでしょーか ?

【41211】Re:Range(cells(1,X),Cells(1,Y))について
お礼  Hirok  - 06/8/1(火) 22:45 -

引用なし
パスワード
   ▼Kein さん:

ありがとうございます。
実は先ほどのコードは、B6からF6に見出し行として
濃い黄色い帯がつきます。範囲選択が相対的になって
しまって、ややこしいと思い、質問させていただきました。


With Range("B6").CurrentRegion
  .Interior.ColorIndex = 36
  .Range("B6:F6").Interior.ColorIndex = 6
End With
 
と書けば良いのでしょうね。

【41218】Re:Range(cells(1,X),Cells(1,Y))について
発言  Jaka  - 06/8/2(水) 10:36 -

引用なし
パスワード
   With Range("B6").CurrentRegion
  .Interior.ColorIndex = 36
  '.Range(Cells(1, 1), Cells(1, 5)).Interior.ColorIndex = 6
  '↑でもいいと思うけど...。↓とか。
  '.Rows(1).Resize(, 5).Interior.ColorIndex = 6
  '↓これとか。
  .Cells(1, 1).Resize(, 5).Interior.ColorIndex = 6 ←私はこれ派
  'これとか。
  '.Item(5, 1).Resize(, 5).Interior.ColorIndex = 6
  '↓だとB6が、シート全体で言うA1に当たるのでややこしいかも。
  '.Range("B6:F6").Interior.ColorIndex = 6
End With

【41236】Re:Range(cells(1,X),Cells(1,Y))について
お礼  Hirok  - 06/8/2(水) 19:32 -

引用なし
パスワード
   ▼Jaka さん:

よく理解できました。ありがとうございます。
参考にさせていただきます。
今後ともよろしくお願いします。

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