本帖最后由 爱疯 于 2011-10-14 22:44 编辑
附件主要包含下列自定义函数：
S_SHEETNAME()
'取活动工作表名称
S_BOOKNAME()
'取本工作薄（本模块所在工作簿）名称
S_ABOOKNAME()
'取当前（活动）工作薄名称
S_ActivePrinter()
'返回当前（活动）打印机名
S_OPENBOOK()
'打开任意文件并返回该文件名称，如果打开不成功即返回空值
S_OPENBOOKS(M_FILE As String)
'打开指定文件（如果查无指定文件，则可自行搜索目标文件）并返回该文件名称，若打开不成功即返回空值
S_FIND(M_CODE, M_SHEET, M_AREA, M_COL As String)
'在 M_SHEET 工作表 M_AREA 范围中（如"C:C"） 精确查找 M_CODE 所在行，并返回其对应的 M_COL 列单元格的值。
'以上函数参数均为文本或其值为文本的单元格或表达式。M_SHEET为空时（即""）在当前工作表进行搜索
S_FINDP(M_CODE, M_SHEET, M_AREA, M_COL As String)
'在 M_SHEET 工作表 M_AREA 范围中 模糊查找 M_CODE 所在行，并返回其对应的 M_COL 列单元格的值。
'以上函数参数均为文本或其值为文本的单元格或表达式。
S_FINDN(M_CODE, M_SHEET, M_AREA, M_COL As String)
'在 M_SHEET 工作表 M_AREA 范围中 再次查找 M_CODE 所在行，并返回其对应的 M_COL 列单元格的值。
'以上函数参数均为文本或其值为文本的单元格或表达式。
'此函数必须在S_FIND或S_FINDP被调用后使用
S_FINDK(M_DEF, M_SHEET, M_AREA, M_COL, M_COL1, M_COL2 As String)
'在 M_SHEET 工作表 M_AREA 范围中 按M_DEF或输入之特种字符循环查找所在行，并返回其对应的 M_COL 列单元格的值（M_COL1、M_COL2 为搜索过程用于显示对照信息所在的列）。
'以上函数参数均为文本或其值为文本的单元格或表达式。
S_SRMB(M_MONEY As Double)
'将人民币小写金额转换为中文大写金额，最大正确表示为15位整数位
S_VRMB(M_CODE)
'将人民币中文大写金额转换为小写金额
S_SWH(M_MONEY As Double, M_WHC As String)
'将外汇小写金额转换为中文大写金额，最大正确表示为15位整数位
S_Sdate(M_DATE As Double, M_MS As String)
'将日期转换为中文大写，当M_MS值为：“Y/y”、“M/m”或“D/d”时分别返回相应的“年”、“月”、“日”中文大写数值。
S_CWEEK(M_DATE As Date)
'返回指定日期的中文星期名称
S_PITAX(M_INCOME As Double)
'根据个人应纳税项目总收入计算个人所得税
S_DEC(M_KEY)
'设置小数点自动定位，M_KEY为逻辑型变量
S_IDCARD(M_CODE, M_MS As String)
'M_CODE 为待处理身份证号码。当M_MS="C"时，返回对18位身份证号码的校验码检查结果，其值为 True 或 Flase ；
'当M_MS="T"时，函数返回18位身份证号码；当M_MS="K"时，返回身份证校验码；当M_MS="B"时，返回生日；当M_MS="X"时，返回性别。
[hide]
fxVfcgDS.rar
(4.22 KB, 下载次数: 146)
| 
[复制链接]
IP卡
狗仔卡
发表于 2010-3-17 00:29
提升卡
置顶卡
沉默卡
喧嚣卡
变色卡
抢沙发
千斤顶
显身卡
发表于 2010-3-17 12:41
楼主
发表于 2010-3-20 20:45
