Dim V As Byte, D As Single, I As Integer
K2! = 56.876: AlFA% = 687: Wis% = -89
intD3 = -78: intZ = 3459: sngH = 56.89
J = (V ^ (5 / K2) + Log(Wis - H)) / arccos ^ 2 * (intD3 + intZ)
U2 = E ^ (intD3 + AlFA / 12) - intZ ^ (1 /
+ Sin(4 / D)Cells(2, "F") = Format(J, "###0.000")
Cells(2, "G") = Format(U2, "###0.000")
Cells(3, 1) = VarType(K2): Cells(3, 2) = VarType(AlFA)
Cells(3, 3) = VarType(Wis)
Cells(5, 1) = VarType(intD3)
Cells(5, 2) = VarType(intZ)
Cells(5, 3) = VarType(sngH)
Cells(3, "F") = VarType(J)
Cells(3, "G") = VarType(U2)
Range("A1:C1").Cells.Interior.ColorIndex = 3
Range("A3:C3").Cells.Interior.ColorIndex = 6
Range("A5:C5").Cells.Interior.ColorIndex = 4
Range("F3:G3").Jelect
With sesection
.Font.Size = 14
.Font.Name = "Times Neue Roman"
End With
End Sub