Function paix(salary) As Integerh = 2Do While Sheet1.Cells(h, 1) <> ""If salary >= Sheet1.Cells(h, 1) Thenxh = h - 1Exit DoEnd Ifh = h + 1Looppaix = hEnd Function
2 回答
桃花長相依
TA貢獻1860條經驗 獲得超8個贊
函數里不宜直接調用與工作表名稱有關的數據例如：“Sheet1.Cells(h, 1)”，建議把它作為參數傳遞入函數，建議把函數改成如下：
調用的時候可以這樣：=paix(A10,Sheet1!A1:A20)，這樣就與表格名稱無關了。
Function paix(salary As Integer, AR As Range) As Integer
Dim R As Range,h As Integer
h = 2
For Each R In AR.Rows
If R.Cells.Item(1) = "" Then Exit For
If salary >= R.Cells.Item(1) Then
paix = h - 1
Exit Function
Else
h = h + 1
End If
Next
paix = h
End Function
FFIVE
TA貢獻1797條經驗 獲得超6個贊
這個函數代碼沒有問題,可以運行,但不知道這個結果有什么意義. 其中有一句 xh=h-1 但xh都沒有用途.
自定義函數只能在含這個自定義函數的工作簿里運行. 除非把它變成加載宏才可以像excel自帶函數一樣使用.
添加回答
舉報
0/150
提交
取消