| Вопрос: Прибавление выделения листов к уже выделенным поср | Добавлено: 21.10.05 23:06 |
Автор вопроса:  Дмитрий
|
|
Подскажите пожалуйста как сделать, что бы после нажатия CommandButton1 и выделении листов "Master", можно было нажать CommandButton2 и прибавить к уже выделенным листам листы "Office". В данном случае при по переменном нажатии кнопок выделенние предыдущих листов пропадает. Заранее благодарен. Private Sub CommandButton1_Click()
If CommandButton1.Value = True Then Sheets(Array("Master", "Master 2", "Master 3", "Master 4", "Master 5")).Select End If End Sub Private Sub CommandButton2_Click() If CommandButton2.Value = True Then Sheets(Array("Office", Office 2", Office 3", Office 4", Office 5")).Select End If End Sub |
| Ответы | Всего ответов: 3 |
|
Номер ответа: 1 Автор ответа:  GSerg Вопросов: 0 Ответов: 1876 
|
Профиль | | #1 | Добавлено: 22.10.05 00:19 |
|
Private Sub CommandButton1_Click()
If CommandButton1.Value = True Then Sheets(Array("Master", "Master 2", "Master 3", "Master 4", "Master 5"  ).Select
End If End Sub Private Sub CommandButton2_Click() If CommandButton2.Value = True Then Sheets(Array("Office", Office 2", Office 3", Office 4", Office 5" ).Select False
End If End Sub |
||
|
Номер ответа: 2 Автор ответа: Дмитрий Вопросов: 2 Ответов: 2 |
Профиль | | #2 | Добавлено: 23.10.05 22:21 |
|
Другая задача возникла:
Из общего числа уже выделенных листов, нужно снять выделение листов Office или Master, но при этом нужно что бы остались выделенными остальные выделенные листы. Не могу найти как програмно снимать выделение с листов. Помогите пожалуйста доделать макрос, в данном случае при нажатии CheckBox1 или CheckBox2,в момент когда они активны, он снимает выделение со всех выделенных листов, а не только с привязанных к каждому из них листов. Private Sub CheckBox1_Click()
If CheckBox1.Value = True Then Sheets(Array("INFO", "Master", "Master 2", "Master 3", "Master 4", "Master 5" ).Select False
ElseIf CheckBox1.Value = False Then Sheets(Array("INFO" ).Select True
End If End Sub Private Sub CheckBox2_Click() If CheckBox2.Value = True Then Sheets(Array("INFO", "Office", Office 2", Office 3", Office 4", Office 5" ).Select False
ElseIf CheckBox2.Value = False Then Sheets(Array("INFO" ).Select True
End If End Sub |
||
|
Номер ответа: 3 Автор ответа: GSergВопросов: 0 Ответов: 1876
|
Профиль | | #3 | Добавлено: 23.10.05 23:02 |
| Заново создать массив имён листов, подлежащих выделению. | ||
Страница: 1 |