| 网站首页 | 业界新闻 | 群组 | 人才 | 技术文章 | 下载频道 | 博客 | 代码贴 | 编程论坛
共有 128 人关注过本帖
标题:VB提示loop没有DO
只看楼主 收藏
如果爱忘了
Rank: 1
等 级:新手上路
帖 子:4
专家分:0
注 册:2017-10-10
结帖率:0
  已结贴   问题点数:20  回复次数:5   
VB提示loop没有DO
For r = 2 To lots + 1        Application.StatusBar = "产品分大类 ---  " & lots + 1 - r        i = 1        If Cells(r, 10) <> "" Then            Cells(r, 8) = ""            Cells(r, 14) = ""        End If        you = False        Do            i = i + 1            If UCase(Mid(Cells(r, 4), 11, 7)) = "LTF1303" Then               If Cells(r, 2) = (Mid(Cells(r, 4), 11, 7) & Mid(Cells(r, 4), 23, 4)) = UCase(Workbooks(progname).Sheets("Projlist").Cells(3, 5)) Then                 Cells(r, 1) = UCase(Workbooks(progname).Sheets("Projlist").Cells(3, 6))                ElseIf Cells(r, 2) = (Mid(Cells(r, 4), 11, 7) & Mid(Cells(r, 4), 23, 4)) = UCase(Workbooks(progname).Sheets("Projlist").Cells(4, 5)) Then                       Cells(r, 1) = UCase(Workbooks(progname).Sheets("Projlist").Cells(4, 6))            Else               If UCase(Mid(Cells(r, 4), 11, 7)) = UCase(Workbooks(progname).Sheets("Projlist").Cells(i, 3)) Then                   Cells(r, 1) = Workbooks(progname).Sheets("Projlist").Cells(i, 2)                 ' Cells(r, 3) = Left(Trim(Cells(r, 3)), 9)                  you = True                 Exit Do               End If             End If                          Loop Until Workbooks(progname).Sheets("Projlist").Cells(i, 3) = ""
2017-10-10 18:03
如果爱忘了
Rank: 1
等 级:新手上路
帖 子:4
专家分:0
注 册:2017-10-10
  得分:0 
回复 楼主 如果爱忘了
求大神帮忙
2017-10-10 18:04
如果爱忘了
Rank: 1
等 级:新手上路
帖 子:4
专家分:0
注 册:2017-10-10
  得分:0 
附件: 您没有浏览附件的权限,请 登录注册
2017-10-10 18:07
如果爱忘了
Rank: 1
等 级:新手上路
帖 子:4
专家分:0
注 册:2017-10-10
  得分:0 
附件: 您没有浏览附件的权限,请 登录注册
2017-10-10 18:14
ZHRXJR
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:版主
威 望:51
帖 子:545
专家分:3117
注 册:2016-5-10
  得分:10 
If Cells(r, 2) = (Mid(Cells(r, 4), 11, 7) & Mid(Cells(r, 4), 23, 4)) = UCase(Workbooks(progname).Sheets("Projlist").Cells(3, 5)) Then  没有END IF
If UCase(Mid(Cells(r, 4), 11, 7)) = UCase(Workbooks(progname).Sheets("Projlist").Cells(i, 3)) Then 也没有END IF
不是完整的代码,因此虽然你看好像有LOOP,但IF没有结束,实际程序在IF中,当然是LOOP没有DO了。

QQ    2653043392
2017-10-10 18:31
xiangyue0510
Rank: 16Rank: 16Rank: 16Rank: 16
等 级:版主
威 望:75
帖 子:803
专家分:4708
注 册:2015-8-10
  得分:10 
粘过来乱七八糟,真没心思帮你细看。
就是loop没有对应的DO。但是不只是查这个地方,if endif 没有配对出现,也会出现,就像版主ZHRXJR说的那样
2017-10-10 19:08







关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.068966 second(s), 8 queries.
Copyright©2004-2017, BCCN.NET, All Rights Reserved