Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
9351 / 13644 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【27858】アクティブセルの色替え ナツ 05/8/22(月) 15:07 質問[未読]
【27859】Re:アクティブセルの色替え kobasan 05/8/22(月) 15:22 回答[未読]
【27860】Re:アクティブセルの色替え ナツ 05/8/22(月) 15:31 お礼[未読]
【27858】アクティブセルの色替え
質問  ナツ  - 05/8/22(月) 15:07 -
引用なし
パスワード
   はじめまして。
分からないことに激突してしまったので投稿させていただきます。


エクセルのシート上に表があり、その表のセルの
アクティブなセルが変わった瞬間に、アクティブだったセルの配色を標準に戻し、
新たにアクティブになったセルの配色を変更させたいのですが、
シングルクリックでこのような処理は実現できるのでしょうか？
（ダブルクリックだと可能のように思います）
感覚的にはフォームのグリッドの行選択のような動きです。


お時間ありましたらご教授ください。
VBA初心者の為拙い説明で申し訳ありませんが、宜しくお願い致します。
【27859】Re:アクティブセルの色替え
回答  kobasan  - 05/8/22(月) 15:22 -
引用なし
パスワード
   ▼ナツ さん今日は。

使用シートモジュールに貼り付けて使用してください。
Private r As Range

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Not (r Is Nothing) Then r.Interior.ColorIndex = 0
　　Target.Interior.ColorIndex = 3
　　Set r = Target
End Sub
【27860】Re:アクティブセルの色替え
お礼  ナツ  - 05/8/22(月) 15:31 -
引用なし
パスワード
   ▼kobasan さん、お返事ありがとうございます。

早速実行したところ実現されていました。
本当にどうもありがとうございます。


>▼ナツ さん今日は。
>
>使用シートモジュールに貼り付けて使用してください。
>Private r As Range
>
>Private Sub Worksheet_SelectionChange(ByVal Target As Range)
>
>If Not (r Is Nothing) Then r.Interior.ColorIndex = 0
>　　Target.Interior.ColorIndex = 3
>　　Set r = Target
>End Sub
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
9351 / 13644 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free