大橙子网站建设,新征程启航
为企业提供网站建设、域名注册、服务器等服务
do ... loop
我们提供的服务有:成都网站制作、网站设计、外贸网站建设、微信公众号开发、网站优化、网站认证、竞秀ssl等。为上千家企事业单位解决了网站和推广的问题。提供周到的售前咨询和贴心的售后服务,是有科学管理、有技术的竞秀网站制作公司
do while ... loop
do until ... loop
do ... loop while
do ... loop until
各有不同作用,有的先处理再判断,有的先判断再处理
你确信只循环一次吗?我看不像,在最后添加上一句msgbox jishu1,多半显示3。
是在第二块代码中有问题,你应该把chaxun4 = xlsheet.Range("l1").Value + 2分别放到两个条件句中初始chaxun4变量。
因为上一个Do Until atmbianhaop = xlsheet.Range("B" chaxun4).Value 循环退出后,下一个循环一开始就符合退出条件了,所以循环没有进行了。
Do
System.Windows.Forms.Application.DoEvents()
Loop Until AxMSComm1.InBufferCount 0
死循环。