修复vba中的bug

kristzhang

文件：https://www.123pan.com/s/2XwUVv-ykLi.html

@578370 @fhangong
老大，之前帮我改的vba代码出现了一个bug，就是在错误输入文字或者其他字符的时候就会出现错误提示：下标越界
抽时间帮我改一下呗，谢谢！

fhangong

kristzhang 发表于 2024-4-2 18:04
好的，谢谢，顺便能不能帮我看看代码是不是需要优化一下，点击提交录入后，数据写入Excel的速度太慢了{:1 ...

弄好了，优化了一个运行时的显示问题，这样去接看结果就会快很多了，因为更新显示也是占用处理时间的，我试了一下基本上是秒显的了。
链接：https://pan.baidu.com/s/1Mbo8-TXBsq3NgebJAYZppQ
提取码：52pj
--来自百度网盘超级会员V5的分享

zjg121

https://wwi.lanzoup.com/iIVdZ1tkqrwb
增加了这个：

[Visual Basic] 纯文本查看 复制代码

Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)  
    ' 允许的字符包括数字（0-9），小数点（ASCII码为46）和空格（ASCII码为32）  
    If (KeyAscii >= 48 And KeyAscii <= 57) Or KeyAscii = 46 Or KeyAscii = 32 Then  
        ' 如果是允许的字符，则不做任何处理  
    Else  
        ' 如果不是允许的字符，则阻止按键输入  
        Beep  
        KeyAscii = 0  
    End If  
End Sub

kristzhang

zjg121 发表于 2024-4-2 13:10
https://wwi.lanzoup.com/iIVdZ1tkqrwb
增加了这个：
[mw_shl_code=vb,true]Private Sub TextBox1_KeyPre ...

这个代码放在那个位置的，谢谢不太懂vba，越看越糊涂

kristzhang

zjg121 发表于 2024-4-2 13:10
https://wwi.lanzoup.com/iIVdZ1tkqrwb
增加了这个：
[mw_shl_code=vb,true]Private Sub TextBox1_KeyPre ...

链接中的文件无法下载，下载没有任何反应。

kristzhang

zjg121 发表于 2024-4-2 13:10
https://wwi.lanzoup.com/iIVdZ1tkqrwb
增加了这个：
[mw_shl_code=vb,true]Private Sub TextBox1_KeyPre ...

好不容易下载了，但是还没修复完整啊，现在是输入字母和符号没出错，但是输入中文还是会弹窗下标越界

nikkyu

https://wwo.lanzouo.com/i6uWo1tkzk8j

kristzhang

nikkyu 发表于 2024-4-2 13:44
https://wwo.lanzouo.com/i6uWo1tkzk8j

是修复，不是让把那些代码直接给我删了

nikkyu

kristzhang 发表于 2024-4-2 13:50
是修复，不是让把那些代码直接给我删了

自己考虑吧，其实按照前面的贴写的

kristzhang

nikkyu 发表于 2024-4-2 13:52
楼主不识货，哈哈

什么叫不识货？我的悬赏贴，肯定要按我的要求啊，你满足不了还说什么风凉话？