Excel VBA質問箱 IV

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

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


9638 / 13646 ツリー ←次へ | 前へ→

【26258】VBA ダウン 05/6/29(水) 18:56 質問[未読]
【26265】Re:VBA 05/6/29(水) 21:56 発言[未読]

【26258】VBA
質問  ダウン E-MAIL  - 05/6/29(水) 18:56 -

引用なし
パスワード
   セルを移動する度に黒枠になるのがふつうですが、
それを色付の枠に変えたり、十字方向全体に色をつけて作業することは
可能ですか?
可能であれば、教えてください。

【26265】Re:VBA
発言    - 05/6/29(水) 21:56 -

引用なし
パスワード
   ▼ダウン さん:
こんばんわ
>セルを移動する度に黒枠になるのがふつうですが、
>それを色付の枠に変えたり、十字方向全体に色をつけて作業することは
>可能ですか?
>可能であれば、教えてください。

色付の枠に変えるのは、分かりませんが
十字方向全体に色をつけて作業することは出来ます。

該当するシートに、

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  Dim R, C As Integer
   R = ActiveCell.Row
   C = ActiveCell.Column
    '指定範囲の色を消す
     Range("a1:d1,in1:iv1,a2:iv65536").Interior.ColorIndex = 0
    '指定範囲に色を付ける
     Range("e1,bg1,di1,fk1,hm1").Interior.ColorIndex = 35
     Range("af1,ch1,ej1,gl1").Interior.ColorIndex = 37
    '十字に色を付ける
     Rows(R).Interior.ColorIndex = 34
     Columns(C).Interior.ColorIndex = 6
End Sub

指定範囲に色を付ける操作はそのシートのセルに色を付けている箇所が無ければ、省いても問題ないですが、(セルに色を付けている箇所があれば範囲を指定する)
指定範囲の色を消す&十字に色を付ける操作は省けません。
確認してみてください。

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