Задача следующая... В заданном массиве необходимо из всех ячеек со временем выделить те, которые имеют не РОВНЫЕ ЧАСЫ. Например 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) Оператор проставляющий в процесс лотуса значение КОМУ
Что и где мне нужно поменять? По определенным соображениям прикрепить пример не смогу :(