Excel макрос при изменении значения ячейки

Лучшие инструменты для работы в офисе

Kutools for Excel Решит большинство ваших проблем и повысит вашу производительность на 80%

• Снова использовать: Быстро вставить сложные формулы, диаграммы и все, что вы использовали раньше; Зашифровать ячейки с паролем; Создать список рассылки и отправлять электронные письма …
• Бар Супер Формулы (легко редактировать несколько строк текста и формул); Макет для чтения (легко читать и редактировать большое количество ячеек); Вставить в отфильтрованный диапазон…
• Объединить ячейки / строки / столбцы без потери данных; Разделить содержимое ячеек; Объединить повторяющиеся строки / столбцы… Предотвращение дублирования ячеек; Сравнить диапазоны…
• Выберите Дубликат или Уникальный Ряды; Выбрать пустые строки (все ячейки пустые); Супер находка и нечеткая находка во многих рабочих тетрадях; Случайный выбор …
• Точная копия Несколько ячеек без изменения ссылки на формулу; Автоматическое создание ссылок на несколько листов; Вставить пули, Флажки и многое другое …
• Извлечь текст, Добавить текст, Удалить по позиции, Удалить пробел; Создание и печать промежуточных итогов по страницам; Преобразование содержимого ячеек в комментарии…
• Суперфильтр (сохранять и применять схемы фильтров к другим листам); Расширенная сортировка по месяцам / неделям / дням, периодичности и др .; Специальный фильтр жирным, курсивом …
• Комбинируйте книги и рабочие листы; Объединить таблицы на основе ключевых столбцов; Разделить данные на несколько листов; Пакетное преобразование xls, xlsx и PDF…
• Более 300 мощных функций. Поддерживает Office/Excel 2007-2021 и 365. Поддерживает все языки. Простое развертывание на вашем предприятии или в организации. Полнофункциональная 30-дневная бесплатная пробная версия. 60-дневная гарантия возврата денег.

---

Вкладка Office: интерфейс с вкладками в Office и упрощение работы

• Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
• Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
• Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!

Уважаемые знатоки, подскажите, пожалуйста, возможно ли задать событие рабочей книги — изменение определеной ячейки, например А1 на 1 листе, при изменении значения которой будет выполняться макрос

Не торопись, и все успеешь намного быстрее

Доброго дня!

Можно сделать так:

— само собой, вот этот код разместить следует в модуле листа:

Private Sub Worksheet_Change(ByVal Target As Range)
   If Target.Address = "$A$1" Then ' реакция на изменение в ячейке с координатами A1 _
                                                  если нужна другая ячейка, поменяйте координату, _
                                                  т.е. вместо "$A$1" впишите любую другую (знак "$" _
                                                  обязателен!
       'запускаем наш макрос
       myMacro
   End If
End Sub

а вот этот, можно в стандартном Модуле:

Function myMacro()
   MsgBox "Привет!", vbInformation + vbOKOnly, ""
End Function

Путей к вершине — множество. Этот один из многих!

Большое спасибо за отклик, да еще с таким дельным решением

Не торопись, и все успеешь намного быстрее

Удачи! 

Путей к вершине — множество. Этот один из многих!

Попрошу вновь подсказку: данный способ срабатывает при редактировании ячейки с клавиатуры, а как описать событие вставки в ячейку значения из буфера обмена?

Не торопись, и все успеешь намного быстрее

Именно для А1 проще всего написать так:

Private Sub Worksheet_Change(ByVal Target As Range)
If Left(Target.Address, 4) = "$A$1" Then myMacro
End Sub
а вот если это не А1, а другая ячейка, то такая штука может и не прокатить.

Скажи мне, кудесник, любимец ба’гов…

Яндекс-деньги: 41001632713405
Webmoney: R289877159277; Z102172301748; E177867141995

Огромное спасибо. Теперь все заработало. Как же приятно учиться у таких знающих людей

Не торопись, и все успеешь намного быстрее

Цитата: _Boroda_ от 30.08.2010, 17:51
Именно для А1 проще всего написать так:
Private Sub Worksheet_Change(ByVal Target As Range)
If Left(Target.Address, 4) = "$A$1" Then myMacro
End Sub
а вот если это не А1, а другая ячейка, то такая штука может и не прокатить.

согласен, но, если сделать так:


Private Sub Worksheet_Change(ByVal Target As Range)
   dim nR as long
   dim nC as integer

   nR=target.row
   nC=target.column

   If nR = 4 and nC= 2 and target = "Вася" Then myMacro
End Sub

то myMacro сработает лишь тогда, когда в ячейку B4 активного листа будет введено кодовое слово «Вася».

или же выбор с вариациями:

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim nR As Long
    Dim nC As Integer

    nR = Target.Row
    nC = Target.Column

    If nR = 4 And nC = 2 Then
        Select Case Cells(nR, nC).Text
            Case "Вася", "Миша"
                myMacro1
            Case "Петя"
                myMacro2
            Case Else
                MsgBox "Ничего не буду делать!", vbInformation + vbOKOnly, "Сообщение системы:"
        End Select
   End If
End Sub

Путей к вершине — множество. Этот один из многих!

Посмотрите приложенный скриншот. Обвел плюсик который следует нажать

Путей к вершине — множество. Этот один из многих!

Здравствуйте
Трудно что-то ответить на ваш вопрос.
Скорее всего вы перепутали понятия «пересчет значения ячейки» и «изменение значения ячейки»
Рекомендую создать отдельный топик, приложить файл, как того требуют правила, и тогда можно будет вам чем-то помочь

Ничто не обходится нам так дешево и не ценится так дорого, как вежливость…  Мигель Сервантес де Сааведра