VBA类型不匹配在不同的工作簿中相同的功能

我在解决类型不匹配时遇到问题，当在不同的工作簿中运行相同的代码时。让我们说练习册1是原始练习册，练习册2是新练习册。VBA类型不匹配在不同的工作簿中相同的功能

这两个工作簿1 & 2具有相同的代码（下面）Listbox_Refresh子调用GetAccountRef()函数。该代码在工作簿1中运行良好，但在工作簿2中存在类型不匹配，我无法弄清楚原因。

我检查了两个工作簿中的VarTypes的GetAccountRef()，它们是不同的。

对于工作簿1

这导致8204（的VBArray +变型）如预期：
```
Debug.Print VarType(GetAccountRef()) 
```
这导致8（字符串）如预期：
```
Debug.Print VarType(GetAccountRef(0)) 
```

For Workbook 2

这导致0（空）：
```
Debug.Print VarType(GetAccountRef()) 
```
这导致错误类型不匹配：
```
Debug.Print VarType(GetAccountRef(0)) 
```

我试图运行的函数是：

Function GetAccountRef() As Variant 
On Error Resume Next 

Dim Cell As Range 
Dim Row_I As Range 
Set Row_I = Sheet5.Range("9:9") '<- ERROR: This range does not contain "Date" 

Dim Counter As Integer 
Counter = 0 
Dim Date_Ref() As Variant 


For Each Cell In Row_I 
    If Cell = "Date" Then 

     ReDim Preserve Date_Ref(Counter) 
     Date_Ref(Counter) = Cell.Address 
     GetAccountRef = Date_Ref 

     Counter = Counter + 1 
    End If 
Next Cell 


On Error GoTo 0 
End Function

和我想要使用此功能在For循环，像这样：

Dim ListedBnk As Variant 
    For Each ListedBnk In GetAccountRef() 
     ListedBnk = Replace(ListedBnk, "9", "7") 
     .ComboBox1.AddItem Range(ListedBnk) 
     .ComboBox2.AddItem Range(ListedBnk) 

    Next ListedBnk

谢谢！

来源

2017-07-26 AnthonyT

取下上的错误继续下一步 - 在那里，它是如何失败？ –

由于GetAccountRef的值最终从Row_I范围绘制，我怀疑该范围在Workbook2中为空。无论如何，我同意上面的评论，应该删除错误陷印，并且应该逐步浏览代码，以确切地查看它失败的位置。 –

@TonyM是的，这的确是这样，希望我早点看到您的评论！ – AnthonyT

您的函数有一些错误。

Function GetAccountRef() As Variant 
On Error Resume Next 

Dim Cell As Range 
Dim Row_I As Range 
Set Row_I = Sheet5.Range("9:9") 'TFSA Tracker ONLY 

Dim Counter As Integer 
Counter = 0 
Dim Date_Ref() As Variant 


For Each Cell In Row_I 
    If Cell = "Date" Then 

     ReDim Preserve Date_Ref(Counter) 
     Date_Ref(Counter) = Cell.Address 
     Counter = Counter + 1 
    End If 
Next Cell 

     GetAccountRef = Date_Ref '<~~ At this moved. 
On Error GoTo 0 
End Function

和你的表模块

Sub test() 
    Dim ListedBnk As Variant 
    Dim myArray As Variant 

    myArray = GetAccountRef 

    With ActiveSheet 
     .ComboBox1.Clear 
     .ComboBox2.Clear 
    'For Each ListedBnk In GetAccountRef() 
    For Each ListedBnk In myArray 
     ListedBnk = Replace(ListedBnk, "9", "7") 
     .ComboBox1.AddItem Sheet5.Range(ListedBnk) 
     .ComboBox2.AddItem Sheet5.Range(ListedBnk) 

    Next ListedBnk 
    End With 
End Sub

来源

2017-07-26 04:26:06

将GetAccountRef = Date_Ref移至该函数的末尾，修复了VarType问题并将VarType（GetAccountRef（））识别为8204，但无法将VarType（GetAccountRef（0））识别为数组 - 它显示为0. 表单模块由于GetAccountRef（）为空，所以更改给出了循环错误。感谢您的评论，我发现我的错误！将它张贴在下面..这很愚蠢.. – AnthonyT

发现我的错误，功能会在不包含它的范围内识别。感谢所有发布评论/解决方案的人！

改进的方法是编写动态标识符，以便在添加行/列时调整范围。

功能：

Function GetAccountRef() As Variant 
On Error Resume Next 

Dim Cell As Range 
Dim Row_I As Range 
Set Row_I = Sheet5.Range(**"10:10"**) '<- previous range("9:9") did not contain the *identifier "Date"*, it was in row 10. 

Dim Counter As Integer 
Counter = 0 
Dim Date_Ref() As Variant 


For Each Cell In Row_I 
    If Cell = "Date" Then 

     ReDim Preserve Date_Ref(Counter) 
     Date_Ref(Counter) = Cell.Address 
     GetAccountRef = Date_Ref 

     Counter = Counter + 1 

    End If 
Next Cell 



On Error GoTo 0 
End Function

表子：

With Activesheet 
     Dim ListedBnk As Variant 
     For Each ListedBnk In GetAccountRef() 
      ListedBnk = Range(Replace(ListedBnk, "10", "8")) '<- Also needs to refer to **Row 10** 
      .ComboBox1.AddItem ListedBnk 
      .ComboBox2.AddItem ListedBnk 

     Next ListedBnk 
    End With

来源

2017-07-26 06:12:00 AnthonyT

VBA类型不匹配在不同的工作簿中相同的功能

回答

相关问题