Уважаемые форумчане, очень нужна ваша помощь. Ни как не могу найти макрос да и сам не силён чтоб написать его. Так вот есть таблица из 4 столбиков, нужно чтоб макрос сравнил сегоднешние число выбрал строку с номером в столбце "В", к примеру если сегодня 17 то и строка соответственно 17, и добавил бы к имеющейся сумме вводимую сумму. на моём примере это 1015+500. Соответственно если дата меняется то и суммы будут попадать в свои строки. За ранее благодарю!
Уважаемые форумчане, очень нужна ваша помощь. Ни как не могу найти макрос да и сам не силён чтоб написать его. Так вот есть таблица из 4 столбиков, нужно чтоб макрос сравнил сегоднешние число выбрал строку с номером в столбце "В", к примеру если сегодня 17 то и строка соответственно 17, и добавил бы к имеющейся сумме вводимую сумму. на моём примере это 1015+500. Соответственно если дата меняется то и суммы будут попадать в свои строки. За ранее благодарю!enchanter54
Это не работает если сменить дату, а если даже сработает то приплюсует к 18, а она должна остаться уже на 17, да и нужно чтоб сумма приплюсовывалась в ячейку таблицы а не снаружи. формула не пойдёт я думаю(( Как бы один раз макрос взял 500, бросил в ячейку 17, то есть 1015+500 и всё. Если на следующий день введут сумму то она уже попадёт в 18 ячейку столбика В
Это не работает если сменить дату, а если даже сработает то приплюсует к 18, а она должна остаться уже на 17, да и нужно чтоб сумма приплюсовывалась в ячейку таблицы а не снаружи. формула не пойдёт я думаю(( Как бы один раз макрос взял 500, бросил в ячейку 17, то есть 1015+500 и всё. Если на следующий день введут сумму то она уже попадёт в 18 ячейку столбика Вenchanter54
Сообщение отредактировал enchanter54 - Четверг, 17.04.2014, 17:15
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Cells.Count > 1 Then Exit Sub If Not Intersect(Range("F1:G1"), Target) Is Nothing Then Range("C" & Day(Date) + 1) = Range("F1") + Range("G1") End If End Sub
[/vba] При изменении значений в F1 или G1 запускается макрос, который суммирует ячейки F1 и G1 и сумму помещает с столбце С, в строке на единицу большей, чем день даты.
Сделал как понял код в модуле листа.[vba]
Код
Private Sub Worksheet_Change(ByVal Target As Range) If Target.Cells.Count > 1 Then Exit Sub If Not Intersect(Range("F1:G1"), Target) Is Nothing Then Range("C" & Day(Date) + 1) = Range("F1") + Range("G1") End If End Sub
[/vba] При изменении значений в F1 или G1 запускается макрос, который суммирует ячейки F1 и G1 и сумму помещает с столбце С, в строке на единицу большей, чем день даты.AlexM
AlexM, Здравствуйте! в приведённом выше примере осуществляется последовательная обработка в каждой последующей строчке. Вопрос, как сделать так чтобы данные прописывались напротив конкретной даты в календаре, где существуют пробелы (пустые и т.д. строки) пример тот же во вложении, но с добавлениями.
AlexM, Здравствуйте! в приведённом выше примере осуществляется последовательная обработка в каждой последующей строчке. Вопрос, как сделать так чтобы данные прописывались напротив конкретной даты в календаре, где существуют пробелы (пустые и т.д. строки) пример тот же во вложении, но с добавлениями.arvk
Private Sub Worksheet_Change(ByVal Target As Range) Dim i As Long If Target.Cells.Count > 1 Then Exit Sub If Not Intersect(Range("F1:G1"), Target) Is Nothing Then For i = 4 To Range("A" & Rows.Count).End(xlUp).Row If Range("A" & i) = Date Then Range("C" & i) = Range("F1") + Range("G1") Next i End If End Sub
[/vba]
Можно так [vba]
Код
Private Sub Worksheet_Change(ByVal Target As Range) Dim i As Long If Target.Cells.Count > 1 Then Exit Sub If Not Intersect(Range("F1:G1"), Target) Is Nothing Then For i = 4 To Range("A" & Rows.Count).End(xlUp).Row If Range("A" & i) = Date Then Range("C" & i) = Range("F1") + Range("G1") Next i End If End Sub
Вход
Регистрация
Напомнить пароль
Автосумма
Часто используемые
ВПР
ЕСЛИ
СУММЕСЛИ
Финансовые
Логические
Текстовые
Даты и времени 
Ссылки и массивы 
Математические
Другие функции
Проверка свойств и значений
Баз данных
Математические
Обработки массивов
Обработки строк
Преобразования типов данных 
Загрузки данных
Работы с файлами
Обработки системных параметров
Обработки цвета
Работы с датами и временем
Преобразования в системы счисления
Финансовые
