Question

This question already has answers here:

VB6 pass by value and pass by reference (2 answers)

Closed 2 years ago.

我一直在尝试各种方式,以找到最后一段路段,并将这一数字退回到一条路边,没有结果。

这里,我有这部法律。

Sub StartHere()
    Dim oSheet As Worksheet
    Set oSheet = WorkSheets(1)
    ProcessData(oSheet)
End Sub

Sub ProcessData(ByVal wkst As Worksheet)
    Dim rng As Range
    Dim lastRow As Long

     set range
    Set rng = wkst.Range("L:S")  Range that i want to process data on

     get the last row (in Long datatype)
    lastRow = CLng(getLastRowInRange(rng))

End Sub

Function getLastRowInRange(ByRef rng As Range)
    getLastRowInRange = rng.Cells.Find(What:="*", After:=[A1], SearchOrder:=xlByRows,_ SearchDirection:=xlPrevious).Row
End Function

我正在把米斯马特语打成型号。

getLastRowInRange = rng.Cells.Find(What:="*", After:=[A1], SearchOrder:=xlByRows,_ SearchDirection:=xlPrevious).Row

Any clues, guys?

Answer 1

ProcessData(oSheet)

删除括号。

否则,你就通过<代码>的违约财产的价值。 Sheet Object, which it doesn t have. 你们应当获得“目标不支持这种财产或方法”。

在这样做之后,改变职能要求:

getLastRowInRange = rng.Cells.Find(What:="*", After:=rng.Cells(1), SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row

<代码>After必须属于搜索范围。页: 1

最后,确保你在<代码>Find 回归代码>上处理案件。 (目前你没有打上<代码>。) http://www.un.org。

友情链接