VBA公共变量调用

【2】VBA公共变量调用Function法     

1/czm ok!

Public Qyh As Integer  '此句必须有

Public Qym1 As String

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

  Call QyhQym1(Qyh, Qym1)

  Call t1

  Call t2

  'Call confunction

End Sub

Function QyhQym1(Qyh, Qym1)

 Qyh = InputBox("企业号")

 y = Year(Now)

  'Debug.Print y

 m = Month(Now)

 m1 = m - 1

    'Debug.Print m1

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

 Qym1 = Qyh & ym1

  'Debug.Print Qym1

     'Range("B2") = hym1

     'Qym1 = "1a/2019-05"

    'Cells(100, 1) = Qyh  '将企业号，存入当前工作表的单元格中

End Function

Sub t1()

 'Debug.Print Qym1

 a1 = Qym1 & "t1"

 Debug.Print a1

End Sub

Sub t2()

 a2 = Qym1 & "t2"

 Cells(6, 1) = a2

  Debug.Print a2

 Cells(6, 2) = Qym1

  Debug.Print Range("b6")

End Sub

----

Public Qyh As Integer

Public Qym1 As String

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

  'Call QyhQym1(Qyh, Qym1)

  Call QyhQym2(Qyh, Qym1)

  Call t1

  Call t2

  'Call confunction

End Sub

Sub QyhQym2(Qyh, Qym1)

 Qyh = InputBox("企业号")

 y = Year(Now)

  'Debug.Print y

 m = Month(Now)

 m1 = m - 1

    'Debug.Print m1

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

 Qym1 = Qyh & ym1

End Sub

Function QyhQym1(Qyh, Qym1)

 Qyh = InputBox("企业号")

 y = Year(Now)

  'Debug.Print y

 m = Month(Now)

 m1 = m - 1

    'Debug.Print m1

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

 Qym1 = Qyh & ym1

  'Debug.Print Qym1

     'Range("B2") = hym1

     'Qym1 = "1a/2019-05"

    'Cells(100, 1) = Qyh  '将企业号，存入当前工作表的单元格中

End Function

Sub t1()

 'Debug.Print Qym1

 a1 = Qym1 & "t1"

 Debug.Print a1

End Sub

Sub t2()

 a2 = Qym1 & "t2"

 Cells(6, 1) = a2

  Debug.Print a2

 Cells(6, 2) = Qym1

  Debug.Print Range("b6")

End Sub

【】