質問編集履歴
1
プログラムに誤記がありました
test
CHANGED
|
File without changes
|
test
CHANGED
|
@@ -90,14 +90,16 @@
|
|
|
90
90
|
|
|
91
91
|
objWs.Cells(2, 18).Value = Now()
|
|
92
92
|
|
|
93
|
-
For j = 5 To max
|
|
93
|
+
For j = 5 To max
|
|
94
94
|
If objWs.Cells(j, 9).Value <> "" And objWs.Cells(j, 6).Value <> "対象外" Then
|
|
95
95
|
objWs.Cells(j, 13).Value = "1"
|
|
96
96
|
objWs.Cells(j, 14).Value = "2"
|
|
97
97
|
objWs.Cells(j, 15).Value = "=IF(E" & j & "=L" & j & ",TRUE,FALSE)"
|
|
98
98
|
objWs.Cells(j, 16).Value = "=IF(MID(M" & j & ",11,15)=E" & j & ",TRUE,FALSE)"
|
|
99
99
|
objWs.Cells(j, 17).Value = "=IF(MID(M" & j & ",27,1)=F" & j & ",TRUE,FALSE)"
|
|
100
|
+
End If
|
|
100
101
|
Next j
|
|
102
|
+
|
|
101
103
|
objWb.Save
|
|
102
104
|
Set objWs = Nothing
|
|
103
105
|
Set objWb = Nothing
|