![]() Главная страница Случайная страница КАТЕГОРИИ: АвтомобилиАстрономияБиологияГеографияДом и садДругие языкиДругоеИнформатикаИсторияКультураЛитератураЛогикаМатематикаМедицинаМеталлургияМеханикаОбразованиеОхрана трудаПедагогикаПолитикаПравоПсихологияРелигияРиторикаСоциологияСпортСтроительствоТехнологияТуризмФизикаФилософияФинансыХимияЧерчениеЭкологияЭкономикаЭлектроника |
Преобразование номера месяца в его название
Листинг 2.64. Название месяца Function dhMonthName(intMonth As Integer) As String ' Возвращение имени месяца по его номеру (intMonth _ является номером элемента в массиве с названиями месяцев) dhMonthName = Choose(intMonth, " Январь", " Февраль", " Март", _ " Апрель", " Май", " Июнь", " Июль", " Август", " Сентябрь", _ " Октябрь", " Ноябрь", " Декабрь") End Function Расчет суммы первых значений диапазона Листинг 2.65. Функция dhNSum Function dhNSum(ByVal intCount As Integer, _ rgValues As Range) As Double Dim i As Integer Dim dblSum As Double
If intCount > rgValues.Count Then ' Задано количество элементов большее, чем есть _ в переданном диапазоне intCount = rgValues.Count End If ' Расчет суммы первых intCount элементов For i = 1 To intCount dblSum = dblSum + rgValues(i) Next i ' Возврат результата dhNSum = dblSum End Function Поиск последней непустой ячейки диапазона Листинг 2.66. Функция dhLastUsedCell Function dhLastUsedCell(rgRange As Range) As Long Dim lngCell As Long
' Пойдем по диапазону с конца (тогда первая попавшаяся _ заполненная ячейка и будет искомой) For lngCell = rgRange.Count To 1 Step -1 If Not IsEmpty(rgRange(lngCell)) Then ' Нашли непустую ячейку dhLastUsedCell = lngCell Exit Function End If Next lngCell ' Непустую ячейку не нашли dhLastUsedCell = 0 End Function Поиск последней непустой ячейки столбца Листинг 2.67. Функция dhLastColUsedCell Function dhLastColUsedCell(rgColumn As Range) As Variant ' Вывод значения последней непустой ячейки столбца dhLastColUsedCell = rgColumn.Parent.Cells(Rows.Count, _ rgColumn.Column).End(xlUp).Value End Function Поиск последней непустой ячейки строки Листинг 2.68. Функция dhLastRowUsedCell Function dhLastRowUsedCell(rgRow As Range) As Variant ' Вывод значения последней непустой ячейки строки dhLastRowUsedCell = rgRow.Parent.Cells(rgRow.Row, 256). _ End(xlToLeft).Address End Function Подсчет количества ячеек в диапазоне, содержащих указанные значения Листинг 2.69. Функция dhCountSomeCells Function dhCountSomeCells(rgRange As Range, dblMin As Double, _ dblMax As Double) As Long ' Расчет количества ячеек со значениями от dblMin до dblMax _ с использованием стандартной функции CountIf With Application.WorksheetFunction dhCountSomeCells =.CountIf(rgRange, " > =" & dblMin) - _ .CountIf(rgRange, " > " & dblMax) End With End Function
|