作者:乔山办公网日期:
返回目录:excel表格制作
excel自定义函数(而不是函数)调用excel的自带函数时,在函数前加上这个引用就可以了。即:Application.WorksheetFunction.+函数名
excel函数:
Excel是办公室自动化中非常重要的一款软件copy。Excel中所提的函数其实是一些预定义的公式,它们使用一些称为参数的特定数值按特定的顺序或结构进行计算百。Excel函数一共有11类,分别是数据库函数、日期与时间函数、工程函数、财务函数、信息函数、逻辑函数、查询和引用函数、数度学和三角函数、统计函数、文本函数以及用户自定义函数。
Excel的数据处理功能在现有的文字处理软件中可以说是独占鳌头,几乎没有什么软件能够与它匹敌。在您学会了知Excel的基本操作后,是不是觉得自己一直局限在Excel的操作界面中,而对于Excel的函数功能却始终停留在求和、求平均值等简单的函数应用上呢?难道Excel只能做这些简单的工作吗?其实不然,函道数作为Excel处理数据的一个最重要手段,功能是十分强大的,在生活和工作实践中可以有多种应用,您甚至可以用Excel来设计复杂的统计管理表格或者小型的数据库系统。
使用VBA编辑一段函数代百码,复制在公用模块中。度
而后在excel表格界面即可直接引用该公式。
ALT+F11
插入模问块
输入代码
回到excel界面使用公式
例如,如下代答码将返回所在单元版格的RGB值。权可在单元格中使用=RGB(单元格地址)进行试验。
Function RGB(myRange As Range)
Dim r, g, b
r = Int(myRange.Interior.Color / 65025)
g = Int((myRange.Interior.Color Mod 65025) / 255)
b = Int(myRange.Interior.Color Mod 255)
RGB = r & ", " & g & ", " & b
End Function
你的名字挺熟,
我可百能以前回答过你的问题吧……?
alt+F11打开VBE,
插入—模块度问
然后把自己定义的函数放到新插入的模块中
在excel中使用即可。
使用方法和答EXCEL内置函数一样。
还有你的代码有错误,
一是character这个版变量未定义,
二是倒数第三行应该是next i,你的是nexit i
我替你改正了,你的这个函数效果还权不错:)
Function REMOVESPACES(cell) As String
Dim CellLength As Integer
Dim Temp, Character As String
Dim i As Integer
CellLength = Len(cell)
Temp = ""
For i = 1 To CellLength
Character = Mid(cell, i, 1)
If Character <> Chr(32) Then Temp = Temp & Character
Next i
REMOVESPACES = Temp
End Function