visual basic for Excel应用程序

我已经在模块1中编写了一段代码。我得到输出的正确值。但是，当我在模块2中调用它时，输出值是零。如果有人能帮助我，我将不胜感激

单元1：

Sub MuAndVuCalculations() 
BeamFlangeWidth = Sheets("MuVu").Range("D7") 
BeamFlangeThickness = Sheets("MuVu").Range("D8") 
BeamWebHeight = Sheets("MuVu").Range("D9") 
M3 = (0.5 * BeamFlangeWidth * BeamWebHeight * BeamWebHeight ^ 2) 
End Sub

单元2：

Sub Main() 
Call MuAndVuCalculations 
M = 5 Debug.Print M3 + M 
End Sub 

在模块2中，我无法在即时窗口中看到M3，M3+5的输出为5

您必须将M3声明为公共，才能从其他功能访问。 在模块1中的代码上方添加第一行：

Public M3 As Long 'add this line

Sub MuAndVuCalculations()
BeamFlangeWidth = Sheets("Tabelle1").Range("D7")
BeamFlangeThickness = Sheets("Tabelle1").Range("D8")
BeamWebHeight = Sheets("Tabelle1").Range("D9")
M3 = (0.5 * BeamFlangeWidth * BeamWebHeight * BeamWebHeight ^ 2)
End Sub

---

请出示你的密码？根据您提供的信息很难找出问题所在，因此代码有点太长。能告诉我你的电子邮件地址吗？我附上文件并将其发送给您。仅发布相关代码模块1:Sub muandvu计算BeamFlangeWidth=SheetsMuVu.RangeD7 BeamFlangeThickness=SheetsMuVu.RangeD8 BeamWebHeight=SheetsMuVu.RangeD9 M3=0.5*BeamFlangeWidth*BeamWebHeight*BeamWebHeight^2结束子模块2:Sub Main调用muandvu计算M=5调试。打印模块2中的M3+M终端子模块我在即时窗口中看不到M3，M3+5的输出为5。@AlexP您能找到问题吗？非常感谢Alex先生。P