[182.xls]



' [mjSumple] のコード
'■■ メッセージをコードで指定して表示する ■■
'
'

Const strDataSheet = "Data"

Dim intEndRow As Integer
Dim intSetRow As Integer

Dim intMsgLen As Integer
Dim strMsgTeigi As String
Dim strMsgIcon As String
Dim strMsgNo As String
Dim strMsgString As String

Sub psMsgShow()
    
Dim strMsg(10) As String
Dim intRet As Integer
    
strMsg(0) = "160001無効な値です"
strMsg(1) = "161002書きこみ禁止エラーです"
strMsg(2) = "322003システムを終了してよろしいですか？"
strMsg(3) = "323004本当によろしいですか？"
strMsg(4) = "484005このセルはロックされています"
strMsg(5) = "485006処理を中止します"
strMsg(6) = "640007処理は成功しました"
strMsg(7) = "641008エラーはありませんでした"
    
    If Sheets("Title").Range("F9") >= 0 And Sheets("Title").Range("F9") < 8 Then
    
        strMsgTeigi = strMsg(Sheets("Title").Range("F9"))
        
        intMsgLen = Len(strMsgTeigi)
        
        strMsgIcon = CInt(Left(strMsgTeigi, 2)) + CInt(Mid(strMsgTeigi, 3, 1))
        strMsgNo = Mid(strMsgTeigi, 4, 3)
        strMsgString = Mid(strMsgTeigi, 7, intMsgLen - 6)
        
        intRet = MsgBox(strMsgString & " (" & strMsgNo & ")", strMsgIcon, "メッセージサンプル")
        
    Else
        intRet = MsgBox("0〜7の範囲で指定して下さい", 16, "エラー")
        
    End If
End Sub