3

多くのマクロを含むコスト シートがあります。マクロの 1 つは、シートの下部に新しい項目を追加することです。追加するアイテムが「カスタム」というテキストで始まり、そのセルを見つけて選択したいというIfコードを入力したいと思います。以下は私が試しているコードですが、型の不一致でデバッグし、Custom = Range("B:B").Value 行を強調表示します。どんな助けでも大歓迎です。

 Dim Custom As String
    Custom = Range("B:B").Value
    If Custom Like "Custom *" Then
    Cells.Find(What:="Custom ", After:=ActiveCell, LookIn:=xlFormulas, _
        LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
        MatchCase:=True, SearchFormat:=False).Activate
    ActiveCell.FormulaR1C1 = ("Test")
    End If
4

1 に答える 1