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


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