Имя пользователя:
Пароль:
 

Показать сообщение отдельно

Модератор


Moderator


Сообщения: 16855
Благодарности: 3249

Профиль | Сайт | Отправить PM | Цитировать


Цитата Pozia:
а если случайно выделю несколько клеток »
Код: Выделить весь код
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Rows.Count > 1 Or Target.Columns.Count > 1 Then MsgBox "Выбрано более 1 ячейки": Exit Sub
..........
Ваш код
..........
End Sub

-------
При заполнении сведений о конфигурации компьютера не забудь поставить флажок: отображать - "Да"
-------------------------------------------------------------------------------------------
Ассоциация VirusNet - помощь и обучение борьбе с вирусами. Некоторые вопросы загрузки в моем блоге

Это сообщение посчитали полезным следующие участники:

Отправлено: 16:18, 23-12-2012 | #47