主题：[求助]代码

请论坛中的专家帮忙检测一下代码。

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:123.xls

《等次录取》按钮代码

 额你想说明什么？

你测试一下窗体 中《等次录取》按钮代码，提示错误。

帮忙修改为感！！！

 不清楚你的逻辑，不好改，对vba也不太熟悉

 

Line2:
Dim a2, b2, c2, b3, c3, n, h As Integer
a2 = TextBox4.Text
If TextBox5.Text > "" Then b2 = TextBox5.Text Else b2 = 0
If TextBox6.Text > "" Then c2 = TextBox6.Text Else c2 = 0
If TextBox7.Text = "" Or TextBox8.Text = "" Then GoTo Line4
n = TextBox7.Value
h = TextBox8.Value
For i = h To h + a2 - 1
Cells(i, n).Value = "一等奖"
Next
b3 = h + a2
For i2 = b3 To h + a2 + b2 - 1
Cells(i2, n).Value = "二等奖"
Next
c3 = h + a2 + b2
For i3 = c3 To h + a2 + b2 + c2 - 1
Cells(i3, n).Value = "三等奖"
Next
GoTo LastLine

 你自己根据调试提示改一下就好，很方便的。