vba按钮指定光标位置出错,求指点

设置了两个textbox,一个前面有复选框
要达到的目的是,点击提交按钮之后,把两个textbox的内容插入到excel对应的一个单元格中。

插入之后页面不关闭,根据复选框是否勾选来确定是否清空第一个textbox 并且是t1获取光标还是t2获取光标

一切都没问题。

鼠标点击确定按钮的时候,可以正常运行。如果通过回车键来确定则会报错。大概报错的意思就是找不到指定的文本框。。。

求大神指点解决办法。或者有其他方式来实现这个根据复选框选择光标位置的功能。。
代码如下

Private Sub OOOKKK_Click()
Sheets("sheet1

").Select
Cells(1, 9) = sqbbht.Text + sqbbht2.Text ' 申请表编号

If Not sqbbh Then sqbbht.Text = "" '如果复选框选中,则不清空textbox1
sqbbht2.Text = "" '清空textbox2
If Not sqbbh Then '如果不选中复选框,则语句一报错,反之则二报错,都是通过敲回车的时候才报错的。 sqbbht.SetFocus '报错语句 1
Else
sqbbht2.SetFocus '报错语句2
End If

按钮叫OOOKKK tabindex= 3

复选框叫sqbbh
textbox1叫sqbbht1 TABINDEX=1
textbox2叫sqbbht2 TABINDEX=2

excel2003
都是在userform里的光标位置。
就是用按钮决定光标是放在textbox1还是在textbox2里

鼠标点击按钮没问题。但是回车按按钮就会报错

也好像是第一次点击的时候没问题,但是第二次再点击的时候就有问题了。。。奇了葩了

求解决办法,求变通思路

顺便求 ,按钮点击的事件是button_Click(),那按钮弹起的事件是怎么定义的?

复选框打勾与不打勾的值应该是 false 或true追问

if 复选框 返回的值就是 false或者true啊
if not 复选框,返回的值就是true和false了。。

再次验证了,没有复选框 直接就是button响应textbox.setfocus就会出现这个问题。。

追答

估计是逻辑出现问题了,又或是获取焦点时发生错误,按钮控件的Default属性设为True,让回车等于鼠标单击

追问

又加了一个文本框,每次都把光标放到那个文本框里,成了。怀疑是文本框和按钮在不同的frame里的原因。虽然没帮我解决,还是感谢

温馨提示:答案为网友推荐,仅供参考

相关了解……

你可能感兴趣的内容

本站内容来自于网友发表,不代表本站立场,仅表示其个人看法,不对其真实性、正确性、有效性作任何的担保
相关事宜请发邮件给我们
© 非常风气网