Макрос, фильтрующий по дате

@AnnaV · Регистрация: 06.04.2012

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

Здравствуйте!
Есть код, в котором нужно чтобы дата выбиралась не текущая (сегодняшняя, а предыдушая)
как это исправить?
спасибо заранее!

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
Sub Macro2()
'
' Macro2 Macro
'
 
'
 
Dim year As Integer
Dim month As Integer
Dim day As Integer
Dim x As String
 
Sheets("s").Select
Range("A1").Select
'MsgBox (Sheets("s").Range("A1").Value)
Cells(1, 1) = "= Today() - 1"
day = Left(Cells(1, 1), 2)
month = Mid(Cells(1, 1), 4, 2)
year = Mid(Cells(1, 1), 7, 4)
x = "2012 Q3"
 
Application.CutCopyMode = False
'--------------------------------
Sheets("k").Select
ActiveSheet.PivotTables("ARENA - MS Office PivotTable 12.0").PivotFields( _
"[Date].[Calendar Date]").AddPageItem _
"[Date].[Calendar Date].[Day].[" & year & "].[" & x & "].[" & month & "].[" & day & "]", True
'Time].[All Time].[ "].[" & x &
'"[Date].[Calendar Date].[Day].&[" & year & "].[" & month & "].[" & day & "]", True
'-----------------------------------------
 
Range("B5:E5").Select
Selection.Copy
Sheets("s").Select
Range("C5").Select
ActiveSheet.Paste
Application.CutCopyMode = False
End Sub

@analyst · 09.08.2012, 19:01

А в чем конкретно проблема? У вас в коде стоит предыдущий день.
Я так понимаю, что для сводной таблицы вы используете внешний источник - OLAP куб?

@Sasha_Smirnov · 09.08.2012, 19:05

У меня нет функции "= Today()", но

Visual Basic
1
Cells(1, 1) = "= Today() - 1"

и так уже берёт вчерашний день... Надо рыть!

@analyst · 09.08.2012, 19:14

Попробуйте так сделать:

Visual Basic
1
2
3
Dim sToday As String
sToday = "[Date].[Calendar Date].[Day].&[" & year & "].[" & x & "].[" & month & "].[" & day & "]"
ActiveSheet.PivotTables("ARENA - MS Office PivotTable 12.0").PageFields("[Date].[Calendar Date].[Day]").VisibleItemsList = Array(sToday)

Скорее всего ошибка связана с тем, что вы пользуетесь сводной таблицей 2007 или 2010 экселя, а ваша метод там работать не может.

Новые блоги и статьи Все статьи Все блоги /
Архитектура слоя интернета для сервера-слоя. Hrethgir 11.04.2026 В продолжение https:/ / www. cyberforum. ru/ blogs/ 223907/ 10860. html Знаешь что я подумал? Раз мы все источники пишем в голове ветки, то ничего не мешает добавить в голову такой источник, который сам. . .	Подстановка значения реквизита справочника в табличную часть документа Maks 10.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: при выборе сотрудника (справочник Сотрудники) в ТЧ документа. . .	Очистка реквизитов документа при копировании Maks 09.04.2026 Алгоритм из решения ниже применим как для типовых, так и для нетиповых документов на самых различных конфигурациях. Задача: при копировании документа очищать определенные реквизиты и табличную. . .	модель ЗдравоСохранения 8. Подготовка к разному выполнению заданий anaschu 08.04.2026 https:/ / github. com/ shumilovas/ med2. git main ветка * содержимое блока дэлэй из старой модели теперь внутри зайца новой модели 8ATzM_2aurI
Блокировка документа от изменений, если он открыт у другого пользователя Maks 08.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа, разработанного в конфигурации КА2. Задача: запретить редактирование документа, если он открыт у другого пользователя. / / . . .	Система безопасности+живучести для сервера-слоя интернета (сети). Двойная привязка. Hrethgir 08.04.2026 Далее были размышления о системе безопасности. Сообщения с наклонным текстом - мои. А как нам будет можно проверить, что ссылка наша, а не подделана хулиганами, которая выбросит на другую ветку и. . .	Модель ЗдрввоСохранения 7: больше работников, больше ресурсов. anaschu 08.04.2026 работников и заданий может быть сколько угодно, но настроено всё так, что используется пока что только 20% kYBz3eJf3jQ	Дальние перспективы сервера - слоя сети с космологическим дизайном интефейса карты и логики. Hrethgir 07.04.2026 Дальнейшее ближайшее планирование вывело к размышлениям над дальними перспективами. И вот тут может быть даже будут нужны оценки специалистов, так как в дальних перспективах всё может очень сильно. . .

@analyst 437 / 144 / 9 Регистрация: 12.01.2009 Сообщений: 678 Записей в блоге: 1
	09.08.2012, 19:01
	А в чем конкретно проблема? У вас в коде стоит предыдущий день. Я так понимаю, что для сводной таблицы вы используете внешний источник - OLAP куб? 0