新网创想网站建设,新征程启航
为企业提供网站建设、域名注册、服务器等服务
你确信只循环一次吗?我看不像,在最后添加上一句msgbox jishu1,多半显示3。
创新互联公司专注于故城企业网站建设,响应式网站设计,成都做商城网站。故城网站建设公司,为故城等地区提供建站服务。全流程按需网站建设,专业设计,全程项目跟踪,创新互联公司专业和态度为您提供的服务
是在第二块代码中有问题,你应该把chaxun4 = xlsheet.Range("l1").Value + 2分别放到两个条件句中初始chaxun4变量。
因为上一个Do Until atmbianhaop = xlsheet.Range("B" chaxun4).Value 循环退出后,下一个循环一开始就符合退出条件了,所以循环没有进行了。
你是要把连续多个空格,变换成只需要一个空格,那么:
do while Instr(tStr," ")0
tStr = Replace(tStr, " ", " ") '用一个空格,替换2个空格
loop
textbox.text = "12345" " " "67890"
或者
textbox.text = "12345" space(1) "67890"
首先你的textbox有一个属性得设置成多行、支持回车符才行
其次,换行符我记得直接用\n就行
n个空格你就写个循环用,每次循环就加上" "就行。