ART_43 Home Site

Sub Умножить_на_кэффициент()
    koef = Application.InputBox("Введите коэффициент на который умножать")
    If Not (koef = "" Or koef = False) Then
    For k = 1 To Application.Selection.Count
        reslt = Application.Selection.Item(k)
        If reslt <> 0 Then
        reslt = ((koef * reslt) \ 10) * 10
        Application.Selection.Item(k) = reslt
        End If
    Next k
    End If
End Sub