错误日志，如果数量不中的其他工作表

Question

我有一些麻烦，写我的VBA宏它做以下的范围：

在小区C3我将进入一个成本中心，在D3单元格将有输入成本类型编号。

现在我想要做的是显示一个错误信息，当C3中的值以3开头，D3中的值（总是7个数字）不在AG2单元格中列出的数字的范围内时，弹出一条错误消息：AG23另一个工作表称为元数据。

到目前为止我的代码如下：

'Do While... 

    '... 

    If Left(Cells(CLine, 3).Value, 1) = "3" Then 

     If Cells(CLine, 5).Value = blank Then 
      If SLine = 1 Then 
       ErrLog = ErrLog & "Costcenter in Line" & " " & Dline 
       SLine = SLine + 1 
      Else 
       ErrLog = ErrLog & ", " & Dline 
      End If 
     End If 

    End If 

    Dline = Dline + 10 
    CLine = CLine + 1 

Loop 

If SLine > 1 Then 
    ErrLog = ErrLog & " requires WBS Element." & vbCrLf 
End If 

现在，如果我扩大这样If Left(Cells(CLine, 3).Value, 1) = "3" and Left(Cells(CLine, 4).Value, 7) <> "1000000" Then它工作正常，我的错误消息的第一行会只拿出当在单元格中输入超过100万的其他值D3。

但是，只要我开始使用诸如< 1000000和> 2000000之类的东西（为了在使用1000000和2000000之间的数字时不会收到消息），我会在出错后收到错误消息。

有人可以帮助我，告诉我如何在简单的方法中在代码的第一行中包含“之间”，以便在输入10000000和2000000之间的数字时不会出错？

Answer 1

首先，您可以定义要检查你的范围内。如果单元格D3是这样的数值内：

Dim Rng  As Range 

' set-up check range (modify Sheet name and Range to your needs) 
Set Rng = Sheets("metadata").Range("AG2:AG23") 

其次，当小区C3开始与“3”显示错误消息，细胞D3值超出该范围使用下面的行：

If Left(Cells(CLine, 3).Value, 1) = "3" And _ 
    (Cells(CLine, 4).Value < WorksheetFunction.Min(Rng) Or _ 
    Cells(CLine, 4).Value > WorksheetFunction.Max(Rng)) Then 

第三，以检查是否某个小区是空白（或空）改变您的线路：

If Cells(CLine, 5).Value = blank Then 

要：

If IsEmpty(Cells(CLine, 5)) Then