EXCEL 中自定义函数的应用(关于 XOR 在 EXCEL 中的用法 及 文本型数字求和)

EXCEL 中,能否同调用内置函数一样在工作表中调用自已制作的自定义函数,出现对话框.同时也能做到像内置函数对话框里的说明?答案是肯定的,下面举例说明:

题目: ①对文本型一系列数字进行求和(SUM()返回0)   

          ②对数值型的一系列数字异或操作(EXCEL内置函数中没有XOR())

1. EXCEL中在A,C两列依次输入1,2,3,4,5,A列设为数值型,C列设为文本型.

2. 选择视图--->工具栏-->VISIUAL BASIC--->VISIUAL BASIC编辑器窗口---->插入--->模块,输入以下内容

Function myxor(ByVal range As range)
Dim i As Integer, j As Integer
For i = 1 To range.Rows.Count
For j = 1 To range.Columns.Count
myxor = myxor Xor range(i, j)
Next
Next
End Function

Function mysum(ByVal range As range)
Dim i As Integer, j As Integer
mysum = 0
For i = 1 To range.Rows.Count
For j = 1 To range.Columns.Count
mysum = mysum + Val(range(i, j))
Next
Next
End Function

如下图所示:

3.至此,我们定义了两个函数,myxor(),mysum()

重回到SHEET1,在单元格A6,输入"=",选择 "插入函数"菜单,类别中选择"用户定义",可以看到我们刚定义的两个函数显示在列表框中.如下图所示:

4.为了在A6 输入A1~A5的XOR 结果,我们选择刚定义的myxor 函数,EXCEL 弹出下面对话框:

5. 同其他内置函数一样,选择RANGE 范围,如A1~A5,函数被正确计算并插入到A6单元格中.

6. 同理,我们可以利用自定义的函数mysum() 将C列的文本型数字进行求和,赋值到A8 单元格中.

7. 总而言之,利用VBA 编制函数,可以满足我们某些特定的需要,而计算方法,处理过程,与VB 没什么两样.

阅读更多
想对作者说点什么? 我来说一句

没有更多推荐了,返回首页