[已解决]请问这样写错在哪里(VBA)请高手帮忙看一下

hytsky

请问这样写错在哪里
For i = 3 To 38
If Me.Controls("textbox" & i).Value = "" Then
   Me.Controls("textbox" & i).Value = 0
End If
Next
该怎么改请高手帮忙看一下

最佳答案

月排行榜 / 总排行榜

mxg825

2011-12-7 20:15

For i = 3 To 38
If Me.Controls("textbox" & i).TEXT = "" Then '或 If LEN(Me.Controls("textbox" & i).TEXT )= 0 Then
   Me.Controls("textbox" & i).Value = 0
End If
Next

跳转到最佳答案楼层

菜鸟锐

错在你不该这样写，具体怎么写，要等高手来帮忙指点。我学习一下。

mxg825

For i = 3 To 38
If Me.Controls("textbox" & i).TEXT = "" Then '或 If LEN(Me.Controls("textbox" & i).TEXT )= 0 Then
   Me.Controls("textbox" & i).Value = 0
End If
Next

hytsky

谢谢,我知道我的错在哪里了,原来是我多算了一个``应该是TO 37

hytsky

mxg825 发表于 2011-12-7 20:15
For i = 3 To 38
If Me.Controls("textbox" & i).TEXT = "" Then '或 If LEN(Me.Controls("textbox" & i). ...

谢谢,我知道我的错在哪里了,原来是我多算了一个``应该是TO 37

zjdh

If Me.Controls("textbox" & i).Value = "" Then
   Me.Controls("textbox" & i).Value = 0
End If

If Me.Controls("textbox" & i).Text = "" Then
   Me.Controls("textbox" & i).Value = 0
End If

If Me.Controls("textbox" & i) = "" Then
   Me.Controls("textbox" & i)= 0
End If

If Me.Controls("textbox" & i).Value = "" Then
   Me.Controls("textbox" & i).Text = 0
End If
.............................多种组合

都可以啦！

菜鸟锐

顶膜礼拜啊！！！！都是高手

hytsky

zjdh 发表于 2011-12-7 20:37
If Me.Controls("textbox" & i).Value = "" Then
   Me.Controls("textbox" & i).Value = 0
End If

高手,在帮我看下这个,当我在下拉组合框选择菜名时前面的都查不出,只有选择最后一个才能查得出来,帮看下段码错在哪,谢谢,地址http://www.excelpx.com/forum.php?mod=viewthread&tid=211700&extra=

hytsky

mxg825 发表于 2011-12-7 20:15
For i = 3 To 38
If Me.Controls("textbox" & i).TEXT = "" Then '或 If LEN(Me.Controls("textbox" & i). ...

高手,在帮我看下这个,当我在下拉组合框选择菜名时前面的都查不出,只有选择最后一个才能查得出来,帮看下段码错在哪,谢谢,地址http://www.excelpx.com/forum.php?mod=viewthread&tid=211700&extra=