在另一个子例程中引用一个语句

我有代码，我分解成多个运行顺序。 我从一个消息框开始，询问“您是否input八月份的数据” 。 如果答案是肯定的，它会运行一系列的代码，但是现在我的代码太长了，我无法在八月份继续这一系列的代码。 我试图使代码无缝的变化。 当新的代码开始时，我可以再次问“你input数据的月份是什么”，但如果可能的话，我不想。 理想情况下，我希望我的新代码的第一行是“如果您对代码1中的最初问题回答”是“，则继续”。

这里是我所说的所有代码：

Sub PreScrub() Call Tabs Call AUGSUMMCEND Call AugNUR End Sub 

第一个代码只是格式化，所以我会跳过这个。 这是我第二个代码的开始，我在那里提示本月：

 Augbox = MsgBox("Are you entering Prescrub for August?", vbYesNo + vbQuestion) If Augbox = vbYes Then For i = 1 To recvarSumm.Rows.Count For j = 1 To recvarSumm.Rows.Count If recvarSumm.Cells(i, j).Value = "Aetna" Then recvarSummvalues.Cells(i, j).Range("A1:C1").Copy wsYTDSUMM.Columns(1).Find("Aetna").Offset(9, 1).PasteSpecial End If Next j Next i 

代码从那里进行了很长时间。 然后，我想要我的AugNur代码的开始部分说：“如果AUGSUMMCEND的Augbox是'是'，那么继续'。

那可能吗？

Answer 1

在代码模块的顶部，在第一个过程之前，input以下行：

 Private Augbox As Long 

现在确保你没有再次用程序中的任何Dim语句来定义Augbox 。

而已。

Augbox的值现在将在模块的所有程序之间共享。