Как в 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
Всем удачи!

Автор записи: Иван

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

Этот сайт использует Akismet для борьбы со спамом. Узнайте как обрабатываются ваши данные комментариев.