得到一個「編譯錯誤：預期：語句結束」試圖從功能

我已編碼的發現，具有第三行中的空單元格的第一列函數返回一個計算值的時候，但我想不出如何返回該整數。得到一個「編譯錯誤：預期：語句結束」試圖從功能

Function FindEmptyColumn() 
' Find the first empty column to paste data into 

    ThisWorkbook.Activate 
    Worksheets("Black Cam Raw Data").Activate 
     Dim dCounter As Double 
    dCounter = 1 
    Dim iColumn As Integer 
    Do Until Cells(3, dCounter) = "" 
     iColumn = dCounter 
     dCounter = dCounter + 1 
    Loop 
    iColumn = iColumn + 1 
Return iColumn 

End Function 

Sub CMM_93Cam(ByVal wbTempName As Workbook) 
' 
' CMM_93Cam Macro 
' This subroutine imports data from the CMM Report for a 195C93 Cam flatness measurement into this file. 
' 
    iColumn = FindEmptyColumn()

基本上，當我輸入「Return iColumn」語句時出現錯誤。我如何獲得函數來返回我存儲在iColumn中的值？

來源

2014-01-24 ilarson007

從函數的返回值，你應該使用功能名稱：寫'FindEmptyColumn = iColumn'代替'返回iColumn' –

VBA中Return語句不返回函數的結果。改用函數名稱。

相反的：

Return iColumn

用途：

FindEmptyColumn = iColumn

在VBA中，Return語句只連用GoSub。

MSDN：GoSub...Return Statement

來源

2014-01-24 20:20:11 mwolfe02

謝謝！這工作完美。 – ilarson007

得到一個「編譯錯誤：預期：語句結束」試圖從功能

回答

相關問題