Форум программистов, компьютерный форум, киберфорум
Наши страницы
VBA
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.80/5: Рейтинг темы: голосов - 5, средняя оценка - 4.80
Heroes
1 / 1 / 0
Регистрация: 12.06.2015
Сообщений: 93
1

Добавление в одну и ту же ячейку данных за новый день

10.07.2017, 15:58. Просмотров 952. Ответов 5
Метки нет (Все метки)

ЕСТЬ Формула Итого за месяц по суммированию ежедневных данных.
Каждый день в одну и ту же ячейку добавляются данные за новый день.
ТО есть в первый день месяца формула будет такой
Visual Basic
1
ActiveCell.FormulaR1C1 = "=RC[2]"
Visual Basic
1
2
3
4
ActiveCell.FormulaR1C1 = "=RC[2]+RC[4]"
 
ActiveCell.FormulaR1C1 = "=RC[2]+RC[4] ]+RC[6]"
ActiveCell.FormulaR1C1 = "=RC[2]+RC[4] ]+RC[6] +RC[8]"
и т.д.
В последний день(например июня), формула будет такой
Visual Basic
1
ActiveCell.FormulaR1C1="RC[2]+RC[4]+RC[6]+RC[8]+RC[10]+RC[12]+RC[14]+RC[16]+RC[18]+RC[20]+RC[22]+RC[24]+RC[26]+RC[28]+RC[30]+RC[32]+RC[34]+RC[36] "
Как прописать это в макрос?
0
Лучшие ответы (1)
QA
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
10.07.2017, 15:58
Ответы с готовыми решениями:

Перенос данных столбца в одну ячейку
Добрый день! Имеется столбец с числовыми данными. Каким образом или с помощью какой функции можно...

Запись данных из нескольких инпутов в одну ячейку бд
Здравствуйте. Так как на этому языку я учусь совсем недавно, у меня возникла проблема. Есть код...

Поместить несколько данных в одну ячейку excel?
Можно ли несколько данных поместить в одну ячейку excel!Например есть массив из трех элементов я...

Внесение данных в столбец через одну ячейку
Каким образом сделать так, что внося числовые данные в верхнюю ячейку столбца, все ранее внесенные...

Поиск данных по критерию и вывод в одну ячейку
Имеются две таблицы, на одной перечень кодов дефектов (Лист "Массив" поле "Код сводный" во...

5
toiai
3180 / 934 / 216
Регистрация: 29.05.2010
Сообщений: 2,030
10.07.2017, 18:40 2
Запиши все действия макроридером и будет макрос...
0
Heroes
1 / 1 / 0
Регистрация: 12.06.2015
Сообщений: 93
10.07.2017, 19:53  [ТС] 3
Сложность в том что формула меняется ежедневно в одной и той же ячейке, автозапись не сработает, ))
0
pashulka
3348 / 1795 / 756
Регистрация: 01.12.2010
Сообщений: 3,571
10.07.2017, 20:27 4
Лучший ответ Сообщение было отмечено Heroes как решение

Решение

Visual Basic
1
2
3
4
5
6
7
Private Sub Workbook_Open()
    Dim i%, f$
    For i = 1 To Day(Now)
        f = f & "+RC[" & i * 2 & "]"
    Next
    Mid(f, 1, 1) = "=": [A1].FormulaR1C1 = f
End Sub
1
Heroes
1 / 1 / 0
Регистрация: 12.06.2015
Сообщений: 93
11.07.2017, 15:56  [ТС] 5
Цитата Сообщение от pashulka Посмотреть сообщение
Visual Basic
1
2
3
4
5
6
7
Private Sub Workbook_Open()
    Dim i%, f$
    For i = 1 To Day(Now)
        f = f & "+RC[" & i * 2 & "]"
    Next
    Mid(f, 1, 1) = "=": [A1].FormulaR1C1 = f
End Sub

скажите пожалуйста что означает стрчока Mid(f, 1, 1) = "=": [A1].FormulaR1C1 = f?

Нюанс, формула должна остановиться в начале следующего месяца и продолжиться в другой ячейке (итого за новый месяц), и каждый новый месяц в новой ячейке.
Подскажите как это сделать?
0
pashulka
3348 / 1795 / 756
Регистрация: 01.12.2010
Сообщений: 3,571
11.07.2017, 16:04 6
1) Это замена самого первого + на = (в реальности можно обойтись и без этой замены, так что простор для творчества, есть)
2) Строго в течении года :

Visual Basic
1
Cells(Month(Now), 1) = f
0
11.07.2017, 16:04
Answers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
11.07.2017, 16:04

Вывод данных из разных полей БД в одну ячейку DataGrid
Здравствуйте! Столкнулась с такой проблемой. У меня есть таблица "Адрес" с такими полями ...

Добавление данных в ячейку DataGridView
Добрый день! подскажите как добавлять данные не во всю строку Datagrid, а лишь в его ячейку. vb...

Множественное добавление данных в ячейку
Вообщем такая задача: имеется БД интернет-магазина. Нужно чтобы пользователь мог заказать за один...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
6
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2019, vBulletin Solutions, Inc.