回答編集履歴
1
内容読解間違いによるコード間違いの修正
test
CHANGED
@@ -76,23 +76,35 @@
|
|
76
76
|
|
77
77
|
|
78
78
|
|
79
|
-
|
79
|
+
' 文字色変更
|
80
80
|
|
81
|
-
|
81
|
+
With Rows(Target.Row & ":" & Target.Row)
|
82
82
|
|
83
|
-
'With Selection.Interior
|
84
|
-
|
85
|
-
'.Pattern = 0
|
86
|
-
|
87
|
-
'.PatternColorIndex = xlAutomatic
|
88
|
-
|
89
|
-
.Color = ColorNumber
|
83
|
+
.Font.Color = ColorNumber
|
90
|
-
|
91
|
-
'.TintAndShade = 0
|
92
|
-
|
93
|
-
'.PatternTintAndShade = 0
|
94
84
|
|
95
85
|
End With
|
86
|
+
|
87
|
+
|
88
|
+
|
89
|
+
' セル背景色変更
|
90
|
+
|
91
|
+
'With Rows(Target.Row & ":" & Target.Row).Interior
|
92
|
+
|
93
|
+
'冗長 'Rows(Target.Row & ":" & Target.Row).Select
|
94
|
+
|
95
|
+
'冗長 'With Selection.Interior
|
96
|
+
|
97
|
+
' 不要'.Pattern = 0
|
98
|
+
|
99
|
+
' 不要'.PatternColorIndex = xlAutomatic
|
100
|
+
|
101
|
+
'.Color = ColorNumber
|
102
|
+
|
103
|
+
' 不要'.TintAndShade = 0
|
104
|
+
|
105
|
+
' 不要'.PatternTintAndShade = 0
|
106
|
+
|
107
|
+
'End With
|
96
108
|
|
97
109
|
|
98
110
|
|