| 查看: 1171 | 回复: 2 | ||
| 当前只显示满足指定条件的回帖，点击这里查看本话题的所有回帖 | ||
[求助]
excel 宏 总是提示无效的next 控制变量
|
||
|
Sub checkareao() Dim colu1 As Integer Dim colu2 As Integer Dim colu3 As Integer For colu1 = 4 To 9 Step 1 For colu2 = 10 To 20 Step 2 For colu3 = 11 To 21 Step 2 For i = 3 To 2667 Step 1 If Sheet2.Cells(i, colu1) = 0 And Sheet2.Cells(i, colu2) > 0 Then Sheet2.Cells(i, colu3) = 0 Else Sheet2.Cells(i, colu3) = Sheet2.Cells(i, colu2) End If Next i Next colu1 Next colu2 Next colu3 End Sub 总是提醒无效的next控制变量引用，为什么啊，请懂的大侠帮忙看看啊，  |
回复此楼» 猜你喜欢
售SCI一区T0P文章，我:8.O.55.1.O54,科目全,可伽急
已经有3人回复
-
售SCI一区T0P文章，我:8O.55.1.O.5.4,科目齐全,可+急
已经有4人回复
-
售SCI一区T0P文章，我:8.O.55.1.O54,科目全,可伽急
已经有4人回复
-
售SCI一区文章，我:8O5.5.1.O5.4,科目全,可伽急
已经有4人回复
-
售SCI-T0P文章，我:8O.5.5.1.O.54,科目齐全,可+急
已经有5人回复
-
售SCI一区文章，我:8.O.55.1.O.54,科目齐全,可伽急
已经有4人回复
-
售SCI文章，我:8O5.5.1.O.54,科目齐全,可+急
已经有4人回复
-
售SCI一区文章，我:8O5.5.1.O5.4,科目全,可伽急
已经有4人回复
-
售SCI一区T0P文章，我:8.O55.1.O.54,科目全,可十急
已经有4人回复
-
售SCI一区T0P文章，我:8.O.55.1.O.54,科目齐全,可+急
已经有4人回复
送鲜花一朵 3楼2012-06-05 20:30:04
【答案】应助回帖
★ ★ ★ ★ ★ ★ ★ ★ ★ ★ ★
xzhdty: 金币+1, 欢迎常来程序语言 2012-06-05 21:55:18
njnuyhwang: 金币+10, ★★★很有帮助 2012-06-12 10:34:03
xzhdty: 金币+1, 欢迎常来程序语言 2012-06-05 21:55:18
njnuyhwang: 金币+10, ★★★很有帮助 2012-06-12 10:34:03
|
Next colu1 Next colu2 Next colu3 次序倒了 改成 Next colu3 Next colu2 Next colu1 |
» 本帖已获得的红花（最新10朵）
2楼2012-06-04 14:55:54
10