質問編集履歴
1
コードの追加
test
CHANGED
|
File without changes
|
test
CHANGED
|
@@ -68,7 +68,23 @@
|
|
|
68
68
|
|
|
69
69
|
|
|
70
70
|
|
|
71
|
+
Sub test01()
|
|
71
72
|
|
|
73
|
+
Dim cl As Range
|
|
74
|
+
|
|
75
|
+
For Each cl In Range("a1:c6")
|
|
76
|
+
|
|
77
|
+
r = InStr(cl, "eee")
|
|
78
|
+
|
|
79
|
+
If r <> 0 Then
|
|
80
|
+
|
|
81
|
+
cl.Characters(r, 3).Font.Color = vbRed
|
|
82
|
+
|
|
83
|
+
End If
|
|
84
|
+
|
|
85
|
+
Next
|
|
86
|
+
|
|
87
|
+
End Sub
|
|
72
88
|
|
|
73
89
|
###試したこと
|
|
74
90
|
|