获取在子（数据透视表）之间传递的变量

我能够添加我的代码。将变量传递给我的其他子对象似乎应该很简单：/

Sub Var_Names()
Dim sum_New_Orders As String
Dim sum_Revenue As String
Dim sum_Unfilled_orders As String
Call Name_Variables
MsgBox sum_New_Orders
MsgBox sum_Revenue
MsgBox sum_Unfilled_orders
End Sub
Sub Name_Variables()
Let sum_New_Orders = Range("J1")
Let sum_Revenue = Range("L1")
Let sum_Unfilled_orders = Range("P1")
End Sub


在此之后，该数据将被馈送到创建透视表的另一个子目录中：

activeSheet.PivotTables("PivotTable3").AddDataField activeSheet.PivotTables( _
"PivotTable3").PivotFields("SUM(New Orders)_11-14-2019"),_
"Count of SUM(New Orders)_11-14-2019",xlCount
With activeSheet.PivotTables("PivotTable3").PivotFields( _
"Count of SUM(New Orders)_11-14-2019")
.Caption = "Sum of SUM(New Orders)_11-14-2019"
.Function = xlSum
End With


更改为：

activeSheet.PivotTables("PivotTable3").AddDataField activeSheet.PivotTables( _
"PivotTable3").PivotFields(sum_New_Orders),_
"Count of "&sum_New_Orders,xlCount
With activeSheet.PivotTables("PivotTable3").PivotFields( _
"Count of "& sum_New_Orders)
.Caption = "Sum of "&sum_New_Orders
.Function = xlSum
End With


我确实看到了这篇文章
Excel VBA pass variable to pivot table parameter
这就是我想要的，但不完全是。

我有一张工作表，并用它做成了4个数据透视表。

。单元格J1，L1和N1每天都在变化。

我想将它们设置为变量

• J1等于“ Rev”


• L1等于“新”


• N1等于“损失”

（我无法使用“ =“来发布它以无效代码将其阻止，并且编辑器无法在我的手机上工作）

在代码的开头，我希望一个子程序根据单元格地址设置这些变量。

（我的第一期）

该变量没有在其他子程序之间传递。.是否可以像使用“ public”而不是“ dim”作为“ string”那样简单地进行固定？
我正在对此进行测试，但无法让它在其他子项的消息框中显示该变量。

我的下一个问题，可能不是问题...我想将变量插入到数据透视表字段选择中。我认为这似乎很简单-我只是将变量放置在当前字段名称的位置。我不明白为什么在设置变量时在单元名称之前和之后使用Asterix。

对格式感到抱歉。我在用手机而不是工作电脑。我只是想把星期一淘汰出去，使我的工作更轻松一些。我需要获取代码，我大概可以在星期一完成