Как в Excel быстро умножить числа в ячейках на произвольный коэффициент

Умножение на произвольный коэффициент в 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
 
Всем удачи!

Post Author: Иван

Добавить комментарий