Профессиональные приемы работы в Microsoft Excel

Пожалуйста, войдите или зарегистрируйтесь.


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

Новости:

Прикрепить к сообщению можно только файлы xls, gif, jpg, rar, zip,7z, bas, frm, cls, doc размером до 150 Кб.

Автор Тема: Как написать макрос, чтобы при определенных условиях в ячейке С прибавлялось 1  (Прочитано 1226 раз)

0 Пользователей и 1 Гость просматривают эту тему.

Оксана33

  • Новичок
  • *
  • Уважение: +0/-0
  • Оффлайн Оффлайн
  • Сообщений: 7

Как написать макрос, чтобы при определенных условиях (к примеру А1=В1) в ячейке, например, С к содержимому прибавлялось значение 1 (т.е. каждый раз +1, +1, +1, до бесконечности) и наоборот
« Последнее редактирование: 16.05.2015, 00:32:18 от Оксана33 »
Записан

vikttur

  • Глобальный модератор
  • Ветеран
  • *****
  • Уважение: +50/-0
  • Оффлайн Оффлайн
  • Сообщений: 1 016

В модуль листа:
Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Application.Intersect(Range("A1:B1"), Target) Is Nothing Then
       
        If Range("A1").Value = Range("B1").Value Then _
                    Range("C1").Value = Range("C1").Value + Range("D1").Value
    End If
End Sub
В D1 любое добавляемое число (положительное или отрицательное)
« Последнее редактирование: 16.05.2015, 09:02:44 от vikttur »
Записан

Оксана33

  • Новичок
  • *
  • Уважение: +0/-0
  • Оффлайн Оффлайн
  • Сообщений: 7

спасибо, тоже как вариант, но я искала вот это, но все равно спасибо
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A1:B1")) Is Nothing Then
  If Range("A1").Value = Range("B1").Value Then
    On Error Resume Next
    Application.EnableEvents = False
    Range("C1").Value = Range("C1").Value + 1
    Application.EnableEvents = True
  End If
End If
End Sub
« Последнее редактирование: 16.05.2015, 15:15:10 от vikttur »
Записан
 



Темы без ответов

09.08.2019 14:09 Макрос для заполнения таблиц через форму 4998
18.07.2019 16:02 Рассылка почты из Excel при помощи почтовой программы TheBAT! 4412
07.02.2019 01:36 Как удалить дубликаты из выпадающего связанного списка? 5970
03.03.2018 00:00 Подсчет отработанного времени, за исключением заранее определенных перерывов 3117
23.05.2017 11:20 Копирование данных из одной таблицы в умную таблицу по условию 4917
15.03.2017 15:45 автозамена картинок PowerPoint 3838
11.03.2017 13:43 Изменить нумерацию страниц 3764
07.02.2017 18:43 Блокировка ячеек по наступлению даты 2880
28.08.2016 19:29 Одинаковые заголовки после обновления оглавления 3379
07.08.2016 17:33 Определить нумерацию как элемент стиля 3593





Яндекс цитирования msexcel.ru Яндекс.Метрика

Страница сгенерирована за 0.115 секунд. Запросов: 97.