
No.4ベストアンサー
- 回答日時:
条件付き書式で、数式を
=OR(CELL(“row”)=ROW(),CELL(“col”)=COLUMN())
VBAでWorksheet_SelectionChange イベントを使い
Application.ScreenUpdating = True
を使ったものは試されたのでしょうか?
https://okirakurak.exblog.jp/12541440/
分らない場合、どの部分で躓いているのでしょうか?
No.5
- 回答日時:
No.2です。
>選択から外れると元の色に戻る方法・・・
を見逃していました。
前回のコードは消去し、↓のコードに変更してください。
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim myRng As Range
Set myRng = Range("A1:A2")
myRng.Interior.ColorIndex = 28
If Intersect(Target, myRng) Is Nothing Or Target.Count > 1 Then Exit Sub
Target.Interior.ColorIndex = 6
End Sub
※ コードそのものはほとんど変わりませんが、
コードの行を入れ替えました。m(_ _)m
No.3
- 回答日時:
「VBAと条件付き書式を使って」ですよね?・・・。
やってみました。とりあえずできました。こんな感じです。
Function CondCell(r As Range) As Boolean
Application.Volatile
If r.Address = ActiveCell.Address Then CondCell = True
End Function
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Me.Calculate
End Sub
上記のユーザ定義関数「CondCell」を使って、条件付き書式設定をしてください。
ただ、これだけでは反応しません。そこで、Worksheet_SelectionChangeで無理やりCalculateを発行しています。これにより、Excelにかなりの負荷がかかります。動作も不安定なところがありました。遊びとしては楽しいですが、実用性はゼロです。
No.2
- 回答日時:
こんばんは!
VBAになりますが、一例です。
↓のコードをシートモジュールにしてください。
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim myRng As Range
Set myRng = Range("A1:A2")
If Intersect(Target, myRng) Is Nothing Or Target.Count > 1 Then Exit Sub
myRng.Interior.ColorIndex = 28
Target.Interior.ColorIndex = 6
End Sub
※ 対象範囲を広げたい場合、仮にA1~A10セルの範囲で同じ操作をしたい場合は
>Set myRng = Range("A1:A2")
を
>Set myRng = Range("A1:A10")
のように変更してください。m(_ _)m
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
-
プロが教えるわが家の防犯対策術!
ホームセキュリティのプロが、家庭の防犯対策を真剣に考える 2組のご夫婦へ実際の防犯対策術をご紹介!どうすれば家と家族を守れるのかを教えます!
-
【VBA】アクティブセルだけ背景色を変えたい
Excel(エクセル)
-
エクセルで選んだセルの枠に自動的につく色を設定したい。
Windows 95・98
-
アクティブなセルを色つき表示させる
Excel(エクセル)
-
4
セルを示す四角のカーソル色の変更は可能ですか?
Excel(エクセル)
-
5
エクセル、アクティブセルの行に色ではなく枠太線を付けたいです。
Excel(エクセル)
-
6
エクセル:マクロ「Application.CutCopyMode = False」って?
Excel(エクセル)
-
7
EXCEL VBAで全選択範囲の解除
Excel(エクセル)
-
8
エクセルのポインターの色を変えたい
Excel(エクセル)
-
9
エクセルVBAで、条件に一致するセルへ移動
Excel(エクセル)
-
10
エクセルのカーソル位置表示色について
Excel(エクセル)
-
11
エクセル ボタンを押すとセルの色が変わるようにしたい
Excel(エクセル)
-
12
ユーザーフォームを表示中にシートの操作をさせるには
Excel(エクセル)
-
13
VBAでエクセルシートを更新(リフレッシュ)する方法を教えて下さい。
Excel(エクセル)
-
14
エクセルVBA 指定のセル背景色を点滅させたい
Excel(エクセル)
-
15
値を入力後、自動的にアクティブセルが移動するマクロ
Excel(エクセル)
-
16
Excelでセルを選択したら行と列に色がつくなんていう方法?
Excel(エクセル)
-
17
エクセルで検索して、ヒットセルをハイライトさせる
その他(パソコン・スマホ・電化製品)
-
18
【Excel VBA】ネットワーク上の共有フォルダにあるExcelを開く
Excel(エクセル)
-
19
エクセルでカーソルのある行を色付けして表示するには
Excel(エクセル)
-
20
Exel VBA 別ブックから該当データを検索し、必要なデータを取得する方法について
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
人気Q&Aランキング
-
4
Excelの条件付き書式にて空白セ...
-
5
条件付書式で「=#N/A」に色を付...
-
6
エクセルの枠の中の文字が青文...
-
7
エクセル内で複数の文字(50個ぐ...
-
8
Excel にて条件付き書式の色に...
-
9
Excelについて あるセルに文字...
-
10
エクセルで特定の数字等を表示...
-
11
エクエルで隣のセルの文字が赤...
-
12
エクセルで日付を入力したらカ...
-
13
エクセルで1以上は全て1にするには
-
14
エクセルで数値の文字色が白か...
-
15
エクセルで一定期間が経過した...
-
16
セル結合させてるときの 条件...
-
17
エクセルのメッセージ
-
18
アクティブセルのみ色をつけたい
-
19
エクセル関数/連続した○◎●をカ...
-
20
【エクセル】シフトで○が6個以...
おすすめ情報
公式facebook
公式twitter