[已解决]vba使用代码一次清除textbox数据时有几个无法清除

hyfire2008

大家好：
    刚在做一个vba一次性清除很多个textbox中的数值时，其中总是有4个textbox在第一次单机按钮时无法清除，要在第二次才能清除掉，仔细检查过那4个单元格与其相同的textbox是一样的，请各位高手帮忙瞧瞧，感谢！（密码：123和456）

mr.zip (320.15 KB, 下载次数: 6)

2015-9-6 21:41 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

gufengaoyue

2015-9-6 22:39

清除的代码改成这样吧。
主要问题是因为先清空了后面的，再清空前面的，清空前面时，又因为事件的原因，导致后面的就变成0.
所以应该先清除前面再清除后面的，这样就好了。

1. Private Sub CommandButton1_Click()
   
2.     Dim ctl As Object, arr, a&, b&, bb&
   
3.     ReDim arr(1 To Me.Controls.Count, 1 To 3)
   
4.     For Each ctl In Me.Controls
   
5.         If TypeName(ctl) = "TextBox" Then
   
6.             a = a + 1
   
7.             If ctl.Name Like "*XS_*" Or ctl.Name Like "*JE_*" Then
   
8.                 arr(a, 2) = ctl.Name
   
9.             ElseIf ctl.Name Like "*LR_*" Then
   
10.                 arr(a, 3) = ctl.Name
    
11.             Else
    
12.                 arr(a, 1) = ctl.Name
    
13.             End If
    
14.         End If
    
15.     Next
    
16.     For bb = 1 To 3
    
17.         For b = 1 To UBound(arr)
    
18.             If arr(b, bb) <> "" Then Controls(arr(b, bb)).Text = ""
    
19.         Next
    
20.     Next
    
21. End Sub

复制代码

跳转到最佳答案楼层

gufengaoyue

清除的代码改成这样吧。
主要问题是因为先清空了后面的，再清空前面的，清空前面时，又因为事件的原因，导致后面的就变成0.
所以应该先清除前面再清除后面的，这样就好了。

1. Private Sub CommandButton1_Click()
   
2.     Dim ctl As Object, arr, a&, b&, bb&
   
3.     ReDim arr(1 To Me.Controls.Count, 1 To 3)
   
4.     For Each ctl In Me.Controls
   
5.         If TypeName(ctl) = "TextBox" Then
   
6.             a = a + 1
   
7.             If ctl.Name Like "*XS_*" Or ctl.Name Like "*JE_*" Then
   
8.                 arr(a, 2) = ctl.Name
   
9.             ElseIf ctl.Name Like "*LR_*" Then
   
10.                 arr(a, 3) = ctl.Name
    
11.             Else
    
12.                 arr(a, 1) = ctl.Name
    
13.             End If
    
14.         End If
    
15.     Next
    
16.     For bb = 1 To 3
    
17.         For b = 1 To UBound(arr)
    
18.             If arr(b, bb) <> "" Then Controls(arr(b, bb)).Text = ""
    
19.         Next
    
20.     Next
    
21. End Sub

复制代码

hyfire2008

gufengaoyue 发表于 2015-9-6 22:39
清除的代码改成这样吧。
主要问题是因为先清空了后面的，再清空前面的，清空前面时，又因为事件的原因，导 ...

非常感谢！