【VBA】右から数えて3文字目に"/"が含まれていたら右から5文字を削除するマクロを実装したい

Question

こんにちは。
現在VBAの学習をしているものです。
現在、下記のような機能を実装しようとしております。

##実現したいこと

右から数えて3文字目に"/"が含まれていたら右から5文字を削除するマクロを実装したい

具体的には

のような状態のときに

・A9に入っているセルについては「09/19」の部分を削除
・A10に入っているセルについては処置を何もしない

ということを「日付を削除」ボタンにマクロを組み実現させようとしていますがうまくいきません。
Right関数などを使用しても、条件分岐が存在しているためそのまま適用してはうまくいかないです。

ご助言頂けると嬉しいです。どうぞよろしくお願いいたします。

Answer 1

文字列操作関数の組み合わせで実現できます。

Sub hoge()
    Dim MOJI
    MOJI = "あああ09/19"
    If Left(Right(MOJI, 3), 1) = "/" Then '右から3文字目の1文字
        MOJI = Left(MOJI, InStrRev(MOJI, "/") - 3) 
    End If
    Debug.Print MOJI
End Sub

Comments

[ypk]

ありがとうございます！！！
無事に私が実現したいことを実現することができました！！！
また機会があればよろしくお願いします。