Всем привет, подскажите как прописать ниже указанный код более компактно Есть Userform в которой есть: ComboBox1 - по условию которого лист открывает или скрывает определенные строки. ToggleButton - если нажато два и более ToggleButton то выдает ошибку и должен оставлять UserForm без закрытия для повторного ввода/корректировки и если нажат только один ToggleButton то необходимо открыть соответствующий лист excel. Загвоздка заключается в том что когда выбрано два и более ToggleButton выдается ошибка, но все равно происходит переключение на какой либо лист
[vba]
Код
Private Sub CommandButton1_Click() If UserForm1.ComboBox1.Value = 1 Then Columns("J:CV").Select Selection.EntireColumn.Hidden = True Columns("A:I").Select Selection.EntireColumn.Hidden = False End If ''''' If UserForm1.ComboBox1.Value = 2 Then Union(Columns("G:I"), Columns("M:CV")).Select Selection.EntireColumn.Hidden = True ' Union(Columns("J:L"), Columns("A:F")).Select Selection.EntireColumn.Hidden = False End If ''''' If UserForm1.ComboBox1.Value = 3 Then Union(Columns("G:L"), Columns("P:CV")).Select Selection.EntireColumn.Hidden = True ' Union(Columns("M:O"), Columns("A:F")).Select Selection.EntireColumn.Hidden = False End If ''''' If UserForm1.ComboBox1.Value = 4 Then Union(Columns("G:O"), Columns("S:CV")).Select Selection.EntireColumn.Hidden = True ' Union(Columns("P:R"), Columns("A:F")).Select Selection.EntireColumn.Hidden = False End If ..........
If UserForm1.ToggleButton1 And UserForm1.ToggleButton3 Or UserForm1.ToggleButton3 And UserForm1.ToggleButton4 Or UserForm1.ToggleButton1 And UserForm1.ToggleButton4 Or UserForm1.ToggleButton3 And UserForm1.ToggleButton1 And UserForm1.ToggleButton4.Value = True Then MsgBox "Ошибка - выберите только одну смену" End If
If UserForm1.ToggleButton1.Value = True Then Sheets("OEE - Брак_1_смена").Select End If
If UserForm1.ToggleButton3.Value = True Then Sheets("OEE - Брак_2_смена").Select End If
If UserForm1.ToggleButton4.Value = True Then Sheets("OEE - Брак_3_смена").Select End If USerForm1.Hide End Sub
[/vba]
Всем привет, подскажите как прописать ниже указанный код более компактно Есть Userform в которой есть: ComboBox1 - по условию которого лист открывает или скрывает определенные строки. ToggleButton - если нажато два и более ToggleButton то выдает ошибку и должен оставлять UserForm без закрытия для повторного ввода/корректировки и если нажат только один ToggleButton то необходимо открыть соответствующий лист excel. Загвоздка заключается в том что когда выбрано два и более ToggleButton выдается ошибка, но все равно происходит переключение на какой либо лист
[vba]
Код
Private Sub CommandButton1_Click() If UserForm1.ComboBox1.Value = 1 Then Columns("J:CV").Select Selection.EntireColumn.Hidden = True Columns("A:I").Select Selection.EntireColumn.Hidden = False End If ''''' If UserForm1.ComboBox1.Value = 2 Then Union(Columns("G:I"), Columns("M:CV")).Select Selection.EntireColumn.Hidden = True ' Union(Columns("J:L"), Columns("A:F")).Select Selection.EntireColumn.Hidden = False End If ''''' If UserForm1.ComboBox1.Value = 3 Then Union(Columns("G:L"), Columns("P:CV")).Select Selection.EntireColumn.Hidden = True ' Union(Columns("M:O"), Columns("A:F")).Select Selection.EntireColumn.Hidden = False End If ''''' If UserForm1.ComboBox1.Value = 4 Then Union(Columns("G:O"), Columns("S:CV")).Select Selection.EntireColumn.Hidden = True ' Union(Columns("P:R"), Columns("A:F")).Select Selection.EntireColumn.Hidden = False End If ..........
If UserForm1.ToggleButton1 And UserForm1.ToggleButton3 Or UserForm1.ToggleButton3 And UserForm1.ToggleButton4 Or UserForm1.ToggleButton1 And UserForm1.ToggleButton4 Or UserForm1.ToggleButton3 And UserForm1.ToggleButton1 And UserForm1.ToggleButton4.Value = True Then MsgBox "Ошибка - выберите только одну смену" End If
If UserForm1.ToggleButton1.Value = True Then Sheets("OEE - Брак_1_смена").Select End If
If UserForm1.ToggleButton3.Value = True Then Sheets("OEE - Брак_2_смена").Select End If
If UserForm1.ToggleButton4.Value = True Then Sheets("OEE - Брак_3_смена").Select End If USerForm1.Hide End Sub
Serg73,файл нужно приложить рабочий,а не картинку. Выбор дат производить по календарю. Приложите файл и оформите согласно правил форума.Жесть.!!!
Serg73,файл нужно приложить рабочий,а не картинку. Выбор дат производить по календарю. Приложите файл и оформите согласно правил форума.Жесть.!!! parovoznik