Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Userform: rак создать условие на зависимость Label от значений в нескольких Textbox
 
#1
08.09.2017 11:53:08
Добрый день! Помогите, пожалуста, с Userform. Я никак не могу прописать зависимость от нескольких Textbox для элемента Label. ЧТо нужно изменить, чтобы работало корректно? То есть нужно, чтобы Done, появлялось при условие что и в текстбоксах (txt1 и txt2) есть положительное значение (не 0 и не ""!) Постоянно обновляется, если идет изменение по текстбоксам (txt1 или txt2). Спасибо!
Код
Private Sub txt1_Change()
  If Me.txt1.Value > 0 And Me.txt2.Value > 0 Then
  Me.lbltext.Visible = True
  Else: Me.lbltext.Visible = False
  End If
End Sub
 
 
 
#2
08.09.2017 12:29:52
Код
Private Sub Done()
    Me.lbltext.Visible = False
    If IsNumeric(Me.txt1.Value) And IsNumeric(Me.txt2.Value) Then
        If Me.txt1.Value > 0 And Me.txt2.Value > 0 Then lbltext.Visible = True
    End If
End Sub

Private Sub txt1_Change()
   Done '!'
End Sub

Private Sub txt2_Change()
   Done '!'
End Sub
 
 
 
#3
08.09.2017 13:05:15
Как вариант
 
 
 
#4
08.09.2017 13:15:22
Большое спасибо за помощь! Вариант С.М. помог=)

Попробовал вариант от Logistic, не то, так как зависит от порядка заполнения (сначала txt1, потом txt2), если менять поле после снятия лока с поля txt2.
Изменено: Macedon - 08.09.2017 13:16:47
 
 
 
#5
29.12.2017 00:55:34
а как, подскажите, изменить вариант С.М., чтобы макрос реагировал на числа и с десятичной точкой тоже?
Изменено: sasch78 - 29.12.2017 09:26:55
 
 
 
#6
29.12.2017 19:04:36
Код
If InStr(txt1.value,".")>0 then Done '!'
 
 
 
#7
29.12.2017 23:36:58
чет туплю я с этим вариантом) выкрутился по другому... в любом случае, oldy7, спасибо! может кому пригодится
 
 
 
Страницы: 1
Наверх