VBA全局变量

我有我的电子表格VBA宏处理用户窗体下面的代码：VBA全局变量

Option Explicit 
Public saved_vocab As String 
Public saved_num As String 
Public saved_def As String 
Public saved_ex As String 

Private Sub Save_Click() 
    Dim low As Integer 
    Dim high As Integer 
    Dim selected As Integer 

    low = 1 
    high = Cells(1, 1).End(xlDown).Row 
    Range(Cells(low, 1), Cells(high, 1)).Find(what:=vocab.Text, After:=ActiveCell, LookIn:=xlFormulas, _ 
      LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _ 
      MatchCase:=False, SearchFormat:=False).Activate 
    selected = ActiveCell.Row 

    saved_vocb = Cells(selected, 1).Text 
    saved_num = Cells(selected, 2).Text 
    saved_def = Cells(selected, 3).Text 
    saved_ex = Cells(selected, 4).Text 
    Cells(selected, 1) = vocab.Text 
    Cells(selected, 2) = num.Text 
    Cells(selected, 3) = definition.Text 
    Cells(selected, 4) = example.Text 
End Sub 

Private Sub undo_Click() 
    Cells(selected, 1) = saved_vocab 
    Cells(selected, 2) = saved_num 
    Cells(selected, 3) = saved_def 
    Cells(selected, 4) = saved_ex 
End Sub

我想要做的是正确地保存信息的保存_ ???字符串值，以便在我决定单击“撤消”按钮执行第二个函数时可以正确访问它。但是，当我执行第二个功能时，以前保存在保存的信息_ ???变量可能不在我们的处理变量作用域的b/c中。什么是最简单的方法来完成我想要做的事情？预先感谢您的建议。

来源

2009-07-23 stanigator

我想你想要把全局变量在一个“正常”的模块，而不是板模块。

来源

2009-07-23 19:58:10

一眼就可以看出变量selected在Save_Click()子例程中声明，它在undo_Click()子例程中使用。

变量selected需要声明的子程序外面与其他全局变量，如saved_vocab，saved_num等

Option Explicit 
Public saved_vocab As String 
Public saved_num As String 
Public saved_def As String 
Public saved_ex As String 
Public selected As Integer 'declaration added

然后删除现有declarion为selected内Save_Click()

沿

来源

2009-07-23 20:05:48

VBA全局变量

回答

相关问题