Выбрать дату в календареВыбрать дату в календаре

Страницы: 1
power query : сумма накопительным итогом
 
Доброе утро!

есть ли возможность в Power Query  рассчитать сумму накопительным итогом?
Строка быстрого доступа, возможно ли ее востановить
 
Добрый день!

поменяла компьютер и не хочется в ручную востанавливать строку быстрого доступа в экселе. Возможно ли это сделать переместив какой-нибудь файл из корневой папки? Если да, то какой.
Добавление данных в легенду VBA
 
Столкнулась с проблемой: нужно построить график, данные и подписи которого находятся через несколько строк друг от друга. Подскажите, как это возможно сделать.

Пробовала :
Код
       ActiveChart.SetSourceData Source:=Range(Cells(28, 3), Cells(28, 8))
       ActiveChart.SetDefaultChart = Range(Cells(2, 3), Cells(2, 8))
WaitForResponse в get запросах
 
Добрый день!

пытаюсь разобраться с гет запросом:
Код
   ogrn = Cell.Value
   Dim sURL As String
   sURL = "https://xn--c1aubj.xn--80asehdb/%D0%B8%D0%BD%D1%82%D0%B5%D0%B3%D1%80%D0%B0%D1%86%D0%B8%D1%8F/%D0%BA%D0%BE%D0%BC%D0%BF%D0%B0%D0%BD%D0%B8%D0%B8/?%D0%BE%D0%B3%D1%80%D0%BD=" & ogrn

   Set objHTTP = CreateObject("MSXML2.XMLHTTP.6.0")
   objHTTP.Open "get", sURL, True
   objHTTP.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
   objHTTP.Send "{range:9129370}"
   
   objhttp.WaitForResponse   'На этой строке возникает ошибка

  
  result = objHTTP.responseText

  Set objHTTP = Nothing
  Dim Json As Object


ogrn- любой номер огрн, как пример 304027419500123
на строке  objhttp.WaitForResponse возникает ошибка. Почему?
Копирование каждого 5го значения
 
Есть таблица с повторяющимися значениями (см. пример) можно ли универсальным способом (через макрос) скопировать каждую 5 строчку

пока что я придумала :
Код
lastrow = Cells(Rows.Count, "A").End(xlUp).Row
c = 2
For i = 2 To lastrow
If Cells(i, 1).Value = Cells(i - 1, 1).Value Then
  x = x + 1
Else
  x = 1
End If

If x = 5 Then
Sheets(2).Range(Sheets(2).Cells(c, 1), Sheets(2).Cells(c, 2)).Value = Range(Sheets(1).Cells(i, 1), Sheets(1).Cells(i, 2)).Value
c = c + 1
End If
Next
"счётеслимн" не хочет считать
 
Добрый день!

использую формулу "счётеслимн" одним из условий является - И(">01.02.2016";"<01.03.2016"). Несмотря на то, что есть строки, подходящие под условие в диапозоне, он выдает "0"

Почему?
Защита листа и группировка
 
При использовании защиты листа отказывается работать группировка. т.е. массив не сворачивается. Как можно исправить?
Подсчет закрытых заявок: не работает СЧЁТЕСЛИМН
 
Доброе утро. У меня существует БД, где коллеги отмечают этапы движения заявки (пример лист "ТЕСТ"). Мне надо было создать табл., которая бы считала, сколько заявок было закрыто на этой неделе (лист ВОПРОС). Но, что то пошло не так и в форме не работает =СЧЁТЕСЛИМН.

вопрос : почему?
Добавление листов в excel файл из 1С
 
Я думаю, все сталкивались с однолистовым excel файлом из 1С, у которого на первый взгляд, нет возможности добавить листы.

Может кто-нибудь знает решение этой проблемы?
for each cell with formula
 
Добрый день. Подскажите как начать цикл в VBA для ячеек только с формулой?
Записать Суммесли в VBA (.FormulaLocal)
 
Не могу совладать с формулой:
Cells(x, 22).FormulaLocal = "=Суммесли(y20:z"&x&";""usd"";s20:u"&x&")"
при её написании vba ругается ошибкой : "expected :end of statement". Где ошибка  ? :sceptic:
SumIf в VBA
 
Подскажите, как можно исправить ошибку в строке 4:
Код
      For Each cell In rng2
      c = cell.Row
      Range(Cells(x, 22), Cells(x, 24)).Merge
      Range(Cells(x, 22), Cells(x, 24)).FormulaR1C1 = "=SUMIF(R[-17]C[3]:R[-2]C[4],R" c "C33,R[-17]C:R[-2]C[2])"
      x=x+1
      Next cell

Мне нужно, чтобы появилась в ячейках формула с абсолютной ссылкой на эту ячейку.
в Refedit не работает сочетание горячих клавиш.
 
Скажите, почему может  в Refedit не работать сочетание горячих клавиш для выделения диапазона?
За что отвечает свойство tabindex в Refedit?
Страницы: 1
Наверх