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)
过滤器过滤能完全匹配的数据标记颜色
摘要： Public brr, brr_ykfp Private Sub initData() With Sheets("历史数据") .Cells.ClearContents .Cells.Interior.ColorIndex = 0 .[d1] = "开票日期" End With End Sub Su 阅读全文
posted @ 2022-11-18 08:42 依云科技 阅读(24) 评论(0) 推荐(0)