Как я могу использовать значения, найденные в подпункте а в подпункте b

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 года, а tod - март 2019 года. Идеальным результатом будет значение в диапазоне A1:2019: «Спасибо заранее!

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

Я запустил test3(), после помещения значения 4 в ячейку A1, затем я запускаю test1() два раза и test2() один раз. Затем я поставил точку останова в test1() и в ближайшем окне ввел:

? a

Ответ был 7.