Word Vba Userform текстовое поле onChange

Question

У меня есть пользовательская форма, есть одно поле для ввода текста и кнопка ОК и отмена

для макроса myRun:

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

И для моей формы Марко:

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, при запуске формы в текстовом поле1 отображается "10", когда я изменяю поле текстового поля на "текст", тогда я сообщу "Пожалуйста, введите число" и предупредите "текст" может это оповещение 10?

Answer 1

Ты имеешь ввиду:

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

Обратите внимание, что отрицательные числа также являются числовыми.