大家好，我是陈小虾，是一名自动化方向的IT民工。写博客是为了记录自己的学习过程，通过不断输出倒逼自己加速成长。但由于水平有限，博客中难免会出现一些BUG，或者有更优方案恳请各位大佬不吝赐教！微信公众号：万能的Excel

功能说明：

本案例是应用在股票系统分析的时候，需要从原始数据的表格中，筛选出自己需要的一些数据，并生成TXT 文件

本工作表使用VBA实现了如下功能：

1、跨表格多条件筛选

2、在新表格输出结果

3、将结果生成TXT文件

关注公众号：万能的Excel 并回复【跨表格】获取源文件！

附上代码：

Private Sub CommandButton1_Click()Dim d, ar, w%, j%, i As String, tempArr, str, t As String, dir As StringSet d = CreateObject("Scripting.Dictionary")dir = Cells(1, 11)Open ThisWorkbook.Path & "\" & dir & ".txt" For Output As #1Application.ScreenUpdating = FalseWith GetObject(ThisWorkbook.Path & "\" & dir & ".xls")ar = .Sheets(1).[a1].CurrentRegion: .Close 0End WithFor w = 2 To UBound(ar)If ar(w, 4) <> "--" ThentempArr = Split(ar(w, 1), ".")If tempArr(1) = "SZ" Theni = 0ElseIf tempArr(1) = "SH" Theni = 1End IfSheet1.Cells(w - 1, 1).Value = i + "|" + tempArr(0) + "|" + "【" + ar(w, 4) + "】"t = "," + Sheet1.Cells(w - 1, 1)Print #1, Mid(t, 2)t = vbNullStringEnd IfNextClose #1
End Sub

Excel VBA 高级编程-跨表格多条件筛选相关推荐

Excel VBA高级编程-SQL检索（二）合并相同项并求和
大家好,我是陈小虾,是一名自动化方向的IT民工.写博客是为了记录自己的学习过程,通过不断输出倒逼自己加速成长.但功能说明:由于水平有限,博客中难免会出现一些BUG,或者有更优方案恳请各位大佬不吝赐教! ...
Excel VBA高级编程-SQL检索（一）
大家好,我是陈小虾,是一名自动化方向的IT民工.写博客是为了记录自己的学习过程,通过不断输出倒逼自己加速成长.但功能说明:由于水平有限,博客中难免会出现一些BUG,或者有更优方案恳请各位大佬不吝赐教! ...
Excel VBA高级编程 - 根据关键字自动搜索，自动生成下拉菜单
关注微信公众号:万能的Excel,回复关键词[下拉菜单]获取Excel源文件功能说明: 因为工作需要,每一次都要从SAP查找物料信息,手动生成物料清单(Boom表),繁琐且容易出错. 使用VBA实现 ...
Excel VBA高级编程 - 根据关键词实时筛选，自动生成下拉菜单
关注公众号:万能的Excel 并回复[实时筛选]获取源文件! 功能说明: 当客户群体到达一定数量后,统计信息往往编程一项非常繁琐的工作.根据关键字自动搜索并且列出完整的信息编程一项必不可少的功 ...
Excel VBA 高级编程-客户跟进管理系统
大家好,我是陈小虾,是一名自动化方向的IT民工.写博客是为了记录自己的学习过程,通过不断输出倒逼自己加速成长.功能说明:由于水平有限,博客中难免会出现一些BUG,或者有更优方案恳请各位大佬不吝赐教!微 ...
Excel VBA高级编程 -自动去除重复项自动求和
大家好,我是陈小虾,是一名自动化方向的IT民工.写博客是为了记录自己的学习过程,通过不断输出倒逼自己加速成长.但功能说明:由于水平有限,博客中难免会出现一些BUG,或者有更优方案恳请各位大佬不吝赐教! ...
Excel VBA高级编程-关键字查找数据库
关注公众号:万能的Excel 并回复[关键字]获取源文件! 功能说明: 这个表格的主要功能是:根据输入的关键字找到数据库中,正确的公司名,生成一个下拉菜单,再根据正确的公司名,找到对应的No生 ...
Excel VBA高级编程 -根据日期查找数据
关注公众号:万能的Excel 并回复[日期搜索]获取源文件! 功能说明: 打印出货单的时候,经常会需要从数据库中查询一段时间内的所有数据本工作表使用VBA实现了如下功能: 1.实时统计重复项 ...
Excel VBA 高级编程-来自直男的Excel表白
关注公众号:万能的Excel 并回复[表白]获取源文件! 七夕快到了,想用另类的表白方式,奈何自己不懂编程?那我就叫你如何用Excel 表白吧! 功能说明: 1.自动播放想说的话 2.用数学公 ...

Excel VBA 高级编程-跨表格多条件筛选

功能说明：

Excel VBA 高级编程-跨表格多条件筛选相关推荐

最新文章

热门文章