子，功能或属性错误

我想加载，排序和显示Excel文档中的名称。我不断收到预期的子，功能或财产错误？子，功能或属性错误

Sub load() 'this program purpose is to load , sort and display names from an excel document' 
    Dim names(1 To 5) As String 
    Dim passNum As Integer, i As Integer, temp As String 
    Dim num_names As Long, shift As String 

num_names = 4 ' LOADS NAMES FROM EXCEL FILE' 
For i = 1 To num_names 
    names(i) = Cells(i, 1) 
Next i 
Call shift 
Call display 
End Sub 

Sub sort_1(passNum As Integer, num_names As Long, i As Integer, temp As String)' SORTS NAMES' 
    For passNum = 1 To (num_names - 1) 
    For i = 1 To (num_names - passNum) 
     If names(i) > names(i + 1) Then 
      temp = names(i) 
      names(i) = names(i + 1) 
      names(i + 1) = temp 
     End If 
    Next i 
Next passNum 
End Sub 

Sub display(i As Integer, num_names As Long)'DISPLAYS NAME BACK ON EXCEL FILE In COLUMN 2' 
    For i = 1 To num_names 
    Cells(i, 2) = names(i) 
    Next i 

End Sub

来源

2013-04-25 user2321496

你需要列出所有的名字吗？

尝试......

Sub ListNames() 
Dim N As Name 

For Each N In ThisWorkbook.Names 
    Debug.Print N.RefersTo 
Next N 

End Sub

来源

2013-04-25 20:55:51

你得到这个错误，因为它无法找到Shift程序

Call shift

你也需要通过为子display参数否则你会得到一个“参数不可选“错误。

例如

Call display(1, 1) 
'OR Simply 
display 1,1

来源

2013-04-25 20:57:07

子，功能或属性错误

回答

相关问题