admin 管理员组

文章数量: 1184232


2024年3月27日发(作者：国内的stackoverflow)

Excel VBA自定义function函数作为公共变量功能调用的方法

Public Qyh As Integer

Public Qym1 As String

Sub ggBl1() '公共变量声明和使用

Call QyhQym1(Qyh, Qym1)

Call t1

Call t2

'Call confunction

End Sub

Function QyhQym1(Qyh, Qym1)

Qyh = InputBox("企业号") ‘键入企业编号

y = Year(Now) ‘得当年的年份值

' y

m = Month(Now) ‘得当月的月份值

m1 = m – 1 ‘得上个月的月份值

' m1

ym1 = "/" & y & "-" & m1

Qym1 = Qyh & ym1

' Qym1

End Function

Sub t1()

' Qym1

a1 = Qym1 & "t1"

a1

End Sub

Sub t2()

a2 = Qym1 & "t2"

Cells(6, 1) = a2

a2

Cells(6, 2) = Qym1

Range("b6")

End Sub


本文标签： 变量 功能 调用 作为

版权声明：本文标题：Excel VBA自定义function函数作为公共变量功能调用的方法 内容由网友自发贡献，该文观点仅代表作者本人， 转载请联系作者并注明出处：http://www.roclinux.cn/b/1711501730a597222.html， 本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌抄袭侵权/违法违规的内容，一经查实，本站将立刻删除。