Question

在第一个子项中获得的值不会延续到下一个子项中，我该如何去做？

这只是代码的一小部分，还有许多其他变量和其他用户输入，这些不允许我组合子代码。

Private Sub lbEY_AfterUpdate()

Dim sd As Date
Dim ed As Date
Dim fromd As String
Dim tod As String

sm = Month(DateValue("01-" & lbSM & "-1900"))
em = Month(DateValue("01-" & lbEM & "-1900"))

sd = DateSerial(lbSY, sm, 1)
ed = DateSerial(lbEY, em, 1)

    fromd = Format(sd, "mmmm yyyy")
    tod = Format(ed, "mmmm yyyy")

End Sub

Private Sub CommandButton2_Click()

Range("A1").Value = "For dates " & fromd & " to " & tod & ":"
'This prints out "For dates  to :"

End Sub

例如fromd是2019年1月，tod是2019年3月。理想的结果是将范围A1中的值设置为“对于2019年1月至2019年3月的日期：” 预先感谢！

Answer 1

在过程外部声明变量非常简单，如本例所示：

Dim a As Integer

Sub test1()
 a = a + 1
End Sub

Sub test2()
a = a + 1
End Sub

Sub test3()
a = Range("A1").Value
End Sub

在将值4放入单元格test3()中之后，我启动了A1，然后运行了test1()两次，并运行了test2()一次。然后，在test1()中放置一个断点，并在立即窗口中输入：

? a

回复为7。

如何使用子b中子a中的值

1 个答案: