Макрос для суммы значений

@multiki · Регистрация: 30.04.2013

Студворк — интернет-сервис помощи студентам

Добрый вечер! Подскажите пожалуйста по макросу.

1. Имеется табличка с датами. Напротив каждой даты определенная сезонность.

2. Необходимо с помощью Userform указать первую и конечную даты, а макрос должен посчитать сумму значений поля сезонность в необходимом интервале

т.е. например с 15.05.13 по 26.05.13 значит макрос должен просуммировать =СУММ(C16:C58) и получить 26,54.

Я бы воспользовался переменной data. Где например бы указал data + n, но как добиться конечной даты с данной переменной, нужен какой-то цикл? (при условии что даты я могу постоянно менять).
Файл во вложении. Спасибо. Жду советов.
Макрос.xls

Нижняя Миниатюра и фаил во вложении пустой

@Pavel55 · 30.05.2013, 01:32

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
Private Sub ComboBox1_Change()
    Me.ComboBox1.Value = Format(Me.ComboBox1.Value, "DD/MM/YYYY")
End Sub
 
Private Sub ComboBox2_Change()
    Me.ComboBox2.Value = Format(Me.ComboBox2.Value, "DD/MM/YYYY")
End Sub
 
Private Sub UserForm_Initialize()
    Dim Rng As Range
    With Worksheets("Лист1")
        Set Rng = .Range("B2:B" & .Cells(.Rows.Count, "B").End(xlUp).Row)
    End With
    Me.ComboBox1.RowSource = Rng.Address
    Me.ComboBox2.RowSource = Rng.Address
End Sub
 
Private Sub CommandButton1_Click()
    Dim Rng As Range, Arr(), i As Long, iSum As Single
    
    If Me.ComboBox1.Text = "" Or Me.ComboBox2.Text = "" Then
        MsgBox "Укажите сроки!", vbExclamation, "Внимание"
        Exit Sub
    End If
    
    If Me.ComboBox1.Value > Me.ComboBox2.Value Then
        MsgBox "Первая дата должна быть меньше второй!", vbExclamation, "Внимание"
        Exit Sub
    End If
    
    With Worksheets("Лист1")
        Set Rng = .Range("B2:C" & .Cells(.Rows.Count, "B").End(xlUp).Row)
    End With
    Arr = Rng.Value
    iSum = 0
    For i = LBound(Arr, 1) To UBound(Arr, 1)
        If Arr(i, 1) >= CDate(Me.ComboBox1.Value) And Arr(i, 1) <= CDate(Me.ComboBox2.Value) Then iSum = iSum + CSng(Arr(i, 2))
    Next i
    MsgBox "Сезонность равна: " & iSum, vbInformation, "Сезонность"
End Sub

@multiki · 30.05.2013, 16:10 **[ТС]**

Отлично! Только я решил себе с текст боксом сделать, все работает огромное спасибо. Есть вопрос, касаемо данной тематики. У меня есть ко всему прочему куб OLAP, в котором я тоже выбираю опредленный период.
До некоторого времени я использовал этот код:

Dim data1, data2, data3, data4, data5
Data4 = (Format(Date - 5, "yyyy-mm-dd"))
data5 = (Format(Date - 4, "yyyy-mm-dd"))
data6 = (Format(Date - 3, "yyyy-mm-dd"))
data7 = (Format(Date - 2, "yyyy-mm-dd"))
Data8 = (Format(Date - 1, "yyyy-mm-dd"))

'Использую записанные переменные в программный код куба OLAP.
Sheets("Лист").PivotTables("СводнаяТабли ца").PivotFields( _
"[Календарь].[Месяцы].[День]").VisibleItemsList = Array("")
Sheets("Лист").PivotTables("СводнаяТабли ца").PivotFields( _
"[Календарь].[Месяцы].[День]").VisibleItemsList = Array("")
Sheets("Лист").PivotTables("СводнаяТабли ца").PivotFields( _
"[Календарь].[Месяцы].[День]").VisibleItemsList = Array( _
"[Календарь].[Месяцы].[День].&[" & data1 & "T00:00:00]", _
"[Календарь].[Месяцы].[День].&[" & data2 & "T00:00:00]", _
"[Календарь].[Месяцы].[День].&[" & Data3 & "T00:00:00]", _
"[Календарь].[Месяцы].[День].&[" & Data4 & "T00:00:00]", _
"[Календарь].[Месяцы].[День].&[" & data5 & "T00:00:00]")

Но теперь период очень часто меняется и отсчитывать его от data не корректно.
Хочу придумать способ при котором в текстбоксе также можно будет указать определенный период, а макрос укажет все необходимые значения в кубе. Например с 16.05.2013 - 21.07.2013. Подкините идею?

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Реализация движения на Box2D v3 - трение и коллизии с повёрнутыми стенами 8Observer8 20.02.2026 Содержание блога Box2D позволяет легко создать главного героя, который не проходит сквозь стены и перемещается с заданным трением о препятствия, которые можно располагать под углом, как верхнее. . .	Конвертировать закладки radiotray-ng в m3u-плейлист damix 19.02.2026 Это можно сделать скриптом для PowerShell. Использование . \СonvertRadiotrayToM3U. ps1 <path_to_bookmarks. json> Рядом с файлом bookmarks. json появится файл bookmarks. m3u с результатом. # Check if. . .	Семь CDC на одном интерфейсе: 5 U[S]ARTов, 1 CAN и 1 SSI Eddy_Em 18.02.2026 Постепенно допиливаю свою "многоинтерфейсную плату". Выглядит вот так: https:/ / www. cyberforum. ru/ blog_attachment. php?attachmentid=11617&stc=1&d=1771445347 Основана на STM32F303RBT6. На борту пять. . .	Камера Toupcam IUA500KMA Eddy_Em 12.02.2026 Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .
И ясному Солнцу zbw 12.02.2026 И ясному Солнцу, и светлой Луне. В мире покоя нет и люди не могут жить в тишине. А жить им немного лет.	«Знание-Сила» zbw 12.02.2026 «Знание-Сила» «Время-Деньги» «Деньги -Пуля»	SDL3 для Web (WebAssembly): Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 12.02.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами и вызывать обработчики событий столкновения. . . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 11.02.2026 Содержание блога Библиотека SDL3 содержит встроенные инструменты для базовой работы с изображениями - без использования библиотеки SDL3_image. Пошагово создадим проект для загрузки изображения. . .

@multiki 0 / 0 / 0 Регистрация: 30.04.2013 Сообщений: 21

	Макрос для суммы значений 30.05.2013, 00:50. Показов 2973. Ответов 2 Метки нет (Все метки) Добрый вечер! Подскажите пожалуйста по макросу. 1. Имеется табличка с датами. Напротив каждой даты определенная сезонность. 2. Необходимо с помощью Userform указать первую и конечную даты, а макрос должен посчитать сумму значений поля сезонность в необходимом интервале т.е. например с 15.05.13 по 26.05.13 значит макрос должен просуммировать =СУММ(C16:C58) и получить 26,54. Я бы воспользовался переменной data. Где например бы указал data + n, но как добиться конечной даты с данной переменной, нужен какой-то цикл? (при условии что даты я могу постоянно менять). Файл во вложении. Спасибо. Жду советов. Макрос.xls Нижняя Миниатюра и фаил во вложении пустой 0

@multiki 0 / 0 / 0 Регистрация: 30.04.2013 Сообщений: 21
	30.05.2013, 16:10 [ТС]
	Отлично! Только я решил себе с текст боксом сделать, все работает огромное спасибо. Есть вопрос, касаемо данной тематики. У меня есть ко всему прочему куб OLAP, в котором я тоже выбираю опредленный период. До некоторого времени я использовал этот код: Dim data1, data2, data3, data4, data5 Data4 = (Format(Date - 5, "yyyy-mm-dd")) data5 = (Format(Date - 4, "yyyy-mm-dd")) data6 = (Format(Date - 3, "yyyy-mm-dd")) data7 = (Format(Date - 2, "yyyy-mm-dd")) Data8 = (Format(Date - 1, "yyyy-mm-dd")) 'Использую записанные переменные в программный код куба OLAP. Sheets("Лист").PivotTables("СводнаяТабли ца").PivotFields( _ "[Календарь].[Месяцы].[День]").VisibleItemsList = Array("") Sheets("Лист").PivotTables("СводнаяТабли ца").PivotFields( _ "[Календарь].[Месяцы].[День]").VisibleItemsList = Array("") Sheets("Лист").PivotTables("СводнаяТабли ца").PivotFields( _ "[Календарь].[Месяцы].[День]").VisibleItemsList = Array( _ "[Календарь].[Месяцы].[День].&[" & data1 & "T00:00:00]", _ "[Календарь].[Месяцы].[День].&[" & data2 & "T00:00:00]", _ "[Календарь].[Месяцы].[День].&[" & Data3 & "T00:00:00]", _ "[Календарь].[Месяцы].[День].&[" & Data4 & "T00:00:00]", _ "[Календарь].[Месяцы].[День].&[" & data5 & "T00:00:00]") Но теперь период очень часто меняется и отсчитывать его от data не корректно. Хочу придумать способ при котором в текстбоксе также можно будет указать определенный период, а макрос укажет все необходимые значения в кубе. Например с 16.05.2013 - 21.07.2013. Подкините идею? 0