Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


9980 / 76734 ←次へ | 前へ→

【72309】Re:複雑でよくわかりません
お礼  カタツムリ  - 12/7/11(水) 10:58 -

引用なし
パスワード
   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 さん:
>▼カタツムリ さん:
>>一度、確認させていただきます。
>確認結果はどうだったでしょうか。
>コードを取得できれば、あとは用無しですか?
9 hits

【72250】複雑でよくわかりません カタツムリ 12/7/2(月) 17:59 質問
【72251】Re:複雑でよくわかりません rabbit 12/7/2(月) 19:29 発言
【72252】Re:複雑でよくわかりません rabbit 12/7/3(火) 1:12 発言
【72253】Re:複雑でよくわかりません カタツムリ 12/7/3(火) 10:08 発言
【72280】Re:複雑でよくわかりません rabbit 12/7/7(土) 20:58 発言
【72292】Re:複雑でよくわかりません ジェントルマン 12/7/9(月) 15:41 発言
【72304】Re:複雑でよくわかりません rabbit 12/7/10(火) 21:48 発言
【72392】Re:複雑でよくわかりません ジェントルマン 12/7/30(月) 16:53 発言
【72309】Re:複雑でよくわかりません カタツムリ 12/7/11(水) 10:58 お礼

9980 / 76734 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free