オブジェクトが必要です。のコンパイルエラーが出ます。

Question

結合したセルの内容を自動で変更させるプログラムですが、エラーメッセージが短すぎて何が言いたいのか伝わりません。
助けてください。

Private Sub Worksheet_Change(ByVal Target As Range)

    Application.EnableEvents = False
    If Target.Column = 6 Then

        If Not Target.MergeArea(1, 1).Value = "" Then

            If Not InStr(Target.MergeArea(1, 1).Value, "pb t=") = 0 Then

                'Dim v As String
                v = Target.MergeArea(1, 1).Value
                'Dim i As Long
                i = InStr(v, "pb t=")
                Target.MergeArea(1, 1).Value = v.Substring(0, i) & "プラスターボード t=" & v.Substring(i + 5)
            End If
        End If
    End If
    Application.EnableEvents = True
End Sub

Answer 1

「オブジェクトが見つかりません」と言われているのはSubstringだと思います。
変数vにTargetのセル内容の文字列を格納し、そこから部分抽出した文字列を取得したいのだと思いますが、VBAでは文字列型.Substringという書き方はしません。（VB.NETの文字列抽出とは異なります。）

VBAでの文字列抽出

'v.Substring(0, i)
MID(v, 1, i)

---

もうひとつアドバイスです。
そもそも変数vを文字列型で宣言していれば、コンパイル時点でエラーとなっていたはずです。

Dim v As String

まずは変数を宣言する癖をつけましょう。

ソースの先頭に

Option Explicit

を記述して、宣言していない変数は使用できないようにすることもお勧めします。

Comments

[otftrough]

なんか以前、Substringが使えたような記憶があるのでやってみましたが、MID()でできるならそれでいいか。