[[20141023113408]] 『アクティブセルのみ色をつけたい』(やまびこ) >>BOT

[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]

 

『アクティブセルのみ色をつけたい』(やまびこ)

1つのエクセルファイルの複数ページ内セルを選択したら選択されたセルだけ色を変えたい

< 使用 Excel:Excel2013、使用 OS:Windows7 >


何を実現したいのかよく判らないのですが、とりあえず選択行の色換えは参考になりませんか?
http://www.excel.studio-kazu.jp/kw/20141011233727.html
(???) 2014/10/23(木) 12:54

ありがとうございます
やはり選択行ですね
この方法はわかっておりますが
自分が行いたいのは選択されたセルのみです
どうやってもうまくいかないのです

(やまびこ) 2014/10/23(木) 13:14


 こんにちは

 各シートモジュールに貼り付けて下さい。

 Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  Cells.Interior.ColorIndex = xlNone
  Target(1).Interior.ColorIndex= 6
 End Sub

(五線譜) 2014/10/23(木) 13:18


ありがとうございます
そもそもエクセルの専門用語をどう理解したらよいのか
マクロの組み方もよく理解できてなくて
ごめんなさい
シートモジュールに貼り付けとは
どのようにやるのでしょうか?

(やまびこ) 2014/10/23(木) 13:44


 シートモジュールへの貼り付け。

 1)sheet1タブに(下部sheet1・sheet2・sheet3の部分)マウスを合わせて右クリック
 2)コードの表示(V)をクリック
 3) 右の窓に(白色の四角のところ)下記コード貼り付ける。
 4)保存してエクセル再起動すればOK
 各シートに同処理すれば、各シートでアクティブセルにのみ色がつきます。
  わかりにくい説明ですが・・・。    

 ’ここから---------------------
 Private Sub Worksheet_SelectionChange(ByVal Target As Range)

  Cells.Interior.ColorIndex = xlNone
  Target(1).Interior.ColorIndex= 6
  End Sub
 'ここまで----------------------

(五線譜) 2014/10/23(木) 14:14


ありがとうございました
できました
自分のやりたいようになりました

最初条件付き書式を設定してあったから変な動きになってしまい
それをクリアしたら(消去)きちんと動作いたしました。

それにこんなド素人の私に煙たがらず教えていただき感謝いたします
これからもお願いいたします

(やまびこ) 2014/10/23(木) 14:25


コメント返信:

[ 一覧(最新更新順) ]


YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki. Modified by kazu.