Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
7100 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【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 さん：

よく理解できました。ありがとうございます。
参考にさせていただきます。
今後ともよろしくお願いします。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
7100 / 13646 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free