Excel精英培训网

 找回密码
 注册
数据透视表40+个常用小技巧,让你一次学会!
查看: 2265|回复: 2

[已解决]关于当满足一定条件时调用UserForm1.Show

[复制链接]
发表于 2013-3-26 17:47 | 显示全部楼层 |阅读模式
请教各位,在满足一定条件时调用UserForm1.Show

比如 当单元格A1大于1时,调用UserForm1.Show,否则就出个提示框显示“条件不满足”

这个调用的语句如何写,谢谢
最佳答案
2013-3-26 17:54
本帖最后由 hwc2ycy 于 2013-3-26 17:59 编辑

为了严谨起见,可以先判断是否A1是否为数字。
  1. Sub test()
  2.     If VBA.IsNumeric([a1]) And [a1] > 1 Then
  3.         UserForm1.Show
  4.     Else
  5.         MsgBox "条件不满足"
  6.     End If
  7. End Sub
复制代码
发表于 2013-3-26 17:54 | 显示全部楼层
if [a1]>1 then
userform1.show
else
msgbox "条件不满足"
end if
回复

使用道具 举报

发表于 2013-3-26 17:54 | 显示全部楼层    本楼为最佳答案   
本帖最后由 hwc2ycy 于 2013-3-26 17:59 编辑

为了严谨起见,可以先判断是否A1是否为数字。
  1. Sub test()
  2.     If VBA.IsNumeric([a1]) And [a1] > 1 Then
  3.         UserForm1.Show
  4.     Else
  5.         MsgBox "条件不满足"
  6.     End If
  7. End Sub
复制代码
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|Archiver|Excel精英培训 ( 豫ICP备11015029号 )

GMT+8, 2024-3-29 03:38 , Processed in 0.467297 second(s), 7 queries , Gzip On, Yac On.

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

快速回复 返回顶部 返回列表