| |
rabbitさん、返信遅くなり申し訳ありません。
マクロ初心者ですので、記載して頂いたものを
自分なりに解釈して自分で作り直していましたら、
遅くなってしましました。
又、会社での業務間で作成しており、大分遅くなってます。
まだ途中なのですが、rabbitさんが記載して頂いた貴重なコードを
参考にしながらなんとか出来そうな気がしてきました。
お忙しい中、返信して頂きありがとうございます。
ここからは自力で頑張ってみます。
Sub ORA()
Dim k As Long
Dim s As String,z As String
For k = 1 To Cells(1, 1).End(xlDown).Row
s=Cells(k,6),Value
z=Cells(k,8),Value
test=Mid(s,34,8)'位置確認用
If Mid(s,34,13)="SP10 ORA-0000"Or Mid(s,34,13)="SP20 ORA-0000"Or _
Mid(s,34,13)="SP30 ORA-0000"Or Mid(s,34,13)="SP40 ORA-0000" Then
u=Mid(s,39,10)
Select Case u
Case "ORA-000060"
If z ="台帳に記載されている為、対処不要"
Else
Rows(k).interior.Colorindex=4
End If
End Select
ElseIf Mid(s,34,10)="ORA-000060" Then
v=Mid(s,34,10)
Select Case v
Case "ORA-000060"
If z ="台帳に記載されている為、対処不要"
Else
Rows(k).interior.Colorindex=4
End If
End Select
ElseIf Mid(s,34,4)="SP10" Or Mid(s,34,4)="SP15"Or Mid(s,34,4)="SP20"_
Or Mid(s,34,4)="SP25" Or Mid(s,34,4)="SP30" Then
o=Mid(s,39,8)
oo=Mid(s,39,9)
Select Case o
Case "ORA-0001","ORA-0002","ORA-0003","ORA-0004","ORA-0005"_
,"ORA-0006","ORA-0007","ORA-0008","ORA-0009","ORA-0010"
If z ="台帳に記載されている為、対処不要"
Else
Rows(k).interior.Colorindex=4
End If
End Select
Select Case o
Case "ORA-00001","ORA-00002","ORA-00003","ORA-00004","ORA-00005"_
,"ORA-00006","ORA-00007","ORA-00008","ORA-00009","ORA-00010"
If z ="台帳に記載されている為、対処不要"
Else
Rows(k).interior.Colorindex=4
End If
Case Else
test2=Right(z,4)'確認用
If Right(z,4)="殿に連絡" Then
Else
Rows(k).interior.Colorindex=4
End If
End Select
ElseIf Mid(s,34,24)="ORA00900:内部エラー・コード,品数:" Or _
Mid(s,34,42)="ORA-00600: internal error code.arguments:"Then
l=Mid(s,39,8)
ll=Mid(s,39,9)
Select Case l
Case "〔4444〕","〔4444〕","〔4444〕","〔4444〕","〔4444〕"_
,"〔4444〕","〔4444〕","〔4444〕","〔4444〕","〔4444〕"
If z ="台帳に記載されている為、対処不要"
Else
Rows(k).interior.Colorindex=4
End If
Case Else
▼rabbit さん：
>▼カタツムリ さん：
>>一度、確認させていただきます。
>確認結果はどうだったでしょうか。
>コードを取得できれば、あとは用無しですか？
|
|
![[未読]](./data/excel/image/read_icon.gif){kind=icon}
