Всплывающее окно при заполнении ячейки данными
ArkaIIIa
Дата: Пятница, 06.09.2013, 13:27 |
Сообщение № 1
Группа: Проверенные
Ранг: Ветеран
Сообщений: 894
Репутация:
115
±
Замечаний:
0% ±
2010
Господа, помогите, пожалуйста, в создании макроса. По идее он простейший, но, к сожалению, поиск по форуму результатов не дал. Нужно сделать, чтобы при заполнии ячейки В2 числом "1", появлялось окошко с текстом "Внимание, 1", а если число 2, то "Внимание, 2". Это просто шаблон. Далее я адаптирую под документ. Заранее спасибо.
Господа, помогите, пожалуйста, в создании макроса. По идее он простейший, но, к сожалению, поиск по форуму результатов не дал. Нужно сделать, чтобы при заполнии ячейки В2 числом "1", появлялось окошко с текстом "Внимание, 1", а если число 2, то "Внимание, 2". Это просто шаблон. Далее я адаптирую под документ. Заранее спасибо. ArkaIIIa
Ответить
Сообщение Господа, помогите, пожалуйста, в создании макроса. По идее он простейший, но, к сожалению, поиск по форуму результатов не дал. Нужно сделать, чтобы при заполнии ячейки В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]
[vba]Код
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address <> "$B$2" Then Exit Sub MsgBox "Вниемание, " & [b2].Value End Sub
[/vba] ABC
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
[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
Быть или не быть, вот в чем загвоздка!
Ответить
Сообщение [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]
[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
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
Ответить
Сообщение подскажите пожалуйста,как сделать,чтобы это всё работало при условии,что данные в B2 будут вноситься автоматически а не прописываться вручную? (B2=A1) Автор - alias Дата добавления - 12.07.2014 в 12:52