2023年2月20日
sql_left_join快速匹配
摘要： Dim o As New cClassSqlHelperForTableDB Sub test() sql1 = "select 合同编号,sum(实收金额) as 实收金额 from [财务实收信息$] where 实收状态='已确认' group by 合同编号" sql2 = "select 阅读全文
posted @ 2023-02-20 17:12 依云科技 阅读(31) 评论(0) 推荐(0)
合并型号和名称相同产品的库存数量
摘要： Sub test() Set d = CreateObject("scripting.dictionary") With Sheet1 ar = .Range("a1").CurrentRegion For x = 2 To UBound(ar) s = ar(x, 1) & "," & ar(x, 阅读全文
posted @ 2023-02-20 17:06 依云科技 阅读(98) 评论(0) 推荐(0)
快递费最优方案测算
摘要： Public max_price As Double Dim sj, jg(), m%, n%, k& Sub main() Application.ScreenUpdating = False Call initComb '组合初始化 Dim coll As New Collection max_ 阅读全文
posted @ 2023-02-20 17:04 依云科技 阅读(71) 评论(0) 推荐(0)
四级数据有效性查询
摘要： Private Sub Worksheet_SelectionChange(ByVal Target As Range) Dim arr As Variant, TargetRow As Integer, ProName As String, d As Object Set d = CreateOb 阅读全文
posted @ 2023-02-20 17:02 依云科技 阅读(37) 评论(0) 推荐(0)