
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も見ています
-
痔になりやすい生活習慣とは?
忙しく働く人を襲うおしりトラブル!
-
アクティブなセルを色つき表示させる
Excel(エクセル)
-
エクセルで選んだセルの枠に自動的につく色を設定したい。
Windows 95・98
-
【VBA】アクティブセルだけ背景色を変えたい
Excel(エクセル)
-
4
セルを示す四角のカーソル色の変更は可能ですか?
Excel(エクセル)
-
5
エクセル、アクティブセルの行に色ではなく枠太線を付けたいです。
Excel(エクセル)
-
6
アクティブセルの時、セルの色を変える方法(行)
Excel(エクセル)
-
7
ダブルクリックでセルに色をつける方法
Excel(エクセル)
-
8
エクセルで検索して、ヒットセルをハイライトさせる
その他(パソコン・スマホ・電化製品)
-
9
Enterキーでマクロを起動さす。
その他(ソフトウェア)
-
10
EXCEL VBA で特定の文字に色をつけるマクロを書きたいのですが
Excel(エクセル)
-
11
メッセージボックスに表示する文字を大きくしたい
Excel(エクセル)
-
12
MsgBoxについて
Visual Basic(VBA)
-
13
エクセルVBAで、条件に一致するセルへ移動
Excel(エクセル)
-
14
EXCEL あるセルに数字が入力されれば既存マクロ実行させたい
Excel(エクセル)
-
15
チェックボックスの箱のサイズとフォントサイズは変更できるの?
Excel(エクセル)
-
16
EXCEL VBAで全選択範囲の解除
Excel(エクセル)
-
17
(Excel)あるセルに文字を入力しただけで、同じブック内のほかのワークシートにも、同じ文字が自動的に入るようにするには?
Excel(エクセル)
-
18
エクセルのエラーメッセージ「400」って?
Visual Basic(VBA)
-
19
エクセルのIF関数で、文字が入力されていたならば~
Excel(エクセル)
-
20
Excel VBA あるセルでENTERを押すと特定のセルへ移動したい
Excel(エクセル)
関連するQ&A
- 1 エクセル-1つのセルで16文字を越えるとセルに色をつけたい
- 2 エクセル、アクティブセルの行に色ではなく枠太線を付けたいです。
- 3 エクセルについて エクセルについて、検索値が2つあり(2つのセル) 別のシートにある2つのセルが一致
- 4 アクティブセルとそのセルに隣接する右隣の2つのセルをコピーしてシート2に貼り付ける
- 5 条件付き書式で色をつけたセルを判断して他のセルの色をつけることは可能でしょうか?どの様な方法がありま
- 6 2つの行を比較して、同一セルのみ色をつける方法
- 7 EXCEL セルを選別し該当セルのみ色をつけたい
- 8 アクティブセルを交点と考え、縦と横の列に色をつけるには?
- 9 excel、A1セルとB1セルの差でセルに色を付けるには・・・・。
- 10 特定の文字を含むセルとそのセルを含む4行下のセルまで同じ色をつけたい。
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
人気Q&Aランキング
-
4
エクセルで文字入力してEnterキ...
-
5
エクセルで分から時間に変換し...
-
6
エクセルで特定のセルを表示の...
-
7
エクセルでENTERを押すと数式が...
-
8
エクセルで入力した日付が今日...
-
9
【EXCEL】入力すると、指定した...
-
10
日付が過ぎたら列ごと色を変え...
-
11
Excel2013でセルの書式が勝手に...
-
12
Excel 文字の前にスペースを入...
-
13
セルを結合したA4とA5の条件付...
-
14
【エクセル】数値にスラッシュ...
-
15
Excelで「20080707」を『2007/0...
-
16
Excel にて条件付き書式の色に...
-
17
日付入力→指定のセルの色を塗り...
-
18
EXCELの関数でセルに色を設定
-
19
エクセルVBAでOutlookメールの...
-
20
【Excel】条件付き書式で 0では...
おすすめ情報