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

Други вечер добрый!

Тысячу лет не писал на форуме, но сейчас без вашей помощи не обойтись.

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

В дальнейшем пользователи могут дополнять справочник новыми записями.

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

Други, приветствую!

Помогите, пожалуйста, со следующей задачкой.
Требуется автоматически проставлять километраж на начало рейса для конкретной машины исходя из имеющихся данных о километраже на конец предыдущего рейса. Пример с попыткой решения прилагаю.
Я остановился на том, что не могу задать формулой ближайшую дату окончания рейса, т.к. они могут идти не каждый день.

Други, добрый вечер!
Давненько не был на форуме... Так приятно возвращаться!  
Собственно вопрос сформулирован в названии темы.
Мне нужно возвращать формулами текстовые значения. Попробовал по-привычке массивом, но не получается.
Пример во вложении.
Подскажите решение.

Други, мне ныжно вычислить среднее геометрическое определенного показателя по поставщику за последние 3 даты. Проблема в том что данные идут не подряд. Не понимаю как в формуле задать диапазон дат, чтобы вычислить значение.  
Подскажите в каком направлении копать.

Форумчане, доброго времени суток!  
 
В сводной таблице нужно вывести в строке "Итоги" среднесуточный вес за несколько периодов.  
Никак не получается. Пример с двумя вариантами расчета во вложении.  
 
Возможно ли такое без танцев с бубнами?

Други, день добрый!  
 
Подскажите, как объединить два макроса. Оба тянут с сайта ЦБ курс бел.рубля, но первый - до 23.03.11 включительно, а второй после этой даты. Дело в том, что с этой даты поменялась разрядность соотношения рубль РФ/ рубль РБ, поэтому старый макрос стал работать некорректно для новых дат. В VBA, не шарю, только в общих чертах понимаю как это работает.  
Заранее благодарю за помощь.  
 
Sub GetBlrRub()  
  Dim sURI As String  
   Dim oHttp As Object  
   Dim htmlcode, outstr As String  
   Dim inpdate As Date  
   Dim d, m, y As Integer  
         
   inpdate = CDate(InputBox("Введите дату в формате ДД.ММ.ГГГГ", _  
       "Курс Белорусского рубля", Date))  
   d = Format(inpdate, "dd")  
   m = Format(inpdate, "mm")  
   y = Format(inpdate, "yyyy")  
   sURI = "http://cbr.ru/currency_base/daily.aspx?C_month=" & m & "&C_year=" _  
                 & y & "&date_req=" & d & "%2F" & m & "%2F" & y  
   On Error Resume Next  
   Set oHttp = CreateObject("MSXML2.XMLHTTP")  
   If Err.Number <> 0 Then  
       Set oHttp = CreateObject("MSXML.XMLHTTPRequest")  
   End If  
   On Error GoTo 0  
   If oHttp Is Nothing Then  
       Exit Sub  
   End If  
   oHttp.Open "GET", sURI, False  
   oHttp.Send  
   htmlcode = oHttp.responseText  
   outstr = Mid(htmlcode, InStr(1, htmlcode, "BYR") + 98, 7)  
   Set oHttp = Nothing  
   outstr = Replace(outstr, ",", ".")  
   ActiveCell.Value = Val(outstr) / 1000  
End Sub  
 
Sub GetBlrRub2()  
  Dim sURI As String  
   Dim oHttp As Object  
   Dim htmlcode, outstr As String  
   Dim inpdate As Date  
   Dim d, m, y As Integer  
         
   inpdate = CDate(InputBox("Введите дату в формате ДД.ММ.ГГГГ", _  
       "Курс Белорусского рубля", Date))  
   d = Format(inpdate, "dd")  
   m = Format(inpdate, "mm")  
   y = Format(inpdate, "yyyy")  
   sURI = "http://cbr.ru/currency_base/daily.aspx?C_month=" & m & "&C_year=" _  
                 & y & "&date_req=" & d & "%2F" & m & "%2F" & y  
   On Error Resume Next  
   Set oHttp = CreateObject("MSXML2.XMLHTTP")  
   If Err.Number <> 0 Then  
       Set oHttp = CreateObject("MSXML.XMLHTTPRequest")  
   End If  
   On Error GoTo 0  
   If oHttp Is Nothing Then  
       Exit Sub  
   End If  
   oHttp.Open "GET", sURI, False  
   oHttp.Send  
   htmlcode = oHttp.responseText  
   outstr = Mid(htmlcode, InStr(1, htmlcode, "BYR") + 99, 7)  
   Set oHttp = Nothing  
   outstr = Replace(outstr, ",", ".")  
   ActiveCell.Value = Val(outstr) / 10000  
End Sub

Други, день добрый!  
 
При открытии файла с защищенным листом на котором находится сводная таблица выскакивает следующее сообщение (см. вложение).  
 
Отчет сводной таблицы на листе только один, но есть доп формулы которые на сводную ссылаются.  
 
В чем может быть причина, хотя бы ориентировочно?

Форумчане, доброго времени суток.  
 
Давно уже на этом форуме взял код, который исправляет результат #ДЕЛ/0! и повесил его на кнопку. Все бы хорошо, но если в формуле содержится СУММПРОИЗВ, то макрос не срабатывает.  
Также не срабатывает в некоторых других случаях, конкретизировать условия не могу :), но что формулы были длинные это точно.  
 
Подскажите, почему так происходит и что с этим делать.  
Код прилагаю.  
 

Форумчане, добрый вечер.  
 
Подскажите пожалуйста что делать.  
 
Ситуация следующая. Есть файл условно с двумя листами, на одном - БД, на втором большое количество расчетных данных через формулы массива. Воспринимались эти формулы тяжело, т.к. они длинные и с большим количеством условий. Открыв для себя именованные диапазоны решил сделать формулы более читабельными. Сделал именованные динамические диапазоны, переписал все формулы. Воспринимать их, конечно, стало намного проще, НО  
1. скорость расчета значительно замедлилась  
2. На любое "движение" на листе,даже не затрагивающее данные производится пересчет.  
3. При работе с другими файлами Excel все время пытается пересчитывать данный файл, хотя внешних связей в нем нет.  
 
Можно ли бороться со всеми этими бедами, и если да, то как?  
Заранее благодарен за любую помощь.