我是一名初级程序员（没有经验），正在为我现在正在做的工作学习 Visual Basic。我读了一天左右，终于决定开始制作所需的程序了！
但是，我遇到了一些问题。
现在我有两个子程序。第一个子例程让用户输入他们有多少个数据对，以便我可以创建一个表供他们填写。这样他们的数据就位于正确的位置，供我稍后引用。
输入完数据后，他们按下一个按钮来启动另一个子例程，该子例程将对他们输入的数字进行一些计算。我的问题是我需要一个变量来说明它们必须将多少数据对转移到第二个例程。
在继续之前，这是迄今为止我的代码！ （您必须在窗口中向下滚动）我还应该注意第二个子例程位于单独的模块中。
Option Explicit
Public Counter As Long
Sub TableCreation1()
ActiveSheet.Shapes.Range(Array("Button 5")).Select
Selection.Delete
Counter = InputBox("How many pairs of data do you have? ")
Range("A1") = "Time (days)"
Range("B1") = "CFL (measured)"
Range("A1:B1").Font.Bold = True
Columns("A:B").EntireColumn.EntireColumn.AutoFit
Range("A1").Select
ActiveCell.Range("A1:B" & Counter + 1).Select
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
With Selection.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.Weight = xlThin
End With
With Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.Weight = xlThin
End With
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.Weight = xlThin
End With
With Selection.Borders(xlEdgeRight)
.LineStyle = xlContinuous
.Weight = xlThin
End With
With Selection.Borders(xlInsideVertical)
.LineStyle = xlContinuous
.Weight = xlThin
End With
With Selection.Borders(xlInsideHorizontal)
.LineStyle = xlContinuous
.Weight = xlThin
End With
Dim btn As Button
Dim rng As Range
With Worksheets("Sheet1")
Set rng = .Range("A" & Counter + 2)
Set btn = .Buttons.Add(rng.Left, rng.Top, rng.Width, rng.Height)
With btn
.Caption = "Click this button to begin calculations"
.AutoSize = True
End With
End With
End Sub
Option Explicit
Dim IntermediateVariable As Long
Public Counter As Long
Sub FindCFLGuess()
IntermediateVariable = Worksheets("Sheet1").Range("B:B").Cells.SpecialCells(xlCellTypeConstants).Count
Counter = IntermediateVariable - 1
End Sub
为什么 Counter 的值没有传递到第二个子例程？现在我有一个解决方法，可以计算 B 列中填写的单元格数量，从而得到数字。然而，这使得我无法将 B 列中的任何空间用于我想要使用的工作表的其余部分。
有人可以帮忙吗？我认为“公共”会使它成为工作簿级别的变量？每当我让第二个子显示计数器的值时，它就会显示为零。
抱歉，如果我的代码混乱/效率低下。我还在学习。 :)
在您的代码中您声明Public Counter As Long两次。可能发生的情况是，您的每个Sub区块正在变得不同Counter多变的。如果删除第二个，它们应该共享相同的变量。
另外，您只需要列出Option Explicit每个模块一次。现在我看到您指定这些是单独的模块，您做得很好。
EDIT:试图阐明更多。
将其视为一个分层，每个“范围”都是该层可以访问的内容。每一层都可以访问自己和所有父层。这是一个简化的可视化：
( program
( module
( sub )
)
)
在子例程中引用该变量，因此程序开始向上查找。当然假设你已经设置了Option Explicit这意味着变量必须手动定义，并且永远不会自动定义。
您想要拥有的是类似以下内容的内容。其中变量的范围是全局的，以便可以从同时运行的其他模块访问它。
( program
[global variable]
( module1
( sub )
)
( module2 )
)
本文内容由网友自发贡献，版权归原作者所有，本站不承担相应法律责任。如您发现有涉嫌抄袭侵权的内容，请联系:hwhale#tublm.com(使用前将#替换为@)
