2015-04-30 85 views
-1

我想让我的程序运行2个工作簿和3个工作表。为我验证一些数字。编译错误:无效的限定符

Sub Validate_Old_Data() 

Dim DBLbrow As Double 
Dim DBLAbrow As Double 
Dim DBLBbrow As Double 
Dim STRname As String 
Dim INTcc As Integer 
Dim CopyRange As Range 

DBLbrow = ActiveSheet.Cells(Rows.Count, "B").End(xlUp).Row 

Do While BDLbrow > 5 

STRname = Range("B" & DBLbrow).Value 
INTcc = Range("C" & DBLbrow).Value 

Workbooks("Z:\Centralized Charges\Centralized Charges 2015\Forecast and Actuals\P3\Headcount Templates\P3 Centralized Charges Headcount Tracker (vs. 2015 Budget).xlsx").Activate 

Worksheets(INTcc).Activate 

DBLAbrow = ActiveSheet.Cells(Rows.Count, "B").End(xlUp).Row 

    Do While DBLAbrow > 8 

     If Range("B" & DBLAbrow).Value = STRname Then 

      CopyRange = Range(DBLAbrow).Row.Copy 

      Workbooks("Z:\Centralized Charges\Centralized Charges 2015\Forecast and Actuals\P3\Headcount Templates\Charges Headcount Tracker (vs. 2015 Budget).xlsm").activatae 

      Worksheets(INTcc).activatae 

      DBLBbrow = ActiveSheet.Cells(Rows.Count, "B").End(xlUp).Row 

      If Range("B" & DBLBbrow).Value = STRname Then 

       Range(DBLbrow).Value = CopyRange 

      Else 

       DBLBbrow = DBLBbrow - 1 

      End If 

      Loop 

     Else 
      DBLAbrow = DBLAbrow - 1 


     End If 

     Loop 

BDLbrow = BDLbrow - 1 

End Sub 

但我正在一个无效预选赛错误,有人可以解释为什么?

+0

你可以多说一点你想用这段代码做什么吗?也许缩小到一个更小的块。 –

+0

哪条线停在? – Sam

+0

它停在第一行......我从来没有遇到过这个问题。此代码的目的是循环遍历列表,在电子表格B中找到相应的值,然后将所有数据返回给电子表格A。 –

回答

1

编译和运行时错误总是伴随突出显示问题出在哪里。这足以尝试运行的程序,看看编译器将选择对你来说,在incorrect qualifier

enter image description here

Rows,不。

只是为了给这个可怜的答案增加一些有用的“直观”信息,以便将来得到类似问题的帮助。在开发可以有(叹气)数千名通常被分为两种类型中的错误(我会坚持这个例子VBA):

  • 编译错误:则表示“Excel不明白你'说'。 例如,您使用不存在的属性; Excel不明白你的意思与并拒绝开始。因此,代码甚至不会开始运行,并且您将看到一个白色窗口(可能时)突出显示“Excel无法理解的单词”,以便您可以修复它。
  • 运行时错误:这意味着“Excel确实明白你在说什么,但有时候他不喜欢它。”例如,你写k = 2/0;你并没有使用Excel的“难以理解的东西”,但是当它需要执行除法的时候,它的堆栈溢出并导致运行时错误。在这种情况下,您会看到一个灰色的窗口,上面有一个标有调试的方便标签:您按下它,黄色的代码行将被高亮显示,这就是错误所在的行。

对于我用来解释这个问题的“技术娴熟”的语言,我感到抱歉,但我更希望你能够直截了当。如果您想深入了解这个重要主题,请阅读this

+1

耶,手绘红色箭头! –

+0

@ Mat'sMug哈哈,喝咖啡瘾的手。 –

相关问题