已知<em>SinA</em>=0.6在<em>excel</em>中怎

屋面坡度大于28度时，防护栏zhidao杆高度为1.5m。

屋面坡度系数就是屋面最低与最高点的高度差（相对于水平面）与最低点与最高点之间水平距离之比，主要运用数学里的三角函版数知识，主要运用于计算房屋安全性等方面，是房屋安全方面的重要系数，主要运用三角函数中的权正切公式：tan∠ A=∠A的对边长/∠A的邻边长， tanA=sinA/cosA=a/ b tan A记为∠A的正切。

=Asin(0.6)
这个表格是用VBA编的
程序如下：
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Target = [b3] Then [b4] = ""
End Sub
Private Sub c_查询_Click()
Dim i&, j&
Dim k, t, k1, t1
Dim arr, brr, crr
Application.Calculation = xlManual
With Sheet9
.[a7:k10000].Clear
If .[b3] = "" Then MsgBox "请选择查询类别!", 48: Exit Sub
If .[b4] = "" Then MsgBox "请选择要查询的单位!", 48: Exit Sub
'进入明细
If .[b3] = "供应商" Then arr = Sheet4.Range("a1").CurrentRegion Else arr = Sheet5.Range("a1").CurrentRegion
If .[b3] = "供应商" Then brr = Sheet6.Range("a1").CurrentRegion Else brr = Sheet7.Range("a1").CurrentRegion
For i = 2 To UBound(arr)
If arr(i, 1) = .[b4] Then
If .[b5] = "全部" Then
k = .[a65536].End(xlUp).Row
For j = 2 To 10
.[a1].Offset(k, j - 2) = arr(i, j)
Next
ElseIf Year(arr(i, 2)) = Year(.[b5]) And Month(arr(i, 2)) = Month(.[b5]) Then
k = .[a65536].End(xlUp).Row
For j = 2 To 10
.[a1].Offset(k, j - 2) = arr(i, j)
Next
k1 = k1 + arr(i, 10)
End If
End If
Next
For i = 2 To UBound(brr)
If brr(i, 1) = .[b4] Then
If .[b5] = "全部" Then
k = .[a65536].End(xlUp).Row
.[a1].Offset(k, 0) = brr(i, 2)
.[a1].Offset(k, 9) = brr(i, 5)
ElseIf Year(brr(i, 2)) = Year(.[b5]) And Month(brr(i, 2)) = Month(.[b5]) Then
k = .[a65536].End(xlUp).Row
.[a1].Offset(k, 0) = brr(i, 2)
.[a1].Offset(k, 9) = brr(i, 5)
t1 = t1 + brr(i, 5)
End If
End If
Next
.Range("a" & .[a65536].End(xlUp).Row & ":j" & .[a65536].End(xlUp).Row).Borders(xlEdgeBottom).LineStyle = xlContinuous
'余额计算
k = 0
t = 0
For i = 2 To UBound(arr)
If arr(i, 1) = .[b4] Then
If .[b5] <> "全部" Then
If arr(i, 2) < .[b5] Then
k = k + arr(i, 10)
End If
End If
End If
Next
For i = 2 To UBound(brr)
If brr(i, 1) = .[b4] Then
If .[b5] <> "全部" Then
If brr(i, 2) < .[b5] Then
t = t + brr(i, 5)
End If
End If
End If
Next
'填写对账数据
j = .[a65536].End(xlUp).Row
If .[b5] <> "全部" Then
.[a1].Offset(j + 1, 1) = "上月余额"
.[a1].Offset(j + 2, 1) = VBA.IIf(.[b3] = "供应商", "本月进货", "本月发货")
.[a1].Offset(j + 3, 1) = VBA.IIf(.[b3] = "供应商", "本月付款", "本月收款")
.[a1].Offset(j + 4, 1) = VBA.IIf(.[b3] = "供应商", "本月未付=上月余额+本月进货-本月付款（正为欠供应商）", "本月应收=上月余额+本月发货-本月收款（正为客户欠款）")
.[a1].Offset(j + 1, 8) = VBA.IIf(k = "", 0, k) - VBA.IIf(t = "", 0, t)
.[a1].Offset(j + 2, 8) = VBA.IIf(k1 = "", 0, k1)
.[a1].Offset(j + 3, 8) = VBA.IIf(t1 = "", 0, t1)
.[a1].Offset(j + 4, 8) = .[a1].Offset(j + 1, 8) + .[a1].Offset(j + 2, 8) - .[a1].Offset(j + 3, 8)
Else
.[a1].Offset(j + 1, 1) = VBA.IIf(.[b3] = "供应商", "累计购货", "累计发货")
.[a1].Offset(j + 2, 1) = VBA.IIf(.[b3] = "供应商", "累计付款", "累计收款")
.[a1].Offset(j + 3, 1) = VBA.IIf(.[b3] = "供应商", "累计未e79fa5e98193e59b9ee7ad94336付", "累计应收")
.[a1].Offset(j + 1, 8) = "=SUM(R[" & -j + 5 & "]C:R[-2]C)"
.[a1].Offset(j + 2, 8) = "=SUM(R[" & -j + 4 & "]C[1]:R[-3]C[1])"
.[a1].Offset(j + 3, 8) = "=R[-2]C-R[-1]C"
End If
End With
Application.Calculation = xlAutomatic
End Sub

坡度i=tana=0.7，则抄a=arctan0.7。excel中用以下公式计算：袭
=DEGREES(ATAN(0.7))
或
=ATAN(0.7)*180/PI()
上面两个公式的结果为角度，如果只百需要弧度度，那么直接写为：
=ATAN(0.7)