在VB中按钮的Click事件

我在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

任何一个可以帮我请。

--------------解决方案-------------

Nimmy

我的职位是不是回答您的主要问题:)如果你看看Ken的和Cody的评论,你会自动实现答案是什么作为;)

我不由当我看到你的代码,你的发言,你是一个新手发表评论。 我还记得我的日子,我在学习编码和像这样的论坛居然帮我提高我的编码技能。 所以,你可以认为这是一个回报:-D

1)你的情况这是确定您已经作为整数变暗 ,但是当你正在处理这对于例如32768行更大的行会发生什么。 它是安全的,只要在VBA的Excel工作时变暗

2)。选择是错误的一个主要原因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是的,快乐编码;)

希德

分类:VB6 时间:2015-03-15 人气:0
本文关键词: VB6,Excel VBA中
分享到:

相关文章

Copyright (C) 55228885.com, All Rights Reserved.

55228885 版权所有 京ICP备15002868号

processed in 0.754 (s). 10 q(s)