Dim kr, deq, metr, m2 deq = "d" & ChrW(601) & "q" metr = m m2 = "м" & ChrW(178) kr = Worksheets("Proqram2").Range("O19") If kr = deq Then Me.MultiPage.Pages(0).TextBox3.Locked = True Me.MultiPage.Pages(0).TextBox3.Enabled = False Me.MultiPage.Pages(0).TextBox4.Locked = True Me.MultiPage.Pages(0).TextBox4.Enabled = False Me.MultiPage.Pages(0).Label10.Caption = "Vaxt" End If If kr = metr Then Me.MultiPage.Pages(0).TextBox3.Locked = False Me.MultiPage.Pages(0).TextBox3.Enabled = True Me.MultiPage.Pages(0).TextBox4.Locked = True Me.MultiPage.Pages(0).TextBox4.Enabled = False End If If kr = m2 Then Me.MultiPage.Pages(0).TextBox3.Locked = False Me.MultiPage.Pages(0).TextBox3.Enabled = True Me.MultiPage.Pages(0).TextBox4.Locked = False Me.MultiPage.Pages(0).TextBox4.Enabled = True Me.MultiPage.Pages(0).Label10.Caption = "Say" & ChrW(305) End If
[/vba]
nilem, а как в Вашем варианте, Enabled и Locked ,которые в зависимости от критерий могут быть или отключены или включены? Все необходимое для Case 1 нужно помес под ним?тить
Сейчас сделал так, но пока глючит (( [vba]
Код
Dim kr, deq, metr, m2 deq = "d" & ChrW(601) & "q" metr = m m2 = "м" & ChrW(178) kr = Worksheets("Proqram2").Range("O19") If kr = deq Then Me.MultiPage.Pages(0).TextBox3.Locked = True Me.MultiPage.Pages(0).TextBox3.Enabled = False Me.MultiPage.Pages(0).TextBox4.Locked = True Me.MultiPage.Pages(0).TextBox4.Enabled = False Me.MultiPage.Pages(0).Label10.Caption = "Vaxt" End If If kr = metr Then Me.MultiPage.Pages(0).TextBox3.Locked = False Me.MultiPage.Pages(0).TextBox3.Enabled = True Me.MultiPage.Pages(0).TextBox4.Locked = True Me.MultiPage.Pages(0).TextBox4.Enabled = False End If If kr = m2 Then Me.MultiPage.Pages(0).TextBox3.Locked = False Me.MultiPage.Pages(0).TextBox3.Enabled = True Me.MultiPage.Pages(0).TextBox4.Locked = False Me.MultiPage.Pages(0).TextBox4.Enabled = True Me.MultiPage.Pages(0).Label10.Caption = "Say" & ChrW(305) End If
[/vba]
nilem, а как в Вашем варианте, Enabled и Locked ,которые в зависимости от критерий могут быть или отключены или включены? Все необходимое для Case 1 нужно помес под ним?титьStormy
В прошлом пример у вас во всех 3-х случаях были одинаковые значения для Enabled, поэтому поместил их после Select Case. Если отличия все же есть, то, да [vba]
Код
Case 1 Me.TextBox3.Enabled = False Case 2 Me.TextBox3.Enabled = true etc.
[/vba] Enabled и Locked - практически одно и то же, выберите что-нибудь одно (Enabled) К контролам можно обращаться короче Me.TextBox3.Enabled (без MultiPage.Pages(0))
В прошлом пример у вас во всех 3-х случаях были одинаковые значения для Enabled, поэтому поместил их после Select Case. Если отличия все же есть, то, да [vba]
Код
Case 1 Me.TextBox3.Enabled = False Case 2 Me.TextBox3.Enabled = true etc.
[/vba] Enabled и Locked - практически одно и то же, выберите что-нибудь одно (Enabled) К контролам можно обращаться короче Me.TextBox3.Enabled (без MultiPage.Pages(0))nilem
Private Sub ComboBox3_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean) 'Определение единицы измерения в лейбле после выбора материала в текстбоксе Me.Label7.Caption = Worksheets("Proqram2").Cells(19, 15) ' Отключаем не используемые текстбоксы Select Case Worksheets("Proqram2").Cells(19, 15) Case "d" & ChrW(601) & "q" Me.TextBox3.Enabled = False Me.TextBox4.Enabled = False Me.MultiPage.Pages(0).Label10.Caption = "Vaxt" Case m Me.TextBox3.Enabled = True Me.TextBox4.Enabled = True Me.MultiPage.Pages(0).Label10.Caption = "Say" & ChrW(305) Case "ì" & ChrW(178) MsgBox 22222222 End Select End Sub
[/vba] Первый блок нормально срабатывает, а вот дальше идет ступор (( Значение Enabled не меняется
UPD: Разобрался . Буква не была заключена в кавычки и отсюд все беды.
[vba]
Код
Private Sub ComboBox3_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean) 'Определение единицы измерения в лейбле после выбора материала в текстбоксе Me.Label7.Caption = Worksheets("Proqram2").Cells(19, 15) ' Отключаем не используемые текстбоксы Select Case Worksheets("Proqram2").Cells(19, 15) Case "d" & ChrW(601) & "q" Me.TextBox3.Enabled = False Me.TextBox4.Enabled = False Me.MultiPage.Pages(0).Label10.Caption = "Vaxt" Case m Me.TextBox3.Enabled = True Me.TextBox4.Enabled = True Me.MultiPage.Pages(0).Label10.Caption = "Say" & ChrW(305) Case "ì" & ChrW(178) MsgBox 22222222 End Select End Sub
[/vba] Первый блок нормально срабатывает, а вот дальше идет ступор (( Значение Enabled не меняется
UPD: Разобрался . Буква не была заключена в кавычки и отсюд все беды.Stormy
Место для рекламы.
Сообщение отредактировал Stormy - Вторник, 11.02.2014, 18:40
Case "m" & ChrW(178) Me.TextBox3.Enabled = True Me.TextBox4.Enabled = True Me.Label10.Caption = "Say" & ChrW(305) Me.Label12.Caption = Round((Me.TextBox3 * Me.TextBox4 / 1000000) * Me.TextBox5, 2) & " m" & ChrW(178) End Select End Sub
[/vba] Так в принципе работает. При изменение длины происходит перерасчет. Дублировать тоже самое для других текстбоксов кажется не совсем верным. Есть ли другое решение?
Case "m" & ChrW(178) Me.TextBox3.Enabled = True Me.TextBox4.Enabled = True Me.Label10.Caption = "Say" & ChrW(305) Me.Label12.Caption = Round((Me.TextBox3 * Me.TextBox4 / 1000000) * Me.TextBox5, 2) & " m" & ChrW(178) End Select End Sub
[/vba] Так в принципе работает. При изменение длины происходит перерасчет. Дублировать тоже самое для других текстбоксов кажется не совсем верным. Есть ли другое решение?