- 帖子
- 151
- 主題
- 1
- 精華
- 0
- 積分
- 197
- 點名
- 15
- 作業系統
- windwos 7
- 軟體版本
- 64bit
- 閱讀權限
- 20
- 註冊時間
- 2017-5-29
- 最後登錄
- 2024-4-29
|
回復 4# Andy2483
c1公式,d1顯示
Function test(a As Integer, b As Integer)
Evaluate "test1(" & Application.Caller.Offset(0, 1).Address(0, 0) & "," & a & "," & b & ")"
test = ""
End Function
Sub test1(c As Range, a As Integer, b As Integer)
c = a + b
End Sub |
|
發表於 2023-5-24 06:40
| 