PATHの末尾に「￥」を付ける自作関数

「￥」を付ける自作関数

Twitterで、マクロにエラーが出た原因が最後に「￥」を付けていないのが原因でエラーだったというツイートを見ました。
その返信で、自作関数で作っている！という方がいたので、自分でも作ってみました。

自作関数コード

Sub パス設定()

    Dim myPath As String
    
    myPath = SetPath(ThisWorkbook.Path)
    
    MsgBox myPath

End Sub


Function SetPath(ByRef beforPath As String) As String
    
    If Len(beforPath) <> 0 Then
        If Right(beforPath, 1) = "￥" Or Right(beforPath, 1) = "/" Then
            SetPath = beforPath
        Else
            SetPath = beforPath & "￥"
        End If
    End If

End Function

★注　「￥」はブログ上全角となっております。コピペした後は、半角「￥」へ訂正が必要です！！

変数myPath にThisWorkbookのPathを取得する。
Right関数を使って、末尾「￥」or「/」でなければ「￥」をつける。

この自作関数をPath設定時に記述に追加すれば、エラーに悩む時間が減る！！
これをアドインで展開すれば楽になるのだろうか？？

ではでは、この辺で(^^)/~~~