Skip to main content
dic As Object on Muck Rack

dic As Object

Is this you? As a journalist, you can create a free Muck Rack account to customize your profile, list your contact preferences, and upload a portfolio of your best work. Claim your profile

Get in touch with dic As

Contact dic As, search articles and posts on X, monitor coverage, and track replies from one place.

Learn more about Muck Rack

Actions

Share this page

Is this you?

As a journalist, you can create a free Muck Rack account to customize your profile, list your contact preferences, and upload a portfolio of your best work.
Claim your profile

Articles

「代码」独家干货免费分享！VBA综合应用，库存管理系统，出入库管理系统，收发存管理系统

|
By J Long, currRow As Integer, dic As Object, currYear As String
| 360doc.com
冷茶视界 2025-02-05 发布于江苏 | 转藏 内容提要 出入库管理系统|完整代码 1、在工作表“单据录入”里： Option ExplicitDim arr(), arrtemp(), DeliverNumber As StringDim sql As StringDim i As Long, j As LongPrivate Sub CmdAddNew_Click() Call clsRG.clearData Call updateDeliverNumberEnd SubPrivate Sub CmdDelete_Click() Dim rng As Range On Error Resume Next Set rng = Intersect(Selection.EntireRow, clsRG.数据区域) On Error GoTo 0 If Not rng Is Nothing Then If Not wContinue("即将删除：" & rng.Address & "所在单元格记录！") Then Exit Sub rng.ClearContents End...
Open in Who Shared Issue with article?

【代码】销售出库单：纯EXCEL版数据录入、保存、修改、打印模板！

|
By Dim arr, currRow As Integer, dic As Object, iWidth As Single
| 360doc.com
冷茶视界 2024-08-01 发布于江苏 | 转藏 内容提要 销售出库单|完整代码 1、在工作表“销售制单”里，命令按钮点击事件，工作表Change事件、Selection Change事件，TextBox的Change事件，ListBox的双击事件，自定义过程、函数： Dim arr(), arrtemp(), DeliverNumber As StringPrivate Sub CmdAddNew_Click() Call clsRG.clearData Call updateDeliverNumberEnd SubPrivate Sub CmdPrint_Click() Call printWorksheet(clsRG.打印区域)End SubPrivate Sub CmdRefresh_Click() Call updateDeliverNumberEnd SubPrivate Sub CmdSave_Click() If clsDQ.IsDeliverNumberExists(clsRG.单据编号) Then MsgBox "单据号已存在，请更新单据号后再保存！"...
Open in Who Shared Issue with article?

VBA【代码】超级实用：付款申请单，新增、修改、保存、打印一条龙！

|
By currRow As Integer, " ', Dim arr, dic As Object
| 360doc.com
实用案例 |日期控件||简单的收发存||收费管理系(Access改进版)| |电子发票管理助手||电子发票登记系统(Access版)| |文件合并||表格拆分||审计凭证抽查底稿| |中医诊所收费系统(Excel版)||中医诊所收费系统(Access版)||银行对账单自动勾对| |印章使用登记系统| 收费使用项目 |财务管理系统||工资薪金和年终奖个税筹划||新税法下工资表模版| 内容提要 付款申请单|完整代码 1、在工作表“付款申请单”里，命令按钮点击事件，工作表Change事件，Selection Change事件，文本框、列表框相关代码等： Dim arr(), arrtemp()Private Sub CmdAddNew_Click() Call clsRG.clearData Call updateBillNumberEnd SubPrivate Sub CmdPrint_Click() Call printWorksheetEnd SubPrivate Sub CmdRefresh_Click() Call updateBillNumberEnd SubPrivate...
Open in Who Shared Issue with article?
See all 3 articles