收集和自编的自定义函数(21个)!新增"字符快速合并"函数（9月14日新增）

xhzhaoming

真是受益匪浅!这下又可在同事面前显摆一下喽!呵呵,谢谢

zjyhz

我的这个工资表原来引用大量函数进行，反应太慢，且数据更新极不方便，请兰色幻想版主帮忙改一改，用VBA。谢谢。 kEm77Ah3.rar (124.05 KB, 下载次数: 23)

2006-7-30 17:16 上传

点击文件名下载附件
收集和自编的自定义函数(21个)!新增"字符快速合并"函数（9月14日新增）**

[此贴子已经被作者于2006-7-30 17:16:06编辑过]

cmbjx111

有用！

htqccw

自定义含数太棒了

koyowjian

不错

jameswxd

我写了几个简单的，大家有兴趣就copy了吧

Function CELLCOLOR(cells)
Application.Volatile True
CELLCOLOR = cells.Interior.ColorIndex
End Function

Function FONTCOLOR(cells)
Application.Volatile True
FONTCOLOR = cells.Font.ColorIndex
End Function

Function FONTSIZE(cells)
Application.Volatile True
FONTSIZE = cells.Font.Size
End Function

Function FONTSTYLE(cells)
Application.Volatile True
FONTSTYLE = cells.Font.FONTSTYLE
End Function

Function IIT(cells)
If cells >= 100000 Then IIT = cells * 0.45 - 15375
If cells < 100000 Then IIT = cells * 0.4 - 10375
If cells < 80000 Then IIT = cells * 0.35 - 6375
If cells < 60000 Then IIT = cells * 0.3 - 3375
If cells < 40000 Then IIT = cells * 0.25 - 1375
If cells < 20000 Then IIT = cells * 0.2 - 375
If cells < 5000 Then IIT = cells * 0.15 - 125
If cells < 2000 Then IIT = cells * 0.1 - 25
If cells < 500 Then IIT = cells * 0.05
If cells < 0 Then IIT = 0
Application.Volatile True
End Function

pawaluodiii

谢谢搂主，真是好东西！

星语心愿

真的有好多实用的东西。希望大家多做点好东西出来。

寂靜清茶

不错~~再次学了一招!

来点暴风雨

谢谢，收藏了，一定会好好学习的