Excel 自定义函数不自动计算

zhg5215

Function JZMXZ(x As Double)
Application.Volatile
Dim arr
arr = Sheet8.Range("B6:I306")
Dim i, j As Integer
If Sheet1.OptionButton1.Value = True Then
JZMXZ = 0
Exit Function
ElseIf Sheet1.OptionButton3.Value = True Then
j = 1
ElseIf Sheet1.OptionButton2.Value = True Then
j = 2
End If
Select Case x
Case Is <= 20
i = 1
Case Is >= 50
i = 301
Case Else
i = WorksheetFunction.Match(x, Sheet6.Range("A6:A306"), 0)
End Select
JZMXZ = arr(i, j)
End Function

zhg5215

每次改变 单选框的时候  函数结果不会自动变

zhg5215

附件

zhg5215

表格附件

砂海

1.) JZMXZ()自动计算正常
2.) R列 , THSD() 函数不存在
3.) X列 , sr() 函数不存在