求vba高手解答,关于vba中怎么屏蔽esc键的问题 在change事件中,要求更改后的数值不能为空,若为空则光标仍然停留在单元格内,但是把数值置为空以后,按esc键就能把光标脱离出单元格,求哪位达人能帮忙解决一下。 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 Private Sub Text1_KeyPress(KeyAscii As Integer) If Len(Text1.Text) = 0 Then If KeyAscii = 27 Then KeyAscii = 0 End If End Sub其实有一个简单的办法,可以在下一个Tabindex控件获得焦点时判断文本框是否为空 if target="" then Target.Selectend if 感谢您的回复,我是用change事件来做数据的check的,如果加上您的这段代码,要加在什么地方呢,要怎么才能触发呢 代码如下:Private Sub Worksheet_Change(ByVal Target As Range) If Target.Value = "" Then MsgBox "input error" Target.Select Application.SendKeys "{F2}" End IfEnd Sub这是我写的代码,请帮忙解决 VBA怎么判断单元格里值是日期时间类型 打印合并列 求助 怎样用代码实现一个文件和文件夹的区分? 奇怪的RichTextBox控件显示文本时的内存溢出问题 晕哦,刚发现,又加豆了,接着散:) 急切请教,在线等待 为什么我打不开? 怎么使用 vb 将一个程序写成一个服务程序。启动 系统的时候自动启动程序 送分题:如何不断提高编程的水平??希望程序员们有经验之谈!!!!!如何在软件公司立足? VB 做的串口工具当波特率不匹配时 工具出现未响应 VB6 CDO对象乱码问题
Private Sub Text1_KeyPress(KeyAscii As Integer)
If Len(Text1.Text) = 0 Then
If KeyAscii = 27 Then KeyAscii = 0
End If
End Sub
其实有一个简单的办法,可以在下一个Tabindex控件获得焦点时判断文本框是否为空
Target.Select
end if
感谢您的回复,我是用change事件来做数据的check的,如果加上您的这段代码,要加在什么地方呢,要怎么才能触发呢
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Value = "" Then
MsgBox "input error"
Target.Select
Application.SendKeys "{F2}"
End If
End Sub这是我写的代码,请帮忙解决