选择Ran共享文件错误超链接Vba excel

Question

我开发了一个宏，该宏使用动作函数更新图形中每小时计数器的信息。它通过Worksheet_Change来感知用户的行为，并转到数据表并使用相同的信息过滤所有单元格。

使用Worksheet_SelectionChange更新单元格B1（验证数据），从而消除数据中的重复项，然后用户可以选择他们想要的选项。运行宏时没有任何问题，但是当更新函数过滤超过550个值时。一个MsgBox抛出以下消息：该指数正在

所有值之前，它不与字符串用户选择无关紧要。这是一个DATA表的例子。

下一块代码更新的下拉列表：

Function Get_CluName() 
    Dim Dic_Clu As Object 
    Dim i As Long 
    Dim Col As Integer 

    Set Dic_Clu = CreateObject("Scripting.Dictionary") 

    Call InitSht 

    If ShtData.Range("B1").Value = "LTE Cell Group" Then 
     Worksheets("GRAPH").Range("A1").Value = "Select Cluster:" 
     Col = 2 
    ElseIf ShtData.Range("D1").Value = "Cell Name" Then 
     Worksheets("GRAPH").Range("A1").Value = "Select Cell:" 
     Col = 4 
    End If 

    For i = 2 To ShtData.Range("A1048576").End(xlUp).Row 
     If Len(ShtData.Cells(i, Col).Value) > 0 Then 
      Dic_Clu(Trim(ShtData.Cells(i, Col).Value)) = Trim(ShtData.Cells(i, Col).Value) 
     End If 
    Next 

    If Dic_Clu.Count > 0 Then 
     Worksheets("GRAPH").Range("Z1").Resize(Dic_Clu.Count) = Application.Transpose(Dic_Clu.keys) 
     Worksheets("SUMMARY LTE KPI").Range("Z1").Resize(Dic_Clu.Count) = Application.Transpose(Dic_Clu.keys) 

     With Worksheets("GRAPH").Range("B1").Validation 
      .Delete 
      .Add Type:=xlValidateList, Formula1:="=" & Worksheets("GRAPH").Range("Z1").Resize(Dic_Clu.Count).Address 
     End With 

     With Worksheets("SUMMARY LTE KPI").Range("B1").Validation 
      .Delete 
      .Add Type:=xlValidateList, Formula1:="=" & Worksheets("SUMMARY LTE KPI").Range("Z1").Resize(Dic_Clu.Count).Address 
     End With 
    End If 
End Function 

**是否有任何选项来调整大小的下拉列表中的记忆？ **，因为它似乎溢出了名单。

Answer 1

问题解决！

这是由于一些变量被声明为Integer变成了一些函数，重新声明为long是解决方案。