CorelDraw VBA中，如何只允许在文本框中输入数字？

CorelDraw VBA中，如何只允许在文本框中输入数字？

我们可以应用数据验证功能，只允许将数字输入到单元格中，但有时，我只想将数字输入到文本框以及单元格中。 如何只接受Excel中的文本框中的数字？

以下VBA代码可以帮助您仅在文本框中输入数字，句点（。）和负号，请按照以下方式进行操作：

1. 点击创建一个文本框 开发人员 > 插页 > 文本框（ActiveX控件），然后根据需要绘制一个文本框
2. 然后右键单击该文本框并选择 查看代码 从上下文菜单中打开 Microsoft Visual Basic for Applications 窗口，然后用下面的VBA代码将原始代码替换到空白模块中：

Private Sub TextBox1_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
If KeyAscii > Asc(“9”) Or KeyAscii < Asc(“0”) Then
If KeyAscii = Asc("-") Then
If InStr(1, Me.TextBox1.Text, “-”) > 0 Or _
Me.TextBox1.SelStart > 0 Then KeyAscii = 0
ElseIf KeyAscii = Asc(".") Then
If InStr(1, Me.TextBox1.Text, “.”) > 0 Then KeyAscii = 0
Else
KeyAscii = 0
End If
End If
End Sub

3. 然后保存并关闭代码窗口，然后退出 设计模式，现在只有数字，句号和负号可以输入到文本框中