函数之间传递参数

pepsi7777

各位老师好：
如何将红色的变量参数直接传递到  Function 参数(A)？不是通过在SUB测试中给A提前赋值的方式，可以（）中赋值吗？ 感谢


Sub 测试()
Dim a As String
Call 参数(a = "A1")
End Sub

Function 参数(a)
Range(s) = 1
End Function

liulang0808

Sub 测试()
Dim a As String
a = "A1"
Call 参数(a)
End Sub

Function 参数(a)
Range(s) = 1
End Function

三分醉，七分醒

看一下，是不是这个效果

pepsi7777

liulang0808 发表于 2023-4-11 11:48
Sub 测试()
Dim a As String
a = "A1"

感谢 liulang0808 老师

pepsi7777

三分醉，七分醒 发表于 2023-4-11 12:56
看一下，是不是这个效果

感谢 三分醉，七分醒 老师