设置了两个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(),那按钮弹起的事件是怎么定义的?
if 复选框 返回的值就是 false或者true啊
if not 复选框,返回的值就是true和false了。。
再次验证了,没有复选框 直接就是button响应textbox.setfocus就会出现这个问题。。
估计是逻辑出现问题了,又或是获取焦点时发生错误,按钮控件的Default属性设为True,让回车等于鼠标单击
追问又加了一个文本框,每次都把光标放到那个文本框里,成了。怀疑是文本框和按钮在不同的frame里的原因。虽然没帮我解决,还是感谢