Excel精英培训网

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

[已解决]窗体中,打开窗体时光标停留位置并激活状态 也就是,打开窗体时,光标就在,那个输...

[复制链接]
发表于 2014-4-30 20:58 | 显示全部楼层 |阅读模式
窗体中,打开窗体时光标停留位置并激活状态
也就是,打开窗体时,光标就在,那个输入框处,并且闪烁成激活状态(打开窗体后,我不进行任何操作,打字时就把所打的字符输入到了这个输入框中)
如图:谢谢大家了!
我试了下,删除这部分代码可以,但我要保留这一部分代码。
窗体中,打开窗本时光标停留位置并激活.rar (28.3 KB, 下载次数: 28)
excel精英培训的微信平台,每天都会发送excel学习教程和资料。扫一扫明天就可以收到新教程
发表于 2014-4-30 21:42 | 显示全部楼层
把窗体加载事件的代码稍作改动:

Private Sub UserForm_Initialize()    '启动窗体自动执行
    全表查询.Value = True            '启动窗体时选中此选项按钮
    If 关键字.Value = "" Then 结果数字框.Caption = "无关键字"
    关键字.Value = ""
    关键字.SetFocus

End Sub


请测试是不是这样的效果:
窗体中,打开窗本时光标停留位置并激活.rar (25.43 KB, 下载次数: 49)
回复

使用道具 举报

 楼主| 发表于 2014-4-30 21:46 | 显示全部楼层
810126769 发表于 2014-4-30 21:42
把窗体加载事件的代码稍作改动:

Private Sub UserForm_Initialize()    '启动窗体自动执行

老师,问题还是存在!
回复

使用道具 举报

发表于 2014-4-30 23:43 | 显示全部楼层    本楼为最佳答案   
  1. Dim bl As Boolean
  2. Private Sub UserForm_Activate()
  3.     If Not bl Then
  4.         Me.关键字.SetFocus: bl = True
  5.     End If
  6. End Sub

  7. Private Sub UserForm_Terminate()
  8.     bl = False
  9. End Sub
复制代码
回复

使用道具 举报

发表于 2014-4-30 23:44 | 显示全部楼层
  1. Sub 信息查询程序()
  2.     信息查询.Show 1 '以静默方式打开窗体
  3. End Sub

复制代码
把0改成1试试。
回复

使用道具 举报

发表于 2014-4-30 23:45 | 显示全部楼层
hwc2ycy 发表于 2014-4-30 23:43

师傅。我试了下。这个是和窗体的显示模式有关。
{:021:}
回复

使用道具 举报

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

本版积分规则

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

GMT+8, 2024-3-29 20:46 , Processed in 0.434953 second(s), 9 queries , Gzip On, Yac On.

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

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