2022年11月22日
批量导入图片到多Word文档并加标题
摘要： Public fp$, obmapp As Object Sub kk() 文件夹浏览器 Application.ScreenUpdating = False Set fso = CreateObject("scripting.filesystemobject") If fp = "" Then E 阅读全文
posted @ 2022-11-22 11:21 依云科技 阅读(321) 评论(0) 推荐(0)
指定总和及范围随机凑数
摘要： Sub test() For i = 1 To 20 Debug.Print f(50, 10, 30, 3, 2) Next End Sub Rem sum_target 目标总和 Rem low 下限 Rem high 上限 Rem count_comb 组合个数 Rem decimal_dig 阅读全文
posted @ 2022-11-22 08:55 依云科技 阅读(56) 评论(0) 推荐(0)
随机凑数
摘要： Sub test() tms = Timer h = [e2] '目标和值h g = [g2] '凑数计算精度g 即Round函数的第2参数位数指定 m = [a1].End(4).Row - 1 '有效元素个数m ar = [a2].Resize(m, 2) For i = 1 To m ar(i 阅读全文
posted @ 2022-11-22 08:52 依云科技 阅读(83) 评论(0) 推荐(0)
2022年11月21日
两点间的所有路径
摘要： using System; using System.Collections.Generic; using System.Linq; using System.Text; using System.Threading.Tasks; namespace GraphAllRoad { class Pro 阅读全文
posted @ 2022-11-21 10:23 依云科技 阅读(48) 评论(0) 推荐(0)
正则匹配指定字符开头指定字符结尾中间部分的数字
摘要： Sub tes() Strs = "AO 22m IVSd 7mm LVDd 43mm RV 18mm" Set reg = CreateObject("vbscript.regexp") With reg .Global = False .ignorecase = True .Pattern = 阅读全文
posted @ 2022-11-21 09:34 依云科技 阅读(350) 评论(0) 推荐(0)
2022年11月19日
递归获取指定文件夹下全部文件的路径
摘要： Dim jg(), k&, tms#, n '因为是递归，所以事先指定存放结果的公用变量数组jg以及计数器k和起始时间tms Dim ar_res(1 To 65535, 1 To 10) Dim k_res As Long Dim dic_cust_yu_e_last As Object Dim 阅读全文
posted @ 2022-11-19 16:49 依云科技 阅读(80) 评论(0) 推荐(0)
一维下料优化
摘要： Sub CutPlan() Me.Select Dim ar, a&(), b(), c&(), d(), dic, tr, i&, i1&, j&, j1&, k&, l&, l1&, m&, m1&, n&, r&, r1&, r2&, s@, t&, u@, u1@, v@, v1@, w$, 阅读全文
posted @ 2022-11-19 08:40 依云科技 阅读(105) 评论(0) 推荐(0)
2022年11月18日
带窗体和宏的工作簿另存为普通工作簿
摘要： Private Sub CommandButton1_Click() respath = 选择文件夹 TextBox3.Text = respath res_sava_as_path = TextBox3.Value main activeWorkBookSaveAs Unload UserForm 阅读全文
posted @ 2022-11-18 16:18 依云科技 阅读(137) 评论(0) 推荐(0)
财务发票智能拆分
摘要： Public dic_tax As Object Public dic_jishu_row As Object Public cnt_output Public val_jishu Sub 清空src() With Sheets("src") .Range("a2:m65535").ClearCon 阅读全文
posted @ 2022-11-18 08:50 依云科技 阅读(142) 评论(0) 推荐(0)
instr结合工作表事件统计小区数量
摘要： Sub main() With Sheet1 str_name = .[n1] ar = .Range("a1").CurrentRegion For x = 3 To UBound(ar) If InStr(ar(x, 4), str_name) > 0 Then k = k + 1 End If 阅读全文
posted @ 2022-11-18 08:47 依云科技 阅读(38) 评论(0) 推荐(0)