Question

我有一个专栏（W：W），显示年份有效。我正在编写简单的VBA代码来识别哪些客户端行需要＆＃34;检查＆＃34;因为他们的生效日期大于或等于我们目前正在审查的年份。我不想每年都要编辑VBA代码，所以我已经插入了一个输入框，我希望稍后在IF语句中使用它来标记需要＆＃34;检查＆＃34; 。我不断得到应用程序定义或对象定义的错误＆＃34;。不确定我做错了什么。

'Ask question for year of testing
Worksheets("Plan_Data").Activate
Dim TestingYear
TestingYear = Application.InputBox(prompt:="Which plan year end are you looking at (year only?)")

Range("C2").Select
ActiveCell.Formula = "=IF(W2>= & TestingYear &,""CHECK"","""")"

Answer 1

尝试将其更改为

ActiveCell.Formula = "=IF(W2>= " & TestingYear & ",""CHECK"","""")"

IF代码中使用的输入框值

1 个答案: