Деление диапазона на 100
Sub Test23()
Dim iRange As Range
Dim kRange As Range
i = 1
j = 1
m = 5
n = 2
Set iRange = Range(Cells(i, j), Cells(m, n))
For Each kRange In iRange
kRange.Value = kRange.Value / 100
Next
End Sub
Возведение каждой ячейки диапазона в квадрат
Суммирование данных только видимых ячеек
Function СуммаВид(Диапазон) As Double
' Просмотр всех ячеек заданного диапазона
For Each Ячейка In Диапазон
' Анализ только видимых ячеек
If Not Ячейка.EntireRow.Hidden And Not _
Ячейка.EntireColumn.Hidden Then
' При расчете учитываются только ячейки _
с численными значениями
If IsNumeric(Ячейка) = True Then
СуммаВид = СуммаВид + Ячейка
End If
End If
Next
End Function
Сумма ячеек с числовыми значениями
Sub CalculateSum()
Dim i As Integer
Dim intSum As Integer
' Расчет суммы ячеек столбца "A" (с первой по пятую)
For i = 1 To 5
If IsNumeric(Cells(i, 1)) Then
intSum = intSum + Cells(i, 1)
End If
Next
MsgBox "Сумма ячеек: " & intSum
End Sub
При суммировании — курсор внутри диапазона
Function Сумма(Диапазон, АдресЯчейки) As Double
' Просмотр всех ячеек диапазона
For Each Ячейка In Диапазон
' Проверка, чтобы в суммировании не участвовала _
ячейка с формулой
If АдресЯчейки.Address <> Ячейка.Address Then
' В суммировании участвуют только ячейки _
с численными значениями
If IsNumeric(Ячейка) = True Then
Сумма = Сумма + Ячейка
End If
End If
Next
End Function
Начисление процентов в зависимости от суммы_1
Function dhCalculatePercent(lngSum As Long) As Double
' Процентные ставки (декларация констант)
Const dblRate1 As Double = 0.09
Const dblRate2 As Double = 0.11
Const dblRate3 As Double = 0.15
' Граничные суммы вкладов (декларация констант)
Const intSum1 As Long = 5000
Const intSum2 As Long = 10000
' Возвращаем сумму, умноженную на соответствующую ставку
If lngSum < intSum1 Then
dhCalculatePercent = lngSum * dblRate1
ElseIf lngSum < intSum2 Then
dhCalculatePercent = lngSum * dblRate2
Else
dhCalculatePercent = lngSum * dblRate3
End If
End Function
Начисление процентов в зависимости от суммы_2
Function dhCalculatePercent(lngSum As Long) As Double
' Процентные ставки (декларация констант)
Const dblRate1 As Double = 0.09
Const dblRate2 As Double = 0.11
Const dblRate3 As Double = 0.15
' Граничные суммы вкладов (декларация констант)
Const intSum1 As Long = 5000
Const intSum2 As Long = 10000
' Возвращаем сумму, умноженную на соответствующую ставку
Select Case lngSum
Case Is < intSum1
dhCalculatePercent = lngSum * dblRate1
Case Is < intSum2
dhCalculatePercent = lngSum * dblRate2
Case Else
dhCalculatePercent = lngSum * dblRate3
End Select
End Function
Начисление процентов в зависимости от суммы_3
Function dhCalculatePercent(Sales As Long, IsTemporal As Boolean) As Double
' Процентные ставки (декларация констант)
Const dblRate1 As Double = 0.09
Const dblRate2 As Double = 0.11
Const dblRate3 As Double = 0.15
Const dblAdd As Double = 1.1
' Граничные суммы
Const lngSum1 As Long = 5000
Const lngSum2 As Long = 10000
' Расчет суммы для выплаты (как обычно)
If Sales < lngSum1 Then
dhCalculatePercent = Sales * dblRate1
ElseIf Sales < lngSum2 Then
dhCalculatePercent = Sales * dblRate2
Else
dhCalculatePercent = Sales * dblRate3
End If
If IsTemporal Then
' Для сторонних вкладчиков - надбавка
dhCalculatePercent = dblAdd * dhCalculatePercent
End If
End Function