[[20190323084456]]　『〇列に指定の文字列が入力されたときの処理（VBA)』（S）　ページの最後に飛ぶ

『〇列に指定の文字列が入力されたときの処理（VBA)』（S）

こんにちは。

例
C列に「A」が入力されたらA列（同じ行）の文字列に＋１する

     「B」が入力されたらA列（同じ行）の文字列に＋２する
ようなことをしたいのですが、どうすればよいのでしょうか。

ただ、＋１をする文字列には英語が含まれていますが、必ず下二文字は数字なのでそこに＋したいです。

C列には3種（A,B,C）ぐらいしか入力しません。

宜しくお願い致します。

＜使用 Excel：Excel2016、使用 OS：Windows10 ＞

A列を、書き換えてしまうのでしょうか。
それとも、結果を他の列に、表示するのでしょうか。

（マナ） 2019/03/23(土) 09:28

ありがようございます。

そのままA列に書き換えです。

宜しくお願い致します。
（S） 2019/03/23(土) 09:59

書き換えると、元に戻せませんが、問題ありませんか

 Sub test()
    Dim s As String
    Dim n As Long

    s = "ABCD36"
    n = CLng(Right(s, 2)) + 3
    MsgBox Left(s, Len(s) - 2) & Format(n, "00")

 End Sub

（マナ） 2019/03/23(土) 10:10

コメント返信：