Excel上面怎么编制程序

各位大师,Excel上面怎么编制程序?我看到相关的问题,按照步骤来,到双击模块*②、 将sub Rad()改写成Public Function Rad(y)③、 将下列程序代码写入(或拷贝)到就不知道怎么用了???、...

各位大师,Excel上面怎么编制程序?
我看到相关的问题,按照步骤来,到双击模块*
②、 将sub Rad()改写成Public Function Rad(y)
③、 将下列程序代码写入(或拷贝)到
就不知道怎么用了???
、在Excel中建立自定义函数
一、建立自定义函数
㈠、 录制宏:
①、 打开一个新的Excel工作薄
②、 选择“工具”菜单中的“宏”子菜单,从它的下级菜单中选择“录制新宏”
③、 在“录制新宏”对话框的“宏名”中输入要建立的函数名,例: Rad
④、 在“保存在”列表中选择“个人宏工作薄”
⑤、 左击“确定”
⑥、 在“停止录”对话框中左击蓝色的小方框
㈡、 写程序代码
①、 选择“工具”菜单中的“宏”子菜单,从它的下级菜单中选择“Visual Basic 编辑器”,双击模块*
②、 将sub Rad()改写成Public Function Rad(y)
③、 将下列程序代码写入(或拷贝)到

坐标反算代码
Public Function fsa(x1, y1, x2, y2)

Dim aa, a, b, b1, b2, b3, a1, x, y, a0
Const pi = 3.14159265358979
x = x2 - x1: y = y2 - y1
a = Atn(y / x)
If (x < 0 And y > 0) Or (x < 0 And y < 0) Then
    a = a + pi
End If
If x > 0 And y < 0 Then
    a = a + 2 * pi
End If
ab = a

aa = Sgn(ab): If aa < 0 Then ab = Abs(ab)
  
    a0 = ab / pi * 180: b1 = Int(a0): a1 = (a0 - b1) * 60: b2 = Int(a1) / 100
    b3 = (a1 - b2 * 100) * 60 / 10000
    b = b1 + b2 + b3
    fsa = b * aa
    '计算的角度为:°′″(12.3645---12°36′45″)
End Function


将60进制角度化成弧度――2
Public Function rad(a)
       Dim a1, a2, a3, a4, a5, aa
       aa = Sgn(a)
       If aa < 0 Then
          a = Abs(a)
       End If
       a1 = Int(a)
       a2 = Int((a - a1) * 100)
       a3 = ((a - a1) * 100 - a2) * 100
       a4 = (a1 + a2 / 60 + a3 / 3600) / 180 * 3.1415926535
       rad = a4 * aa
    End Function

化弧度为角度―――2
Public Function deg(a)
       Dim a1, a2, a3, a4, a5, aa
       aa = Sgn(a)
       If aa < 0 Then
          a = Abs(a)
       End If
       a1 = a / 3.1415926535 * 180
       a2 = Int(a1)
       a3 = Int((a1 - a2) * 60)
       a4 = ((a1 - a2) * 60 - a3) * 60
       a5 = (a2 + a3 / 100 + a4 / 10000) * aa
      deg = a5
      

End Function

  • 发表于 2018-11-30 16:28
  • 阅读 ( 296 )
  • 分类:软件下载

你可能感兴趣的文章

相关问题

0 条评论

请先 登录 后评论
admin
admin

112 篇文章

作家榜 »

  1. admin 112 文章
  2. 老Y 27 文章
  3. 胡亮 6 文章
  4. 肖肖 5 文章
  5. 通测工作室 3 文章
  6. boyving 2 文章
  7. Bianco冰封 1 文章
  8. 何文森 1 文章