Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Пользователи » beznika
Выбрать дату в календаре…Выбрать дату в календаре

Страницы: 1
excel с макросом закрывается
 
#
14.11.2023 13:30:27
Подскажите, пожалуйста, что я делаю не так?
Excel с запросами и моделью в Pivot закрывается на этапе обновления сводных таблиц (исходник - результат PQ запросов)

Sub RefreshPQ()

Dim ws As Worksheet, qt As QueryTable, oc As Object, IsBG_Refresh As Boolean
   Dim i As Long, spisok
   spisok = Array("Çàïðîñ — ðåø_äåòàëü", "Çàïðîñ — ðåø_èñòî÷íèê", "Çàïðîñ — ðåø_ñâîäíàÿ", "Çàïðîñ — ðåø_ñòàòèñòèêà", "Çàïðîñ — ðåø_ñëóæáà", "Çàïðîñ — ðåø_îïåðàòîð", "Çàïðîñ — ðåø_îò÷åò", "Çàïðîñ — ïîâ_äåòàëü", "Çàïðîñ — ïîâ_èñòî÷íèê", "Çàïðîñ — ïîâ_ïåðèîäè÷íîñòü", "Çàïðîñ — ïîâ_ñëóæáà", "Çàïðîñ — ïîâ_îïåðàòîð", "Çàïðîñ — ïîâ_îò÷åò")
       
 
   For i = LBound(spisok) To UBound(spisok)
       
      Set oc = ThisWorkbook.Connections(spisok(i))
      IsBG_Refresh = oc.OLEDBConnection.BackgroundQuery
      oc.OLEDBConnection.BackgroundQuery = False
      oc.Refresh
      oc.OLEDBConnection.BackgroundQuery = IsBG_Refresh
   Next
   
Application.DisplayAlerts = False
Sheets("ñâîä ïîâòîðíûå").PivotTables("Ñâîäíàÿ 1").PivotCache.Refresh
Sheets("ñâîä ïîâòîðíûå").PivotTables("Ñâîäíàÿ 2").PivotCache.Refresh
Sheets("ñâîä ïîâòîðíûå").PivotTables("Ñâîäíàÿ 3").PivotCache.Refresh
Sheets("ñâîä ïîâòîðíûå").PivotTables("Ñâîäíàÿ 4").PivotCache.Refresh
Sheets("ñâîä ïîâòîðíûå").PivotTables("Ñâîäíàÿ 5").PivotCache.Refresh
Sheets("ñâîä ïîâòîðíûå").PivotTables("Ñâîäíàÿ 6").PivotCache.Refresh
Sheets("ñâîä ðåøåííûå").PivotTables("Ñâîäíàÿ 1").PivotCache.Refresh
Sheets("ñâîä ðåøåííûå").PivotTables("Ñâîäíàÿ 2").PivotCache.Refresh
Sheets("ñâîä ðåøåííûå").PivotTables("Ñâîäíàÿ 3").PivotCache.Refresh
Sheets("ñâîä ðåøåííûå").PivotTables("Ñâîäíàÿ 4").PivotCache.Refresh
Sheets("ñâîä ðåøåííûå").PivotTables("Ñâîäíàÿ 5").PivotCache.Refresh
Sheets("ñâîä ðåøåííûå").PivotTables("Ñâîäíàÿ 6").PivotCache.Refresh
Application.DisplayAlerts = True

End Sub
 
Перейти    
минусы Query 64 или можно решить?, помогите, на 64 версии не помогает снятие флажка "задать ширину столбца"
 
#
06.12.2022 06:11:15
Пока решила макросом, других вариантов нет?
 
Перейти    
минусы Query 64 или можно решить?, помогите, на 64 версии не помогает снятие флажка "задать ширину столбца"
 
#
06.12.2022 05:44:44
Помогите, пожалуйста, как решить проблему?
С переходом на 64-разрядный Office не помогает снятие флажка "задать ширину столбца" в свойствах таблицы Query
Мне очень надо зафиксировать ширину.
Заранее Спасибо!!!
 
Перейти    
помогите с макросом по обновлению запросов PQ, *
 
#
29.08.2022 08:21:59
evgeniygeo, спасибо!

Задержка нужна на время пока данные выгружаются на страницу, запрос с объединением, у меня процессор примерно еще минуту жестко перегружается.
В свойствах галку снимала с "задать ширину столбца", не помогает.
Может я что-то не так делаю? Загрузка бывает более 90%
 
Перейти    
помогите с макросом по обновлению запросов PQ, *
 
#
29.08.2022 01:24:01
Очень прошу помощи, а то я совсем дура)
хотелка: последовательно обновлять запросы: на листе "таймер" фиксировать время обновления и скажем через 1 мин переходить к обновлению следующего (желательно при ошибке в предыдущем, в любом случае переходить к следующему)
Массивы будут большие, надеюсь ПК потянет. Заранее спасибо!!!

Вот что есть, но это начало и похоже совсем не то(((

Sub RefreshPQ1()
Dim dbStart#

On Error Resume Next
 [_21_обр_ЧПНТ].Delete
On Error GoTo 0

With ThisWorkbook.Connections("21_обр_ЧПНТ").OLEDBConnection
.BackgroundQuery = False
dbStart = Timer
.Refresh

End With

MsgBox "Время обновления: " & Format(Timer - dbStart, "0 \сек."), vbOKOnly

End Sub
 
Перейти    
Обновление ссылок без открытия книг
 
#
22.06.2021 22:42:04
подскажите, плиз, как макросом открыть, обновить, закрыть ?
например: книгу "Источник"   C:\Users\Admin\Documents\01.06.2021
или может как то можно без указания наименования, все книги в папке открыть, обновить, закрыть?
Изменено: vikttur - 22.06.2021 22:49:50
 
Перейти    
Обновление ссылок без открытия книг
 
#
22.06.2021 22:08:16
Помогите, пожалуйста, что только не делала, не обновляются данные без открытия книг - источников, их будет не мало

использую ДВССЫЛ, прописываю путь к книге, наименование книги в книге назначения (соответствуют отчетному периоду), но это наверное неважно...
почему автоматическое обновление происходит только при открытии источника? может быть макросом как то можно без открытия?
другие ограничения сняты (в параметрах, связях), не пойму в чем проблема.
Изменено: vikttur - 22.06.2021 22:49:28
 
Перейти    
макрос поиска строки и замены текста в нескольких столбцах
 
#
14.06.2021 19:56:45
Ігор Гончаренко, спасибо,
извините, что сразу не совсем верно сформулировала задачу, но возможно ли еще чуток доработать?
сейчас на листах столбцы в одинаковой последовательности, и макрос подставляет в исходник значения двух столбцов с листа2.
я хотела на листе2 указывать только столбцы необходимые к замене и в исходнике они будут непоследовательны.
можно, например, при нахождении заявки в списке заменить в исходнике только значения столбцов N и Q, на значения столбцов B и C из списка?

Заранее благодарю!
 
Перейти    
макрос поиска строки и замены текста в нескольких столбцах
 
#
14.06.2021 11:01:21
Ігор Гончаренко, спасибо огромное, это чудо. Только еще помогите скорректировать, а то сама туплю...
Табличная часть в исходнике всегда начинается с 10 строки, столбца B, номер заявки находится в столбце K
Изменено: beznika - 14.06.2021 11:03:18
 
Перейти    
макрос поиска строки и замены текста в нескольких столбцах
 
#
14.06.2021 05:24:13
Помогите, пожалуйста. Массив большой, высота заранее неизвестна, расположение столбцов одинаковое.
В исходнике "Лист1" в столбце А нужно найти заявки из списка "Лист2" и заменить,
например, исходный текст на листе1 в столбцах D и E на текст определенный списком на листе2 в столбцах B и C.

Надеюсь, что понятно объяснила, что хочу. Заранее благодарю за помощь!
Изменено: beznika - 14.06.2021 05:25:42
 
Перейти    
проблема генератора для репрезентативной выборки с макросами, нужна помощь
 
#
16.07.2019 14:26:38
а еще: цитата - не бездумая копия предыдущего сообщения [МОДЕРАТОР]

Прошу прощения, если бы я понимала, что исключить из этой кучи, не поломав, я бы обязательно это сделала. Очень надеюсь на вашу помощь.

Заранее благодарю!
 
Перейти    
проблема генератора для репрезентативной выборки с макросами, нужна помощь
 
#
16.07.2019 13:23:38
Люди дорогие, помогите, пожалуйста, с проблемой.

На вкладке "Исходник" формулой рассчитывается число выборки (254 шт) и по сути на других двух вкладках должно генериться 254 строки, а по факту 385 строк при любом раскладе. В чем проблема, не понимаю).

Помогите, плиз

Изменено: beznika - 16.07.2019 13:24:07
 
Перейти    
Поиск последнего значения в массиве
 
#
23.01.2019 00:21:36
БМВ, От всей души спасибо!
 
Перейти    
Поиск последнего значения в массиве
 
#
23.01.2019 00:02:57
Прошу вас помочь, нужно найти последнее значение  в массиве.
По уже добытой формуле, определяется только первое, что изменить, что бы получить первое не сверху вниз, а снизу вверх? надеюсь я понятно объяснила свою хотелку)
Код
 =ЕСЛИОШИБКА(ИНДЕКС($F$1:$F1;ПОИСКПОЗ(1;($L$1:$L1<L2)*($L$1:$L1>=L2-7)*($I$1:I1=I2)*($J$1:J1=J2)*($K$1:K1=K2);));"")

Прилагаю пример, в ячейке M4 как то нужно получить Литина К.С вместо Ситки О.Е

Спасибо!
Изменено: beznika - 23.01.2019 01:28:58
 
Перейти    
Число повторов уникальных значений в определенный период времени
 
#
24.07.2018 11:26:05
БМВ, Спасибо!
Получилось, я поняла, где я тупила :oops:  
 
Перейти    
Число повторов уникальных значений в определенный период времени
 
#
23.07.2018 11:45:19
БМВ, прошу прощения за мою глупость, но что то у меня не получается. Я отправлю часть своей  выгрузки, если не затруднит, помогите, плиз)))
Мне бы хотелось видеть ФИО оператора, обращение которого было первичным для повторного.
Заранее, спасибо!
Изменено: beznika - 24.07.2018 10:49:10
 
Перейти    
Число повторов уникальных значений в определенный период времени
 
#
06.07.2018 10:11:54
БМВ, Спасибо! Вы гений!

Как жаль, что я так не прошарена в этом :oops:  
 
Перейти    
Число повторов уникальных значений в определенный период времени
 
#
05.07.2018 22:34:09
БМВ,Вы мне очень помогли. Может подскажете, еще...
Повторное обращение за предшествующие 7 дней определяется...а можно ли как то определить, какое именно обращение является первичным для этого повторного?
 
Перейти    
Число повторов уникальных значений в определенный период времени
 
#
04.07.2018 08:30:37
БМВ,спасибо! Свою ошибку признаю.
И их помощь, мне тоже полезна...
Изменено: beznika - 04.07.2018 08:35:57
 
Перейти    
Число повторов уникальных значений в определенный период времени
 
#
04.07.2018 00:03:24
БМВ, Оооо...Супер...то, что нужно...

Спасибо!!!
 
Перейти    
Число повторов уникальных значений в определенный период времени
 
#
03.07.2018 23:47:48
БМВ, Извините за сумбур...действительно непонятно...вскипаю)
мне нужно вычислить по каждому обращению клиента, является ли оно повторным для этого клиента относительно предшествующего периода, равного 7-ми суткам ...таким образом я увижу, что из общего количества (16 обращений), 11 являются повторными.

Помогите, плиз...
№Клиентдата и время   обращениявычислить
1          Фамилия 1            12.05.18   20:55
2Фамилия 212.05.18   23:55
3Фамилия 314.05.18   20:55
4Фамилия 115.05.18   22:55повторное за   предшествующие 7 дней
5Фамилия 116.05.18   11:00повторное за   предшествующие 7 дней
6Фамилия 117.05.18   20:15повторное за   предшествующие 7 дней
7Фамилия 218.05.18   20:55повторное за   предшествующие 7 дней
8Фамилия 219.05.18   20:18повторное за   предшествующие 7 дней
9Фамилия 220.05.18   20:05повторное за   предшествующие 7 дней
10Фамилия 321.05.18   20:00повторное за   предшествующие 7 дней
11Фамилия 422.05.18   23:00
12Фамилия 323.05.18   20:55повторное за   предшествующие 7 дней
13Фамилия 424.05.18   20:55повторное за   предшествующие 7 дней
14Фамилия 325.05.18   20:13повторное за   предшествующие 7 дней
15Фамилия 326.05.18   20:45повторное за   предшествующие 7 дней
16Фамилия 127.05.18   20:52
Изменено: beznika - 03.07.2018 23:58:30
 
Перейти    
Число повторов уникальных значений в определенный период времени
 
#
03.07.2018 22:50:32
Что то не получается. Например, ФАМИЛИЯ 1 после первичного обращения в период 7 дней обращался повторно, но после этих 7 дней он обратился еще раз и после этого обращения все последующие в периоде следующих 7 дней считаются повторными.
Можно ли в случае повторяющегося уникального значения за предшествующие 7 дней просто обозначить его повторяющимся, что бы потом посчитать количество и долю повторных от общей базы обращений?

И с выпадающим списком не подойдет...клиентская база большая.
 
Перейти    
Число повторов уникальных значений в определенный период времени
 
#
03.07.2018 21:51:59
Огромные спасибки, за оперативную помощь...колдую...
Изменено: beznika - 03.07.2018 21:52:20
 
Перейти    
Число повторов уникальных значений в определенный период времени
 
#
03.07.2018 21:24:51
Помогите, пожалуйста. Дайте совет.
Нужно вычислить число повторных обращений определенного клиента в периоде 168 часов с момента первого обращения  (дата и время обращения + 7 суток. Выгрузка очень объемная, не могу сообразить сама.
Например: фамилия 1 после первичного обращения 12.05.18 в 20:55 в период последующих 168 часов обратился еще 3 раза.
Заранее благодарю за помощь!!!

Фамилия 112.05.18 20:55
Фамилия 212.05.18 23:55
Фамилия 314.05.18 20:55
Фамилия 115.05.18 22:55
Фамилия 116.05.18 11:00
Фамилия 117.05.18 20:15
Фамилия 218.05.18 20:55
Фамилия 219.05.18 20:18
Фамилия 220.05.18 20:05
Фамилия 321.05.18 20:00
Фамилия 422.05.18 23:00
Фамилия 323.05.18 20:55
Фамилия 424.05.18 20:55
Фамилия 325.05.18 20:13
Фамилия 326.05.18 20:45
Фамилия 127.05.18 20:52
 
Перейти    
Страницы: 1
Наверх