Sub okrugl() 
s = 162 ' s может оказаться любым от 340 и до 1500 
S = round ( s / 50, 0) * 50
msgbox (s)
end sub

Private sub checbox1()
if checbox1.value =true then textbox1.text= c*1.18
end sub

private sub commandbutton1()
a=val(textbox2.text)
b=val(textbox3.text)
c=a+b
textbox1.text=c
end sub

a = Val(TextBox1.Text)
b = Val(TextBox2.Text)
If a = 57 Then x = 170
'If a = 89 Then
'If a = 114 Then
'If a = 159 Then
'If a = 168 Then
'If a = 219 Then
z = (((a - b) * b) / 40.5)
y = z * (x / 1000) * 100 * 2.5
TextBox3.Text = y

Sub ВыделитьЦветами()
Dim z, z1, i&: z = Range("A1:A" & Range("A" & Rows.Count).End(xlUp).Row).Value
    ReDim z1(1 To UBound(z), 1 To 1)                'класс прочности
        For i = 1 To UBound(z)
            If InStrRev(z(i, 1), "К52") Then z1(i, 1) = "К52"
            If InStrRev(z(i, 1), "К50") Then z1(i, 1) = "К50"
            If InStrRev(z(i, 1), "К48") Then z1(i, 1) = "К48"
    On Error Resume Next
    Colors = Array(12900829, 15849925, 14408946, 14610923, 15986394, 14281213, 14277081, _
                   9944516, 14994616, 12040422, 12379352, 15921906, 14336204, 15261367, 14281213)
    Dim coll As New Collection, dupes As New Collection, _
        cols As New Collection, ra As Range, cell As Range, n&
    Err.Clear: Set ra = Intersect(Selection, ActiveSheet.UsedRange)
    If Err Then Exit Sub
    ra.Interior.ColorIndex = xlColorIndexNone: Application.ScreenUpdating = False
    For Each cell In ra.Cells
        Err.Clear: If Len(Trim(cell)) Then coll.Add CStr(cell.Value), CStr(cell.Value)
        If Err Then dupes.Add CStr(cell.Value), CStr(cell.Value)
    Next cell
        n = n Mod (UBound(Colors) + 1): cols.Add Colors(n), dupes(i): n = n + 1
    Next
    For Each cell In ra.Cells
        cell.Interior.Color = cols(CStr(cell.Value))
    Next cell
    Application.ScreenUpdating = True
End Sub