將變量傳遞給子版本

Question

我編寫Test1子版的最後一行時出現錯誤。它說「期待=」。有任何想法嗎？

Sub selectByUsedRows(usedCol As String, selectCol As String) 
n = Range(usedCol).End(xlDown).Row 
Range(selectCol & "1:" & selectCol & n).Select 
End Sub 

Sub Test1() 
Dim a As String, b As String 
a = "A" 
b = "B" 
selectByUsedRows (a, b) 
End Sub 

正確的代碼來自評論，感謝！

Sub selectByUsedRows(usedCol As String, selectCol As String) 
n = Range(usedCol & "1").End(xlDown).Row 
Range(selectCol & "1:" & selectCol & n).Select 
End Sub 

Sub Test1() 
Dim a As String, b As String 
a = "A" 
b = "B" 
selectByUsedRows a, b 
End Sub 

Answer 1

你打電話selectByUsedRows因爲如果你調用一個函數。調用子程序時，不需要括號：

selectByUsedRows a, b