文章分类 -  1.001、Excel VBA相关

摘要：审计结算单批量生成 数据操作主要代码 Sub QH_A_01(quehui) '1.新建表格If quehui <> "阙辉" Then Exit Sub' Unload UserForm1Dim o As Integer, sht As Worksheeto = 15Set sht = Works 阅读全文

摘要：第一代 采用的是窗口gui的形式 功能：总控接口，新房各个业务模块的数据查询 只能单笔查询，不支持批量查询 以下是第一代的主要代码 第一代代码，作者：阙辉 Option ExplicitPrivate Declare Function GetWindowLong Lib "user32" Alias 阅读全文

摘要：中台税务管理 （样本） AT_10000003_20180305_0007_附征税中转 CUX_TAX CNY User VAT_10000003_20180204_0004_中台税务_税额扣款 CUX_TAX CNY User ST_10000003_20180206_0006_中台税务_税额扣款 阅读全文

摘要：文件分享 链接：https://pan.baidu.com/s/1rO3kseI3bUlxsUJnBLcStQ 提取码：ue2z 主函数 Function 阙辉_阿拉伯数字转英文(阙辉_阿拉伯数字)Dim qh_Cardinal_number, qh_i, qh_yu_shu, qh_shang_s 阅读全文

摘要：改文件名主程序部分 作者：阙辉 Sub huo_qu_lu_jing() '获取路径 阙辉Dim qh_lujing As Stringqh_lujing = QH_Folder_select()'If qh_lujing = 0 Then Exit SubSheets("Main").Range( 阅读全文

摘要：1、qh_chuang_jian_Excel 封装好的通用的创建Excel工作簿函数 Public Function qh_chuang_jian_Excel(Excel_ming, _ Optional password = "", _ Optional lu_jing = "") As Stri 阅读全文

摘要：这个函数的作用是判断E列是否含有"合同编号不在验证值集段值中！"，如果含有，则匹配出对应的开发商合同号 =IF(E2=IFERROR(VLOOKUP("*"&"合同编号不在验证值集段值中！"&"*",E2,1,0),""),VLOOKUP(B2,中台!A:BB,54,0),"") 阅读全文

摘要：先去重复，再取唯一值做序列 Sub test001() Dim qhs01 As Range Dim n As Long Dim qhn01 As Long Dim xulie1 As String With Sheets("角色表") qhn01 = .Range("b1000000").End( 阅读全文

摘要： 阅读全文