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

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


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

Новости:

Теперь на форум можно залогиниться / зарегистрироваться с помощью ВКонтакте. Уже существующие пользователи могут связать свою учетную запись с аккаунтом ВКонтакте одним кликом в профиле пользователя http://forum.msexcel.ru/index.php?action=profile;area=account

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

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 »
Записан
 



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

27.05.2022 14:38 конструкция из Shape на VBA на листе Excel 467
09.08.2019 14:09 Макрос для заполнения таблиц через форму 5300
18.07.2019 16:02 Рассылка почты из Excel при помощи почтовой программы TheBAT! 4655
07.02.2019 01:36 Как удалить дубликаты из выпадающего связанного списка? 6261
03.03.2018 00:00 Подсчет отработанного времени, за исключением заранее определенных перерывов 3347
23.05.2017 11:20 Копирование данных из одной таблицы в умную таблицу по условию 5177
15.03.2017 15:45 автозамена картинок PowerPoint 4078
11.03.2017 13:43 Изменить нумерацию страниц 4015
07.02.2017 18:43 Блокировка ячеек по наступлению даты 3138
28.08.2016 19:29 Одинаковые заголовки после обновления оглавления 3638





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

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