Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Вывод сообщения если поставить не ту букву - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
Страница 1 из 11
Модератор форума: _Boroda_, Pelena, Manyasha, SLAVICK 
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Вывод сообщения если поставить не ту букву (Макросы/Sub)
Вывод сообщения если поставить не ту букву
roman66rus Дата: Воскресенье, 10.01.2016, 10:36 | Сообщение № 1
Группа: Пользователи
Ранг: Участник
Сообщений: 89
Репутация: 0 ±
Замечаний: 20% ±

2010
Доброго времени суток. Помогите с макросом.

[vba]
Код
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [D2:D125]) Is Nothing Then
Application.EnableEvents = False
If Left(Target, 1) Like "[с д а]" Then
Else
MsgBox "Ставятся только буквы с -Сысерть; д -Дегтярск; а-Аша."
Target.Activate: Target = ""
End If
Application.EnableEvents = True
End If
End Sub
[/vba]

Все работает, но не знаю как добавить сюда еще столбцы F,H,J,L,N,P
Пробовал копировать его но тогда не работает.
К сообщению приложен файл: 4567.rar(96Kb)


Сообщение отредактировал roman66rus - Воскресенье, 10.01.2016, 12:41
 
Ответить
СообщениеДоброго времени суток. Помогите с макросом.

[vba]
Код
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [D2:D125]) Is Nothing Then
Application.EnableEvents = False
If Left(Target, 1) Like "[с д а]" Then
Else
MsgBox "Ставятся только буквы с -Сысерть; д -Дегтярск; а-Аша."
Target.Activate: Target = ""
End If
Application.EnableEvents = True
End If
End Sub
[/vba]

Все работает, но не знаю как добавить сюда еще столбцы F,H,J,L,N,P
Пробовал копировать его но тогда не работает.

Автор - roman66rus
Дата добавления - 10.01.2016 в 10:36
Udik Дата: Воскресенье, 10.01.2016, 12:38 | Сообщение № 2
Группа: Друзья
Ранг: Старожил
Сообщений: 1372
Репутация: 177 ±
Замечаний: 0% ±

Excel 2016 х 64
roman66rus, код вставляется между тегами code] [/code :)

К сообщению приложен файл: 8951740.jpg(30Kb)


вот вам барабан
яд 41001231307558 wm R419131876897
udik1968@gmail.com


Сообщение отредактировал Udik - Воскресенье, 10.01.2016, 13:20
 
Ответить
Сообщениеroman66rus, код вставляется между тегами code] [/code :)


Автор - Udik
Дата добавления - 10.01.2016 в 12:38
Udik Дата: Воскресенье, 10.01.2016, 13:18 | Сообщение № 3
Группа: Друзья
Ранг: Старожил
Сообщений: 1372
Репутация: 177 ±
Замечаний: 0% ±

Excel 2016 х 64
Просто диапазон прописать надо
[vba]
Код

Private Sub Worksheet_Change(ByVal Target As Range)
Dim rng1 As Range

Set rng1 = Range("D2:D125,F2:F125,H2:H125,J2:J125,L2:L125,N2:N125,P2:P125")

If Not Intersect(Target, rng1) Is Nothing Then
Application.EnableEvents = False
If Left(Target, 1) Like "[с д а]" Then
Else
MsgBox "Ставятся только буквы с -Сысепть; д -Дефтяпск; а-Аша."
Target.Activate: Target = ""
End If
Application.EnableEvents = True
End If
End Sub

[/vba]
К сообщению приложен файл: t1.xlsm(17Kb)


вот вам барабан
яд 41001231307558 wm R419131876897
udik1968@gmail.com
 
Ответить
СообщениеПросто диапазон прописать надо
[vba]
Код

Private Sub Worksheet_Change(ByVal Target As Range)
Dim rng1 As Range

Set rng1 = Range("D2:D125,F2:F125,H2:H125,J2:J125,L2:L125,N2:N125,P2:P125")

If Not Intersect(Target, rng1) Is Nothing Then
Application.EnableEvents = False
If Left(Target, 1) Like "[с д а]" Then
Else
MsgBox "Ставятся только буквы с -Сысепть; д -Дефтяпск; а-Аша."
Target.Activate: Target = ""
End If
Application.EnableEvents = True
End If
End Sub

[/vba]

Автор - Udik
Дата добавления - 10.01.2016 в 13:18
roman66rus Дата: Воскресенье, 10.01.2016, 13:44 | Сообщение № 4
Группа: Пользователи
Ранг: Участник
Сообщений: 89
Репутация: 0 ±
Замечаний: 20% ±

2010
Udik, Спасибо большое.
 
Ответить
СообщениеUdik, Спасибо большое.

Автор - roman66rus
Дата добавления - 10.01.2016 в 13:44
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Вывод сообщения если поставить не ту букву (Макросы/Sub)
Страница 1 из 11
Поиск:

Яндекс цитирования
© 2010-2017 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!