小编Mat*_*ias的帖子

在我的Main程序中,我想编写一个快速的if语句,用于检查用户是否进行了有效输入(用户从数据列表中选择项目数,参见附件截图).为此,我正在检查项目编号是否不属于项目列表.如果是,则显示错误消息; 如果没有,则调用许多其他程序.

出于某种原因,虽然我在运行它时遇到错误2015,这意味着if语句始终为true,即使在正确的用户条目上也是如此.有人可以帮我理解错误吗？

• 项目编号输入是一个名为"IdSelect"的命名单元格,位于名为"Invoice"的工作表上
• 检查此输入的数据位于名为"输入"的工作表上
• 数据存储在B列中,称为"ProjectList"

下面的代码(注:我曾尝试将其粘贴5次,但格式仍然无法工作这段时间由于某种原因 - 任何想法,可能是代码格式正确对不起,凌乱的显示;如果有人能告诉我吗？.那个问题我可能会非常感激!)

Sub Main()
    'Turn off screen updating
    Application.ScreenUpdating = False
    'Define variable for currently active cell to reactivate it afterwards
    Dim OldActiveSheet As Object
    Dim OldActiveCell As Object
    Dim i As Integer
    Dim ProjectList As Range
    Set OldActiveSheet = ActiveSheet
    Set OldActiveCell = ActiveCell
    'If-statement to check whether project number is valid or not
    Worksheets("Invoice").Activate
    'Print to Immediate Window to check value - remove later
    Debug.Print Range("IdSelect").Value
    If IsError(Application.Match(Range("IdSelect").Value, "ProjectList", …