excel中VBA程序调用函数的方法
时间:2022-07-17 04:13:59
有时在编写VBA程序时,会发现没有与Excel函数相对应的VBA指令,在此情况下,只能想办法通过引用Excel函数来达到目地,今天,小编就教大家如何利用VBA程序调用Excel函数的方法。
Excel中VBA程序调用函数的方法如下:
打开 Microsoft Office Excel 2007,点击 “开始” ->“Excel 选项”。
在弹出的对话框中,选择“常规”选项卡,并在右侧点选“在功能区显示‘开发工具’选项卡”,并单击“确定"。
在单元格A1中输入“弧度”,单元格B1中输入“角度”,单元格A2中输入“3.14”,然后在单元格B2中输入公式"=DEGREES(A2)"在按下回车后,该单元格输出结果为179.9087477。
注:DEGREES函数的作用是将弧度转化为角度。
接下来,我们用VBA实现同样的功能。点击“开发工具”选项卡,单击“Visual Basic”,启动Visual Basic编辑器。
在“Microsoft Excel 对象”上点鼠标右键,依次点击“插入” -> “模块”,创建“模块1”,并在该模块中输入内容:
Sub 转换()
MsgBox Application.WorksheetFunction.Degrees(3.14)
End Sub
点击“运行子过程/用户窗体”按钮,在弹出的对话框中选择“转换”,然后点击“运行”按钮。
程序弹出对话框,结果与在Excel中利用公式输出的结果一样,只是有效数字的位数不一样,这可以根据需要加以取舍。
总结:在进行VBA编程时,可以通过WorkSheetFunction方法来实现对Excel函数的引用,借此,可以方便我们对函数的引用,避免花费更多的时间在自定义函数上,有效的提高了工作效率。
![](/images/zang.png)
![](/images/jiucuo.png)
猜你喜欢
excel用条件格式高亮显示区域中活动单元格所在的行和列
![](https://img.aspxhome.com/file/2023/4/a156224_0s.gif)
Win10系统切换界面组合键的教程
![](https://img.aspxhome.com/file/2023/7/46877_0s.png)
Excel表格中怎么样分列单元格
excel表格日期怎样设置排序
excel表格上如何批量修改行和列上的数据
![](https://img.aspxhome.com/file/2023/2/38632_0s.jpg)
如何调整win10系统的屏幕分辨率
![](https://img.aspxhome.com/file/2023/3/46593_0s.png)
不想被人发现excel表格公式,可以这样做!
![](https://img.aspxhome.com/file/2023/6/a142226_0s.gif)
excel页面设置比例快捷键是什么
Excel输入“001、002、003……”等前面带有0编号的方法
![](https://img.aspxhome.com/file/2023/9/a141219_0s.jpg)
Word中使用MathType公式编号的方法
![](https://img.aspxhome.com/file/2023/8/33298_0s.jpg)
iOS 14 新改进:更完善的相册权限管理
![](https://img.aspxhome.com/file/2023/5/a194655_0s.png)
对Excel2013中特定颜色的单元格进行求和计算
![](https://img.aspxhome.com/file/2023/1/37381_0s.jpg)
word纸张页面怎么设置
Word中复制粘贴文本的精妙方法
![](https://img.aspxhome.com/file/2023/6/24876_0s.jpg)
VLOOKUP函数返回错误值的原因和解决方法
Excel2013如何快速打开当前工作簿所在的文件夹
![](https://img.aspxhome.com/file/2023/1/a156211_0s.png)
Word快速统一图片大小的快捷键——F4
![](https://img.aspxhome.com/file/2023/9/24089_0s.jpg)
如何在excel2013数据透视表中的数据进行分组
![](https://img.aspxhome.com/file/2023/2/a140342_0s.jpg)
如何在word 2013中自动更新目录
![](https://img.aspxhome.com/file/2023/1/32831_0s.jpg)
excel横列自动求和的方法
![](https://img.aspxhome.com/file/2023/4/a140514_0s.png)