vb中的按钮点击事件

Question

我是VB新手。我想在单击第一个按钮时将值存储在数组中，并在单击第二个按钮时显示结果。我成功地将值存储在数组中。但我无法在第二个按钮单击事件中访问相同的数组。

Dim i As Integer
Dim ag(0 To 7000) As String
Dim bg(0 To 7000) As String

Private CommandButton1_Click()
  i = 0

  Sheets("New").Select
  Range("B2").Select

  While Not IsEmpty(ActiveCell)
    ag(i) = ActiveCell.Value
    i = i + 1
    ActiveCell.Offset(1, 0).Select
  Wend

  i = 0

  Sheets("New").Select
  Range("D2").Select

  While Not IsEmpty(ActiveCell)
    bg(i) = ActiveCell.Value
    i = i + 1
    ActiveCell.Offset(1, 0).Select
  Wend
End Sub

Private CommandButton2_Click()
  UserForm1.Hide
End Sub

Private Sub Cell_Click()
End Sub

Private Sub CommandButton1_Click()
End Sub

Private Sub CommandButton2_Click()
End Sub

任何人都可以帮助我。

Answer 1

Nimmy

我的帖子不是为了回答你的主要问题:) 如果你看看 Ken 和 Cody 的评论，那么你会自动意识到答案是什么；）

当我看到你的代码和你的声明时，我忍不住发表评论新手。我记得当我学习编码时，像 SO 这样的论坛实际上帮助我提高了编码技能。因此，您可以将其视为回报：-D

1) 在您的情况下，可以将 i 作为整数变暗，但是当您处理以下行时会发生什么更大，例如 32768 行。在 VBA Excel 中工作时，将 i as long 调暗是安全的。

2) .Select 是使用 VBA 时出现错误的主要原因，更不用说它们会减慢代码速度。相同的代码也可以写成下面给出的代码。我假设第一行和最后一行之间没有空白值。

Dim i As Long
Dim ag(0 To 7000) As String
Dim bg(0 To 7000) As String
Dim ws As Worksheet

Private CommandButton1_Click()
    Set ws = Sheets("New")

    With ws
        For i = 2 To .Range("B" & .Rows.Count).End(xlUp).Row
            ag(i) = .Range("B" & i).Value
        Next
        For i = 2 To .Range("D" & .Rows.Count).End(xlUp).Row
            bg(i) = .Range("D" & i).Value
        Next
    End With
End Sub

HTH，是的，快乐编码；）

Sid