Question

我有一个userform有一个文本框字段，有ok和cancel按钮

for myRun macro：

Sub myUserForm()
    UserForm1.TextBox1.Value = Selection.Font.Size
    UserForm1.Show
End Sub

对于我的表格marco：

Private Sub TextBox1_Change()
    Dim myValue As String
    myValue = UserForm1.TextBox1.Value
    If Not IsNumeric(myValue) Then
        MsgBox "Please enter a number"
        MsgBox myValue
    End If
End Sub

我想问一下当myValue不是数字时可以得到前一个值的值

如果我的选择文字大小是10pt，当我运行表单时，它会显示＆＃34; 10＆＃34;在textbox1中，当我将文本框字段更改为＆＃34; text＆＃34;时，我会提醒＆＃34;请输入一个数字＆＃34;并警告＆＃34;文字＆＃34;它能提醒10吗？

Answer 1

你的意思是：

Dim myNumber
If Not IsNumeric(myValue) Then
myNumber = InputBox("Enter number:")
MsgBox "Entered " & myNumber
End If

请注意，负数也是数字。

Word Vba Userform文本框onChange

1 个答案: