從另一個子程序引用一個語句

Question

我有將代碼分解為按順序運行的多個部分的代碼。 我從一個消息框開始，詢問“您是否輸入8月份的數據” 。 如果答案是“是”，它將運行一系列代碼，但是由於我的代碼太長，我無法在8月份繼續執行該系列代碼。 我正在嘗試使代碼更改無縫化。 當新代碼開始時，我可以再次詢問“您輸入數據的月份”，但如果可能的話，我不想這樣做。 理想情況下，我希望新代碼的第一行是“如果您對代碼中的第一個問題回答是，然后繼續”。

這是我調用所有代碼的地方：

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

在代碼模塊頂部的第一個過程之前，輸入以下行：

Private Augbox As Long

現在，請確保不要在過程中使用任何Dim語句再次定義Augbox 。

而已。

現在， Augbox的值將在模塊的所有過程之間共享。