Отправка сообщения в Телеграм, при изменении значений в ячей

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Отправка сообщения в Телеграм, при изменении значений в ячей (Формулы/Formulas)

dkmor

Дата: Воскресенье, 17.03.2024, 06:59 | Сообщение № 1

Группа: Пользователи

Ранг: Прохожий

Сообщений: 9

Репутация: 0 ±

Замечаний: 0% ±

2021

Здравствуйте! Данные в ячейке изменяются согласно формуле. Нужно, что бы при изменении значения в ячейке, АВТОМАТИЧЕСКИ в Телеграм пришло сообщение с этим "новым" значением.

Ответить

Gustav

Дата: Воскресенье, 17.03.2024, 20:34 | Сообщение № 2

Группа: Друзья

Ранг: Участник клуба

Сообщений: 2766

Репутация: 1140 ±

Замечаний: 0% ±

начинал с Excel 4.0, видел 2.1

Судя по тому, что акцент сделан на слове АВТОМАТИЧЕСКИ, сама процедура отправки в Телеграмм затруднений не вызывает. Ну, а "автоматику" на рабочем листе сейчас организуем.

Допустим, следим за изменениями результата формулы в ячейке A1 листа Лист1.

В общем модуле Module1 заводим глобальную переменную - для хранения предыдущего рассчитанного по формуле значения:
[vba]

Код

Public prevValue

[/vba]

В модуль книги добавляем процедуру - для начальной инициализации переменной prevValue:
[vba]

Код

Private Sub Workbook_Open()
prevValue = Worksheets("Лист1").Range("A1").Value
End Sub

[/vba]

В модуль листа Лист1 добавляем процедуру сравнения текущего и предыдущего значений:
[vba]

Код

Private Sub Worksheet_Calculate()
    Dim currValue
    currValue = Me.Range("A1").Value
    If currValue <> prevValue Then
        MsgBox "Отправка в Телеграмм нового значения: " & currValue
        prevValue = currValue
    End If
End Sub

[/vba]

МОИ: Ник, Tip box: 41001663842605

Ответить

Отправка сообщения в Телеграм, при изменении значений в ячей (Формулы/Formulas)

Страница 1 из 1
1