1

私はさまざまなスレッドを調べ、検証に関するいくつかのヒントを得ました。しかし、それでも私のコードはエラーをスローしています。ばかげたエラーかもしれませんが、見つけられませんでした。

        Set val1range = projInfo.Range(projInfo.Cells(2, 23), projInfo.Cells(m, 23))     

        With Cells(rowN, 3).Validation
                .Delete
                .Add Type:=xlValidateList, Formula1:="=" & val1range

                .IgnoreBlank = True
                .InCellDropdown = True
                .InputTitle = ""
                .ErrorTitle = ""
                .InputMessage = ""
                .ErrorMessage = ""
                .ShowInput = True
                .ShowError = True
        End With

.Add Application-defined or object-defined error という行で 1004 エラーが発生します。

正しい式を教えてください。

4

1 に答える 1