Excel vba - 如何在 function 范圍內使用變量？

Question

如何將其設為 function 以便我可以將“B38”作為變量傳遞？ 我嘗試將“startCell”放在 function 范圍內，但它失敗了，我不清楚要完成這項工作需要什么......

TIA

Set startCell = Range("B38")
For i = 0 To 6
    hourVal = Worksheets("Expense & Hours").Range("b38").Offset(0, i).Value
    dateVal = Worksheets("Expense & Hours").Range("b38").Offset(2, i).Value
    MsgBox "Current: " & hourVal & "  " & dateVal
Next i

Answer 1

你的意思是這樣嗎？

Dim addr As String

addr = "B38"

Set startCell = Worksheets("Expense & Hours").Range(addr)
For i = 0 To 6
    hourVal = startCell.Offset(0, i).Value
    dateVal = startCell.Offset(2, i).Value
    MsgBox "Current: " & hourVal & "  " & dateVal
Next i