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

Вход

Регистрация

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

 

= Мир MS Excel/Всплывающее окно при заполнении ячейки данными - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Всплывающее окно при заполнении ячейки данными (Макросы Sub)
Всплывающее окно при заполнении ячейки данными
ArkaIIIa Дата: Пятница, 06.09.2013, 13:27 | Сообщение № 1
Группа: Проверенные
Ранг: Ветеран
Сообщений: 894
Репутация: 115 ±
Замечаний: 0% ±

2010
Господа, помогите, пожалуйста, в создании макроса.
По идее он простейший, но, к сожалению, поиск по форуму результатов не дал.

Нужно сделать, чтобы при заполнии ячейки В2 числом "1", появлялось окошко с текстом "Внимание, 1", а если число 2, то "Внимание, 2".

Это просто шаблон. Далее я адаптирую под документ.

Заранее спасибо.
К сообщению приложен файл: 2112419.xlsm (9.3 Kb)
 
Ответить
СообщениеГоспода, помогите, пожалуйста, в создании макроса.
По идее он простейший, но, к сожалению, поиск по форуму результатов не дал.

Нужно сделать, чтобы при заполнии ячейки В2 числом "1", появлялось окошко с текстом "Внимание, 1", а если число 2, то "Внимание, 2".

Это просто шаблон. Далее я адаптирую под документ.

Заранее спасибо.
Автор - ArkaIIIa
Дата добавления - 06.09.2013 в 13:27
ABC Дата: Пятница, 06.09.2013, 13:58 | Сообщение № 2
Группа: Друзья
Ранг: Обитатель
Сообщений: 397
Репутация: 112 ±
Замечаний: 0% ±

Excel 2007
[vba]
Код
Private Sub Worksheet_Change(ByVal Target As Range)
     If Target.Address <> "$B$2" Then Exit Sub
     MsgBox "Вниемание, " & [b2].Value
End Sub
[/vba]

MS Excel 2007 and 2010...
-------------------------------
С Уважением, Даулет
 
Ответить
Сообщение[vba]
Код
Private Sub Worksheet_Change(ByVal Target As Range)
     If Target.Address <> "$B$2" Then Exit Sub
     MsgBox "Вниемание, " & [b2].Value
End Sub
[/vba]
Автор - ABC
Дата добавления - 06.09.2013 в 13:58
RAN Дата: Пятница, 06.09.2013, 14:00 | Сообщение № 3
Группа: Друзья
Ранг: Экселист
Сообщений: 5660
Репутация: 1163 ±
Замечаний: 0% ±

2010
[vba]
Код
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address(0, 0) = "B2" Then MsgBox "Внимание, " & Target
End Sub
[/vba]

Быть или не быть, вот в чем загвоздка!
 
Ответить
Сообщение[vba]
Код
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address(0, 0) = "B2" Then MsgBox "Внимание, " & Target
End Sub
[/vba]
Автор - RAN
Дата добавления - 06.09.2013 в 14:00
PowerBoy Дата: Пятница, 06.09.2013, 14:26 | Сообщение № 4
Группа: Проверенные
Ранг: Участник
Сообщений: 100
Репутация: 31 ±
Замечаний: 0% ±

2003
[vba]
Код
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$B$2" Then
MsgBox "Внимание " + Str(Target.Value)
End If
End Sub
[/vba]
К сообщению приложен файл: 2112419-1.xlsm (14.5 Kb)

Excel + SQL = ActiveTables (http://vk.com/ExcelSQL)

Сообщение отредактировал PowerBoy - Пятница, 06.09.2013, 14:29
 
Ответить
Сообщение[vba]
Код
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$B$2" Then
MsgBox "Внимание " + Str(Target.Value)
End If
End Sub
[/vba]
Автор - PowerBoy
Дата добавления - 06.09.2013 в 14:26
ArkaIIIa Дата: Пятница, 06.09.2013, 14:41 | Сообщение № 5
Группа: Проверенные
Ранг: Ветеран
Сообщений: 894
Репутация: 115 ±
Замечаний: 0% ±

2010
Спасибо большое всем!
 
Ответить
СообщениеСпасибо большое всем!
Автор - ArkaIIIa
Дата добавления - 06.09.2013 в 14:41
alias Дата: Суббота, 12.07.2014, 12:52 | Сообщение № 6
Группа: Пользователи
Ранг: Прохожий
Сообщений: 1
Репутация: 0 ±
Замечаний: 0% ±

Excel 2003
подскажите пожалуйста,как сделать,чтобы это всё работало при условии,что данные в B2 будут вноситься автоматически а не прописываться вручную? (B2=A1)
 
Ответить
Сообщениеподскажите пожалуйста,как сделать,чтобы это всё работало при условии,что данные в B2 будут вноситься автоматически а не прописываться вручную? (B2=A1)
Автор - alias
Дата добавления - 12.07.2014 в 12:52
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Всплывающее окно при заполнении ячейки данными (Макросы Sub)
  • Страница 1 из 1
  • 1
Поиск:

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