输出只改变1次，太傲娇了。

loyalyq2

无论<自动重算>还是<手动重算>+F9，输出只改变1次，太傲娇了。大神求助啊

模块：
   全局变量： Public i As Integer
   全局函数：
                    Public Function test() As Integer
                       test = i
                    End Function
Sheet:
    输入单元格 B2
    按钮点击事件： Private Sub CmdSetVal_Click()
                                 i = Cells(2, 2).Value
                                MsgBox ("i=" & i)   '显示输入值
                          End Sub

    输出单元格 B4：   =test()

loyalyq2

不能沉，我顶

ww87725244

模块输入：
Public Function test() As Integer
    Application.Volatile
  test = Sheet1.i
End Function
工作表输入：
Public i
Public Sub aa()

i = Cells(2, 2).Value

MsgBox ("i=" & i)

End Sub
因为函数调用的是工作表的i，只有当i有值时，函数所得结果才出现
简言之：只有先点按钮，再按F9刷新才会保持一致