Excel/VBA：傳遞單個單元格作爲參數

Question

我想使自定義VBA函數只接受單元格參數。什麼是這樣做的華匯：

• 通myCell as Cell

或：

• 通myRange as Range並獲得左上細胞在默認情況下（如何？）？

Answer 1

如果選擇了一個小區多個功能將退出：

Function AcceptOneCell(rng As Range) 

If (rng.Cells.Count > 1) Then 
    AcceptOneCell = "Only allow 1 cell" 
    Exit Function 
End If 

    ' your code here 

End Function 

Answer 2

假設你的用戶將輸入與多列和行的範圍內，你可以做以下檢查以退出功能，如果這是你的問題是什麼意思？

Function myFunction(ByRef myCell as Range) as SomeDataType_of_your_choice 
Dim numRow as Long, numCol as Long 

numRow = myCell.Columns.Count 
numCol = myCell.Rows.Count 

If numRow > 1 or numCol > 1 Then 
    MsgBox "Only one cell is accepted" 
    Exit Function  
Else 
    '-- do other stuff you want to do here 
End If 
End Function 

Answer 3

topLeftValue = myRange.Cells(1, 1).Value 

Answer 4

numRow = myCell.Columns.Count 

numCol = myCell.Rows.Count 

應

numColum = myCell.Columns.Count 

numRow = myCell.Rows.Count