質問編集履歴

1

追記を入力したため。

2017/06/21 13:52

投稿

退会済みユーザー
test CHANGED
File without changes
test CHANGED
@@ -40,14 +40,68 @@
40
40
 
41
41
 
42
42
 
43
- 元の表に列を追加後、色がついているセルの横に〇をつけて、その有無により抽出後のセルに色を付ける方法。
43
+ <1>元の表に列を追加後、色がついているセルの横に〇をつけて、その有無により抽出後のセルに色を付ける方法。
44
44
 
45
45
 
46
46
 
47
- イベントマクロ?を使う方法。
47
+ <2>イベントマクロ?を使う方法。
48
48
 
49
49
 
50
50
 
51
51
  詳しい方がおられましたら、最もシンプルな方法をご教授ください。
52
52
 
53
53
  マクロは初心者レベルであれば、おそらく理解できます。
54
+
55
+
56
+
57
+
58
+
59
+
60
+
61
+
62
+
63
+
64
+
65
+ 追記:<1>の方法で上手くいくと思われましたが、問題が発生いたしました。
66
+
67
+ (※参考:https://soudan1.biglobe.ne.jp/qa1003087.html のベストアンサーの方法)
68
+
69
+
70
+
71
+ エクセルのブック全体で以下のVBAが機能しており、条件付書式で一度ハイライトされたものをセル移動すると全て色が消えてしまいます。もともと選択した行を見やすくするために、VBAを使用して選択した行全体に色をつけました。
72
+
73
+
74
+
75
+ Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
76
+
77
+ Dim highlight As Integer
78
+
79
+ Dim r As Range
80
+
81
+ Dim fc As FormatCondition
82
+
83
+
84
+
85
+ highlight = 34
86
+
87
+
88
+
89
+ Cells.FormatConditions.Delete
90
+
91
+ Set r = Rows(Target.Row)
92
+
93
+ Set fc = r.FormatConditions.Add( _
94
+
95
+ Type:=xlExpression, Formula1:="=0=0")
96
+
97
+
98
+
99
+ fc.Interior.ColorIndex = highlight
100
+
101
+ End Sub
102
+
103
+
104
+
105
+
106
+
107
+ <1>の方法で今回のシートだけ上記のマクロが対象外にできるのであれば、やり方を教えて頂きたいです。