Умножение на произвольный коэффициент в Excel
Умножение на произвольный коэффициент в Excel - очень нужная вещь! Представим, что нам нужно узнать результат умножения произвольных ячеек в таблице на произвольный коэффициент? Обычно мы делаем это с помощью формул, но быстрее выполнить данную операцию нам позволит макрос. Как обычно, макрос будет следовать за видео!
Текст макроса:
Sub MultAllCells()
Dim dblMult As Double
Dim cell As Range
' Ввод коэффициента для умножения
dblMult = InputBox("Введите коэффициент, на который следует умножать")
' Умножение содержимого на введенный коэффициент
For Each cell In Selection
If IsNumeric(cell.Value) And cell.Value <> "" Then
' Умножаются только ячейки, содержащие числовые данные
cell.Value = cell.Value * dblMult
Else
MsgBox "В ячейке " & cell.Address & " нечисловое значение"
End If
Next
End Sub
Dim dblMult As Double
Dim cell As Range
' Ввод коэффициента для умножения
dblMult = InputBox("Введите коэффициент, на который следует умножать")
' Умножение содержимого на введенный коэффициент
For Each cell In Selection
If IsNumeric(cell.Value) And cell.Value <> "" Then
' Умножаются только ячейки, содержащие числовые данные
cell.Value = cell.Value * dblMult
Else
MsgBox "В ячейке " & cell.Address & " нечисловое значение"
End If
Next
End Sub
Всем удачи!
