Excel/VBA: Truyền một ô đơn lẻ làm đối số

Question

Tôi muốn làm cho hàm VBA tùy chỉnh của tôi chỉ chấp nhận đối số một ô. các Rightway để làm việc đó là gì:

• qua myCell as Cell

hay:

• qua myRange as Range và nhận được tế bào trái phía trên theo mặc định (như thế nào?)?

Answer 1

Nếu bạn chọn nhiều hơn một ô chức năng sẽ thoát:

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

Giả sử người dùng của bạn sẽ bước vào một loạt với nhiều cột và các hàng, bạn có thể làm việc kiểm tra sau để thoát khỏi chức năng nếu đó là những gì bạn có nghĩa là trong câu hỏi ...

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 

nên được

numColum = myCell.Columns.Count 

numRow = myCell.Rows.Count