条件について

質問

お世話になっております。

他の方の回答を参考に自分なりにアレンジしてみたのですが、
上手く行きません。アドバイスをお願い致します。

'　右から４文字を選択
st = Right$(r.Value, 4)

'　X以外だった場合
If StrConv(st, vbNarrow) Like "[1-9]" Or st = "[A-W]" Or st = "[Y-Z]" Then

'　チョイスする値を右から３文字にする
st = Right$(r.Value, 3)
End If

'　文字から引く
r.Value = Left$(r.Value, Len(r.Value) - Len(st))

右から四番目にXが存在していたら４文字、
それ以外だったら３文字という風に条件を付けたいのですが
Xの存在に関わらず全て４文字引いてしまいます。
やはり最初に４文字を選択しているので３文字に減らすことは
出来ないでしょうか？
宜しくお願い致します。

回答No.1

AKARI0418 · ベストアンサー

If InStr(1, r.Value, "X", vbBinaryCompare) = 4 Then
r.Value = Left$(r.Value, 4)
else
r.Value = Left$(r.Value, 3)
End If

これでよいのでは？
後はうまく修正してください。

InStrは文字列を前から検索します、見つかった文字の位置を返してくれます。
InStrRevは後ろから検索し、前から数えて何文字目にあるかを返してくれます。

Right(String,4)
は
Stringを4文字に編集しているだけです。
したがって、
4文字目を抜き出したいのでしたら、
st = Right$(r.Value, 4)
dim work as string
'stにセットしてしまうと、
'r.Value = Left$(r.Value, Len(r.Value) - Len(st))
'で困ります
work = Right$(st, 1)
となります。

お礼

AKARI0418さんへ

わかりやすい解説で回答有難うございます！
他にもいろいろ応用できそうで助かります。