安徽十一选五推荐号:EXCEL VBA中明明遇到不符合继续运行的条件时,为什么还能继续运行?
25选5星期几开奖时间 www.gjtr.net PRIVATE SUB COMMANDBUTTON1_CLICK() IF TEXTBOX1 = "" OR TEXTBOX3 = "" OR TEXTBOX4 = "" THEN MSGBOX "三项数据必须完整" IF TEXTBOX1.VALUE = "" THEN TEXTBOX1.SETFOCUS IF TEXTBOX3.VALUE = "" THEN TEXTBOX3.SETFOCUS IF TEXTBOX4.VALUE = "" THEN TEXTBOX4.SETFOCUS ELSE END IF A = MSGBOX("结果是:" & TEXTBOX1.VALUE TEXTBOX3.VALUE TEXTBOX4.VALUE, VBOKCANCEL, "计算结果") END SUB 当我明明有一个文本框内为空时,它虽然也弹出了提示窗口,但是它还是继续生成了计算结果的窗口。这是怎么回事呢?我想让它必须在三项都填有数据的情况下才能产生计算结果,应该怎么样修改程序呢?
设置一个中间变量k来记录是否三项都填有数据,如果填了,k=0,如果没有填,k=1,通过判断k的值来决定是否继续生成计算结果的窗口private sub commandbutton1_click()
dim k as integer
k = 0
if textbox1 = "" or textbox3 = "" or textbox4 = "" then
k = 1
msgbox "三项数据必须完整"
if textbox1.value = "" then textbox1.setfocus
if textbox3.value = "" then textbox3.setfocus
if textbox4.value = "" then textbox4.setfocus
else
end if
if k = 0 then
a = msgbox("结果是:"& textbox1.value + textbox3.value + textbox4.value, vbokcancel, "计算结果")
end if
end sub
相关常见问题
- EXCEL VBA中明明遇到不符合继续运行的条件时,为什么还能继续运行?
- excel 比较大小后符合条件的继续运算
- EXCEL中出现“找不到关闭*运行时所需要的宏XL4POPPY!$C$4,继续运行可能导致错误,是否取消关闭*的程序
- 这个工作薄含有一个或多个MicrosoftExcel宏。宏将被禁止运行。怎样让它继续运行
- EXCEL VBA中提示“运行时错误‘13’,类型不匹配”是怎么回事?代码如下,解决后可继续加分。
- 为什么我使用EXCEL2007的F1帮助时会出现帮助查看器遇到问题,无法继续
- 2003版excel行满了(行达到了IV后面就没了),如何继续增加?
- EXCEL一文件打开时进程到达90%后不能继续,其它文件正常打开,CPU占用率为100%,如何找开或恢复文件?
- excel2000 工作表中,进行数据比较时应在公式中使用什么运算符? a 数学运算符 b 关系运算符 c 文本运算符 d 引用运算符
- EXCEL VBA 数据表多条件查询 如条件为空白,继续判读其它条件而不是去判读数据中为空白的单元格.
- 昨天辑好的Excel工作簿,却发现内容混乱,无法继续进行编辑,而且还不能够进行打印。咋样才能恢复啊,高手教教我。
- excel打字满后不跳格自动继续打还合并单元格?
- 请教大家一下:EXCEL2003只能导出16384行,如果不换2007版,继续用2003版,有什么方法可以解决吗?急啊~~
- 继续求教EXCEL中的多条件求和问题
- excel可以实现这样的功能吗?只要下一行与上一行数据相同,就删掉下一行所在行;若果不相同就往下继续查找
- excel 表格自动生成全天24小时时间问题,下拉满行后,如何自动换行,如:A满行后在B格继续