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

Страницы: 1
Двойная проверка AND и OR
 

Код
for z = 2 to lastrow
  if a = b and c = f and (zzz=yyy or hhh=qqq) then 
...
end if
next z

Коллеги, подскажите будет ли у меня работать вот такая проверка Ключевой вопрос вот здесь: (zzz=yyy or hhh=qqq)
Изменено: Niky - 10.08.2017 12:53:13
Огругление времени в массиве
 
Коллеги,    
 
Задача следующая...  
В заданном массиве необходимо из всех ячеек со временем выделить те, которые имеют не РОВНЫЕ ЧАСЫ. Например 22:59 или 21:25  
Затем эти ячейки огруглить до ближайшего часа, НО.  
Округлить их нужно в ту сторону, где кол-во ячеек не превышает 4 штуки на один ровный час.  
Если для ячейки со значением 22:59 на 23:00 свободного места нет и на 22:00 тоже свободного места нет (везде стоит уже по 4 ячейки), то просто округлить в большую сторону
суммпроизв по нескрытым значениям
 
Добрый день!  
 
Подскажите плиз, есть ли написанные ранее функции, которые могли бы считать средневзвешенное значение, но только по установленному автофильтру.  
Вот что смог найти:  
 
Function dhAverageWithWeight(rgWeights As Range, rgValues As Range) _  
As Double  
  If (rgWeights.Count <> rgValues.Count) Then  
     ' Количество весов не соответствует количеству аргументов  
     dhAverageWithWeight = 0  
     Exit Function  
  End If  
 
  Dim i As Integer  
  Dim dblSum As Double        ' Сумма значений  
  Dim dblSumWeight As Double  ' Взвешенная сумма значений  
 
  ' Вычисление...  
  For i = 1 To rgWeights.Count  
     ' Взвешенной суммы значений  
     dblSumWeight = dblSumWeight + rgWeights(i) * rgValues(i)  
     ' Суммы значений  
     dblSum = dblSum + rgWeights(i)  
  Next  
 
  ' Возвращение средневзвешенного значения  
  dhAverageWithWeight = dblSumWeight / dblSum  
End Function  
 
Спасибо!
Разбить данные в ячейке на массив
 
Добрый день,  
 
прошу помощи, пытаюсь настроить отправку писем через лотус, нашел в инете часть кода, но к сожалению никак не могу понять как он будет работать в том случае если в ячейке получателя стоят несколько адресов, разделенных запятой (или другим символом)  
 
Что имеем:  
recipient = planning.Worksheets("Управление отправкой").Cells(number + 3, 7).Value  
В этой ячейке стоят три адреса разделенных запятой.  
 
Затем:  
Call MailDoc.ReplaceItemValue("SendTo", recipient)  
Оператор проставляющий в процесс лотуса значение КОМУ  
 
Что и где мне нужно поменять? По определенным соображениям прикрепить пример не смогу :(
Снова про СВОДНЫЕ ТАБЛИЦЫ!
 
Всем привет!  
 
Коллеги, мне очень нужно чтобы в сводной таблице отображалось процентное отношение кол-ва по полю к промежуточному итогу…  
 
Все описание в приложенном файле... Ковыряюсь уже второй день, никак не могу додумать как это сделать с помощью сводной.
Формат рядов данных в сводной диаграмме
 
При обновлении сводной таблицы форматы во всех сводных диаграммах сбрасываются на первоначальные...  
 
Как бороться? Автоформат в параметрах таблицы не спасает...
Страницы: 1
Наверх