dkey As String

内容提要 根据工资表生成工资条：两种思路|完整代码 1、在工作表“工资表”里，命令按钮点击事件，调用相应过程： Private Sub CmdPayslip_Click() Call generatePayslipEnd SubPrivate Sub CmdPayslip2_Click() Call generatePayslip2End Sub 2、在myModule模块里，自定义过程generatePayslip，生成工资表，这是方法一： Sub generatePayslip() Dim ws As Worksheet, wsTarget As Worksheet Dim rngTitle As Range, rngData As Range, lastRow As Integer, lastCol As Integer Dim strTitle As String, currName As String Dim dic As Object, dKey As String Dim time As Single Application.ScreenUpdating =...

快速浏览 实用案例 |日期控件||简单的收发存||收费管理系(Access改进版)| |电子发票管理助手||电子发票登记系统(Access版)| |文件合并||表格拆分||审计凭证抽查底稿| |中医诊所收费系统(Excel版)||中医诊所收费系统(Access版)||银行对账单自动勾对| |印章使用登记系统| 收费使用项目 |财务管理系统||工资薪金和年终奖个税筹划||新税法下工资表模版| 内容提要 自定义汇总函数|完整代码 1、在模块myModule里，自定义函数mySum： Function mySum(keyRange As Variant, sumRange As Range, Optional delimiter As String = "+") Dim rng As Range, arr(), arrKey() As String, keyWords As String Dim lastRow As Long, lastCol As Long Dim materialCode As String Dim temp As Double If...

快速浏览 实用案例 |日期控件||简单的收发存||收费管理系(Access改进版)| |电子发票管理助手||电子发票登记系统(Access版)| |文件合并||表格拆分||审计凭证抽查底稿| |中医诊所收费系统(Excel版)||中医诊所收费系统(Access版)||银行对账单自动勾对| |印章使用登记系统| 收费使用项目 |财务管理系统||工资薪金和年终奖个税筹划||新税法下工资表模版| 内容提要 根据生产领料明细批量生成生产领料单|完整代码 1、在工作表“生产领料明细”表里，命令按钮点击事件，调用生成领料单过程。 Private Sub CmdGo_Click() Call materialRequestEnd Sub 2、在模块myModule里，materialRequest过程，生成领料单： Sub materialRequest() Dim ws As Worksheet, rng As Range Dim arr(), temp(), template(), iRow As Integer, iCol As Integer Dim dic As Object,...