唯倚社区

 找回密码
 立即注册

QQ登录

只需一步,快速开始

搜索
查看: 289|回复: 5

如何在Visual Basic中使用Excel工作表函数

[复制链接]

21

主题

148

帖子

1167

积分

超级版主

Rank: 8Rank: 8

积分
1167

最佳新人

发表于 2017-9-13 16:11:59 | 显示全部楼层 |阅读模式

轻松玩转社区

您需要 登录 才可以下载或查看,没有帐号?立即注册

x
在Visual Basic中,通过WorksheetFunction对象可使用Excel工作表函数,例如如下的求和案例,具体代码如下:
Sub sutSum()   '定义一个整型数组   Dim arr(1 To 100) As Integer   '为数组赋值   Dim i As Integer   For i = 1 To 100       arr(i) = i   Next   '数组求和后输出到立即窗口   Debug.Print Application.WorksheetFunction.Sum(arr)End Sub
       如果需要在Visual Basic中为单元格插入工作表函数,请指定函数作为相应Range对象的Formula属性值。这个在帮助他人解决问题的过程中比较常见,因为使用Formula需要注意变量名,否则可能达不到想要的效果,例如如下的案例,需要对学生的成绩进行评级,如果在工作表中直接输入函数,可以使用IFS函数,具体函数使用截图如下:

       在Visual Basic中为单元格插入工作表函数的代码如下:
Sub sutFormula()   Dim i As Integer   Worksheets("Sheet2").Select   For i = 2 To 4       'Debug.Print "=IFS(B" & i & ">=90,""A"",B" & i & ">=75,""B"",B" & i & ">=60,""C"",TRUE,""Failed"")"       Range("C" & i).Formula = "=IFS(B" & i & ">=90,""A"",B" & i & ">=75,""B"",B" & i & ">=60,""C"",TRUE,""Failed"")"   NextEnd Sub
       为了验证书写的代码是否正确,我使用Debug.print把字符串拼接输出到立即窗口进行查验,如有问题,也比较容易知道问题所在。还有一点需要注意,如果代码中有双引号,需要Double,这样就可以转义为一个双引号。

3

主题

122

帖子

426

积分

版主

Rank: 7Rank: 7Rank: 7

积分
426
发表于 2017-9-23 00:15:31 | 显示全部楼层
专业抢二楼!顺便笑摸狗头(3L)
回复

使用道具 举报

21

主题

148

帖子

1167

积分

超级版主

Rank: 8Rank: 8

积分
1167

最佳新人

 楼主| 发表于 2017-9-23 04:07:09 | 显示全部楼层
作为一名禽兽,我深感亚历山大
回复

使用道具 举报

5

主题

120

帖子

800

积分

版主

Rank: 7Rank: 7Rank: 7

积分
800
发表于 2017-9-23 11:09:18 | 显示全部楼层
专业五毛
回复

使用道具 举报

35

主题

176

帖子

2383

积分

LV3

Rank: 3Rank: 3

积分
2383
发表于 2017-9-23 11:11:31 | 显示全部楼层
Xxxxxxxxxx,你家里人知道么
回复

使用道具 举报

3

主题

122

帖子

426

积分

版主

Rank: 7Rank: 7Rank: 7

积分
426
发表于 2017-9-23 20:45:58 | 显示全部楼层
不怕神一样的对手,就怕猪一样的队友
回复

使用道具 举报

*滑动验证:
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

手机版|小黑屋|weiecn ( 湘ICP备14002058号 )

GMT+8, 2018-10-20 04:19 , Processed in 0.091492 second(s), 9 queries , Redis On.

Powered by Discuz! X3.4

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表