2015-05-18 2 views
-1

У меня есть UserForm есть одно поле текстового поля и с КАМИ и кнопкаСлово Vba UserForm текстового поля OnChange

отменить для 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 не является номером

если мой Se размер текста лекции составляет 10pt, когда я запускаю форму, он показывает «10» в текстовом поле1, когда я меняю поле текстового поля на «текст», затем я предупреждаю «Пожалуйста, введите число» и «текст» предупреждения может его предупредить 10?

+0

Вы можете сохранить его в переменной – SLaks

ответ

0

ли вы имеете в виду:

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

Пожалуйста, обратите внимание, что отрицательные числа также Числовой.

+0

Вы должны поместить Dim myNumber в верхнюю часть модуля –

+0

нет, я не хочу щенка рисовать поле ввода – creativejoan

+0

, когда я загружаю форму, поле текстового поля имеет значение " 10 ", затем я меняю его на« текст », я хочу предупредить« 10 »после того, как я нахожусь в поле текстового поля – creativejoan

Смежные вопросы