Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Microsoft Office и VBA программирование > Microsoft Office Excel
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 10.04.2013, 16:30   #1
ambergrey
 
Регистрация: 10.04.2013
Сообщений: 6
По умолчанию Макрос для рассылки по сети сообщений об ошибках

Возможно ли создать макрос, который периодически проверял бы данные на появление ошибок. И рассылал бы по сети сообщения об ошибках на те рабочие машины, чьи операторы вносят некорректные данные в базу?
Что-то вроде выполнения строки типа "net send".
Чтобы при появлении в ячейке "ИМЯ" имени оператора и в другой ячейке "Ошибка" текста сообщения об ошибке, по сети передавалось сообщение например: "оператору Иванову - внесено неверное значение в базу"
Расчет проверки ошибок, составления текста сообщения и определение операторов (имена компьютеров в сети) уже есть.

Сам я в VBA и макросах чайник, расчет у меня на формулах и запросах
ambergrey вне форума Ответить с цитированием
Старый 10.04.2013, 17:01   #2
EducatedFool
Программист VBA
СуперМодератор
 
Аватар для EducatedFool
 
Регистрация: 13.07.2008
Сообщений: 6,856
По умолчанию

Да, это возможно.

Поместите код в модуль листа:
Код:
Private Sub Worksheet_Calculate() ' срабатывает при пересчёте формул на листе
    On Error Resume Next
    
    If Range("ИМЯ") <> "" And Range("Ошибка") <> "" Then    ' если обе ячейки - непустые

        ' формируем команду, например, Cmd.exe /c net send "проверка отправки" CompName
        cmd$ = "Cmd.exe /c net send " & Chr(34) & Range("Ошибка") & Chr(34) & " " & Range("ИМЯ")

        ' выполняем отправку сообщения
        Shell cmd$
    End If
End Sub
(код не проверял - но должно работать. возможно, вместо Cmd.exe надо написать Command.exe)
EducatedFool вне форума Ответить с цитированием
Старый 15.04.2013, 14:52   #3
ambergrey
 
Регистрация: 10.04.2013
Сообщений: 6
По умолчанию

Большое спасибо!
ambergrey вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Нужна программа для массовой рассылки e-mail сообщений. tanyuschahappy Софт 7 24.10.2015 02:20
программа для рассылки сообщений в commfort jonsakh Фриланс 1 06.03.2013 17:18
Перехват сообщений об ошибках Garacio_cain Общие вопросы Delphi 0 18.09.2009 15:08
Отключение сообщений о ошибках TyoshA Общие вопросы Delphi 6 10.07.2009 15:43