📄
字号:
" 年:可以输入“本年”?“去年”或任意数值?" & vbCrLf & _
" 月:可以输入“本月”?“上月”或1--12任意数值?" & vbCrLf & _
" 辅助项1:可以输入“标识+辅助项码”,其中标识为: P-职员 D-部门 C-往来客户 S-供应商 I-项目分类 J-项目?" & _
"例如:P0500表示编码为0500的职员?" & vbCrLf & _
" 辅助项2:同上?区别:只有在辅助项1有内容时才起作用,增加一个标识“*”,当输入“*”时,表示取辅助项1的汇总数?" & _
"例如:辅助项1为“财务部”,辅助项2为“*”,表示取财务部所有人员的费用总和?"
ReDim mai_parmtype_qms(5) As Integer
ReDim mai_parmdefault_qms(5) As Integer
For i = 0 To 4
mai_parmtype_qms(i) = 1
mai_parmdefault_qms(i) = 1
Next i
rt = Cell1.DoAddUserFunctionEx("财务总帐函数", "WB_LJJF", 4, 5, mai_parmtype_qms(0), mai_parmdefault_qms(0), ls_hssm)
If rt = False Then MsgBox "增加用户自定义函数失败!", vbOKOnly, "百利/ERP5.0-电子报表"
'7.累计贷方发生外币
ls_hssm = "函数名称:" & vbCrLf & _
" WB_LJDF ----累计贷方发生外币" & vbCrLf & _
"函数格式:" & vbCrLf & _
" WB_LJDF(""科目编码"",""年"",""月"",""辅助项1"",""辅助项2"")" & vbCrLf & _
"参数表示:" & vbCrLf & _
" 年:可以输入“本年”?“去年”或任意数值?" & vbCrLf & _
" 月:可以输入“本月”?“上月”或1--12任意数值?" & vbCrLf & _
" 辅助项1:可以输入“标识+辅助项码”,其中标识为: P-职员 D-部门 C-往来客户 S-供应商 I-项目分类 J-项目?" & _
"例如:P0500表示编码为0500的职员?" & vbCrLf & _
" 辅助项2:同上?区别:只有在辅助项1有内容时才起作用,增加一个标识“*”,当输入“*”时,表示取辅助项1的汇总数?" & _
"例如:辅助项1为“财务部”,辅助项2为“*”,表示取财务部所有人员的费用总和?"
ReDim mai_parmtype_qms(5) As Integer
ReDim mai_parmdefault_qms(5) As Integer
For i = 0 To 4
mai_parmtype_qms(i) = 1
mai_parmdefault_qms(i) = 1
Next i
rt = Cell1.DoAddUserFunctionEx("财务总帐函数", "WB_LJDF", 4, 5, mai_parmtype_qms(0), mai_parmdefault_qms(0), ls_hssm)
If rt = False Then MsgBox "增加用户自定义函数失败!", vbOKOnly, "百利/ERP5.0-电子报表"
'8.年净发生外币
ls_hssm = "函数名称:" & vbCrLf & _
" WB_NJFS ----年净发生外币" & vbCrLf & _
"函数格式:" & vbCrLf & _
" WB_NJFS(""科目编码"",""年"",""月"",""辅助项1"",""辅助项2"")" & vbCrLf & _
"参数表示:" & vbCrLf & _
" 年:可以输入“本年”?“去年”或任意数值?" & vbCrLf & _
" 月:可以输入“本月”?“上月”或1--12任意数值?" & vbCrLf & _
" 辅助项1:可以输入“标识+辅助项码”,其中标识为: P-职员 D-部门 C-往来客户 S-供应商 I-项目分类 J-项目?" & _
"例如:P0500表示编码为0500的职员?" & vbCrLf & _
" 辅助项2:同上?区别:只有在辅助项1有内容时才起作用,增加一个标识“*”,当输入“*”时,表示取辅助项1的汇总数?" & _
"例如:辅助项1为“财务部”,辅助项2为“*”,表示取财务部所有人员的费用总和?"
ReDim mai_parmtype_qms(5) As Integer
ReDim mai_parmdefault_qms(5) As Integer
For i = 0 To 4
mai_parmtype_qms(i) = 1
mai_parmdefault_qms(i) = 1
Next i
rt = Cell1.DoAddUserFunctionEx("财务总帐函数", "WB_NJFS", 4, 5, mai_parmtype_qms(0), mai_parmdefault_qms(0), ls_hssm)
If rt = False Then MsgBox "增加用户自定义函数失败!", vbOKOnly, "百利/ERP5.0-电子报表"
'9.月净发生外币
ls_hssm = "函数名称:" & vbCrLf & _
" WB_YJFS ----月净发生外币" & vbCrLf & _
"函数格式:" & vbCrLf & _
" WB_YJFS(""科目编码"",""年"",""月"",""辅助项1"",""辅助项2"")" & vbCrLf & _
"参数表示:" & vbCrLf & _
" 年:可以输入“本年”?“去年”或任意数值?" & vbCrLf & _
" 月:可以输入“本月”?“上月”或1--12任意数值?" & vbCrLf & _
" 辅助项1:可以输入“标识+辅助项码”,其中标识为: P-职员 D-部门 C-往来客户 S-供应商 I-项目分类 J-项目?" & _
"例如:P0500表示编码为0500的职员?" & vbCrLf & _
" 辅助项2:同上?区别:只有在辅助项1有内容时才起作用,增加一个标识“*”,当输入“*”时,表示取辅助项1的汇总数?" & _
"例如:辅助项1为“财务部”,辅助项2为“*”,表示取财务部所有人员的费用总和?"
ReDim mai_parmtype_qms(5) As Integer
ReDim mai_parmdefault_qms(5) As Integer
For i = 0 To 4
mai_parmtype_qms(i) = 1
mai_parmdefault_qms(i) = 1
Next i
rt = Cell1.DoAddUserFunctionEx("财务总帐函数", "WB_YJFS", 4, 5, mai_parmtype_qms(0), mai_parmdefault_qms(0), ls_hssm)
If rt = False Then MsgBox "增加用户自定义函数失败!", vbOKOnly, "百利/ERP5.0-电子报表"
'10.年
ls_hssm = "函数名称:" & vbCrLf & _
" DATE_Y ----年" & vbCrLf & _
"函数格式:" & vbCrLf & _
" DATE_Y(""年"")" & vbCrLf & _
" 年可以输入“2000”?“1999”或任意数值?"
ReDim mai_parmtype_qms(1) As Integer
ReDim mai_parmdefault_qms(1) As Integer
mai_parmtype_qms(0) = 1
mai_parmdefault_qms(0) = Year(Xtrq)
rt = Cell1.DoAddUserFunctionEx("系统基本函数", "DATE_Y", 4, 1, mai_parmtype_qms(0), mai_parmdefault_qms(0), ls_hssm)
If rt = False Then MsgBox "增加用户自定义函数失败!", vbOKOnly, "百利/ERP5.0-电子报表"
'11.月
ls_hssm = "函数名称:" & vbCrLf & _
" DATE_M----月" & vbCrLf & _
"函数格式:" & vbCrLf & _
" DATE_M(""月"")" & vbCrLf & _
" 月可以输入“1”?“2”?......?“12”?"
ReDim mai_parmtype_qms(1) As Integer
ReDim mai_parmdefault_qms(1) As Integer
mai_parmtype_qms(0) = 1
mai_parmdefault_qms(0) = Month(Xtrq)
rt = Cell1.DoAddUserFunctionEx("系统基本函数", "DATE_M", 4, 1, mai_parmtype_qms(0), mai_parmdefault_qms(0), ls_hssm)
If rt = False Then MsgBox "增加用户自定义函数失败!", vbOKOnly, "百利/ERP5.0-电子报表"
'12.日
ls_hssm = "函数名称:" & vbCrLf & _
" DATE_D----日" & vbCrLf & _
"函数格式:" & vbCrLf & _
" DATE_D(""日"")" & vbCrLf & _
" 日可以输入“1”?“2”?“3”?.....等但不能大于当前月末的日?"
ReDim mai_parmtype_qms(1) As Integer
ReDim mai_parmdefault_qms(1) As Integer
mai_parmtype_qms(0) = 1
mai_parmdefault_qms(0) = Day(Xtrq)
rt = Cell1.DoAddUserFunctionEx("系统基本函数", "DATE_D", 4, 1, mai_parmtype_qms(0), mai_parmdefault_qms(0), ls_hssm)
If rt = False Then MsgBox "增加用户自定义函数失败!", vbOKOnly, "百利/ERP5.0-电子报表"
'13.从第X页表
ls_hssm = "函数名称:" & vbCrLf & _
" GETDATAFPAGE----从第X页表的第I列?第J行取数据" & vbCrLf & _
"函数格式:" & vbCrLf & _
" GETDATAFPAGE(""页码"",""行号"",""列号"")" & vbCrLf & _
" 页码可以输入“1”到 当前页表数 " & vbCrLf & _
" 行号可以输入“1”到 最大行数" & vbCrLf & _
" 列号可以输入“1”到 最大列数? "
ReDim mai_parmtype_ncs(3) As Integer
ReDim mai_parmdefault_ncs(3) As Integer
mai_parmtype_ncs(0) = 1
mai_parmtype_ncs(1) = 1
mai_parmtype_ncs(2) = 1
mai_parmdefault_ncs(0) = 1
mai_parmdefault_ncs(1) = 1
mai_parmdefault_ncs(2) = 1
rt = Cell1.DoAddUserFunctionEx("系统基本函数", "GETDATAFPAGE", 4, 3, mai_parmtype_ncs(0), mai_parmdefault_ncs(0), ls_hssm)
If rt = False Then MsgBox "增加用户自定义函数失败!", vbOKOnly, "百利/ERP5.0-电子报表"
'14.编制单位
ls_hssm = "函数名称:" & vbCrLf & _
" ENTERPRISE----编制单位" & vbCrLf & _
"函数格式:" & vbCrLf & _
" ENTERPRISE()" & vbCrLf & _
" 不许任何参数? "
ReDim mai_parmtype_ncs(1) As Integer
ReDim mai_parmdefault_ncs(1) As Integer
mai_parmtype_ncs(0) = 1
mai_parmdefault_ncs(0) = 1
rt = Cell1.DoAddUserFunctionEx("系统基本函数", "ENTERPRISE", 4, 0, mai_parmtype_ncs(0), mai_parmdefault_ncs(0), ls_hssm)
If rt = False Then MsgBox "增加用户自定义函数失败!", vbOKOnly, "百利/ERP5.0-电子报表"
'14.系统操作员
ls_hssm = "函数名称:" & vbCrLf & _
" OPERATOR----系统操作员" & vbCrLf & _
"函数格式:" & vbCrLf & _
" OPERATOR()" & vbCrLf & _
" 不许任何参数? "
ReDim mai_parmtype_ncs(1) As Integer
ReDim mai_parmdefault_ncs(1) As Integer
mai_parmtype_ncs(0) = 1
mai_parmdefault_ncs(0) = 1
rt = Cell1.DoAddUserFunctionEx("系统基本函数", "OPERATOR", 4, 0, mai_parmtype_ncs(0), mai_parmdefault_ncs(0), ls_hssm)
If rt = False Then MsgBox "增加用户自定义函数失败!", vbOKOnly, "百利/ERP5.0-电子报表"
'15.SQL语句 all
ls_hssm = "函数名称:SQL_ALL" & vbCrLf & _
" 生成SQL语句查询出的结果报表" & vbCrLf & _
"函数格式:" & vbCrLf & _
" SQL_ALL(""SQL语句"",""年月字段名"",""年"",""月"",""标志"")" & vbCrLf & _
"参数必须为如下格式:" & vbCrLf & _
" SQL语句:select 字段名 [as 别名] from 数据表名 [where 条件] " & vbCrLf & _
" 年月字段名:输入库中年月字段名,若年月为两个字段,用逗号分隔" & vbCrLf & _
" 若年月字段为字符型,在年月字段名末尾加一个 $ 符号" & vbCrLf & _
" 若该参数为空时,后面年月参数不起作用" & vbCrLf & _
" 年: 可以输入本年?去年 或2000?1999等任何数字" & vbCrLf & _
" 月: 可以输入本月?上月 或1?...?12等? " & vbCrLf & _
" 标志: 0--不显示字段名 1--显示字段名"
ReDim mai_parmtype_ncs(5) As Integer
ReDim mai_parmdefault_ncs(5) As Integer
For i = 0 To 5
mai_parmtype_ncs(i) = 1
mai_parmdefault_ncs(i) = 1
Next i
rt = Cell1.DoAddUserFunctionEx("SQL通用函数", "SQL_ALL", 4, 5, mai_parmtype_ncs(0), mai_parmdefault_ncs(0), ls_hssm)
If rt = False Then MsgBox "增加用户自定义函数失败!", vbOKOnly, "百利/ERP5.0-电子报表"
'15.SQL语句 RowCol
ls_hssm = "函数名称:SQL_RowCol" & vbCrLf & _
" 生成SQL语句查询出的结果报表(不带网格）" & vbCrLf & _
"函数格式:" & vbCrLf & _
" SQL_RowCol(""SQL语句"",""年月字段名"",""年"",""月"")" & vbCrLf & _
"参数必须为如下格式:" & vbCrLf & _
" SQL语句:select 字段名 [as 别名] from 数据表名 [where 条件] " & vbCrLf & _
" 年月字段名:输入库中年月字段名,若年月为两个字段,用逗号分隔" & vbCrLf & _
" 若年月字段为字符型,在年月字段名末尾加一个 $ 符号" & vbCrLf & _
" 若该参数为空时,后面年月参数不起作用" & vbCrLf & _
" 年: 可以输入本年?去年 或2000?1999等任何数字" & vbCrLf & _
" 月: 可以输入本月?上月 或1?...?12等? "
ReDim mai_parmtype_ncs(4) As Integer
ReDim mai_parmdefault_ncs(4) As Integer
For i = 0 To 4
mai_parmtype_ncs(i) = 1
mai_parmdefault_ncs(i) = 1
Next i
rt = Cell1.DoAddUserFunctionEx("SQL通用函数", "SQL_RowCol", 4, 4, mai_parmtype_ncs(0), mai_parmdefault_ncs(0), ls_hssm)
If rt = False Then MsgBox "增加用户自定义函数失败!", vbOKOnly, "百利/ERP5.0-电子报表"
'16.SQL语句 ODBC
ls_hssm = "函数名称:SQL_ODBC" & vbCrLf & _
" 生成SQL语句查询出的结果报表" & vbCrLf & _
"函数格式:" & vbCrLf & _
" SQL_ODBC(""SQL语句"",""机器数据源名"",""用户标识"",""口令"")" & vbCrLf & _
"参数必须为如下格式:" & vbCrLf & _
" SQL语句: select 字段名 [as 别名] from 数据表名 [where 条件]? " & vbCrLf & _
" 机器数据源名: 由ODBC定义的机器数据源名" & vbCrLf & _
" 用户标识: 使用数据库合法的用户标识 " & vbCrLf & _
" 口令: 用户口令"
ReDim mai_parmtype_ncs(4) As Integer
ReDim mai_parmdefault_ncs(4) As Integer
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -