こんにちは。Instr関数を使って"/"までの分と/以降は＋１するソースの一部です。
ですが、これが昨日から考えても機能せず。なにがおかしいのでしょうか？？

Public Sub Enter()
    col = ActiveCell.Column
    row = ActiveCell.row
    SNprev = Cells(row - 1, col).Value
If (row > 2) Then
    If Len(SNprev) = 19 And Val(SNprev) > 0 Then
        strSN1 = Left(SNprev, InStr(1, SNprev, "/") - 1)
        strSN2 = Right(SNprev, 2)
        strSN2 = CStr(CInt(strSN2) + 1)
        strSN2 = Application.Text(strSN2, "000")
        If Len(strSN2) > 4 Then End
        SNNew = strSN1 & "/" & strSN2
        Cells(row + 1, col) = SNNew

出来ればおかしい部分を指摘して下さい。お願いします。

目的の動作がわかればなにか指摘できるでしょうが。
見たところ、シンタックスエラーも無いようなので、ひとまずおかしい部分はありません。

> 目的の動作がわかればなにか指摘できるでしょうが。

AA123456BB00000/000という番号があり、左から"/"の前までを抽出し、
右から000を抽出後、＋１した値をセルに書き込むのです。
また、上のセルから取り出したいので、Cells(row-1,col).Valueを使っています。

ですが、機能しないのです。

> AA123456BB00000/000という番号があり、左から"/"の前までを抽出し、
> 右から000を抽出後、＋１した値をセルに書き込むのです。
> また、上のセルから取り出したいので、Cells(row-1,col).Valueを使っています。
>
> ですが、機能しないのです。

変数SNprevに"AA123456BB00000/000"が入っているとすると
Val(SNprev)は0になりますが…。

返信ありがとうございます。正直、助かります。

> 変数SNprevに"AA123456BB00000/000"が入っているとすると
> Val(SNprev)は0になりますが…。

Val(SNprev)=0にしたほうが良いということですか？

> > 変数SNprevに"AA123456BB00000/000"が入っているとすると
> > Val(SNprev)は0になりますが…。
>
> Val(SNprev)=0にしたほうが良いということですか？

If Len(SNprev) = 19 And Val(SNprev) > 0 Then

この条件式が真になることはないのでIF文の中の処理は実行されませんよ、
というおかしい部分のご指摘だと思います。
(Val(SNprev) > 0 の部分をどういう意図で書かれているのか知らないので、
どうなおすべきかまではわかりませんが)

よぬKENさんありがとうございます。
ここがおかしかったんですね。

> この条件式が真になることはないのでIF文の中の処理は実行されませんよ
> というおかしい部分のご指摘だと思います。
では、再チャレンジします。

> (Val(SNprev) > 0 の部分をどういう意図で書かれているのか知らないので、
>  どうなおすべきかまではわかりませんが)

ここは、他の条件があったので足しただけです。あしからず。