0

私は別の投稿から書かれたこの関数を持っていますが、エンドユーザーがパニックにならないようにメッセージを言葉で表現する必要があるという問題が発生しています。私はコーディングしていますか？

これが理にかなっていることを願っています...ありがとう。

Function GetErrMsg(ErNo As Long) As String
    Select Case ErNo
        Case 91
            GetErrMsg = "This is a long message that needs to be broken into sections so it can be read normally in the programming box"
    End Select
End Function
4

1 に答える 1

5

アンダースコアを使用して、_次のようにコードの行を分割できます。

Function GetErrMsg(ErNo As Long) As String
    Select Case ErNo
        Case 91
           GetErrMsg = "This is a long message that needs to be broken into " & _ 
                "sections so it can be read normally in the programming box"
    End Select
End Function

ノート

文字列を分割するときは、文字列を"

次に、上記の例のように&、アンダースコアの前に連結するアンパサンドを追加します。_

これは、文字列が終了したことをVBAに通知しますが、次の行で文字列に結合されます。

于 2012-07-16T19:25:23.117 に答える