Excel 2010 VBA 入门 062 跨表数据查询

最新推荐文章于 2022-04-21 08:12:41 发布
最新推荐文章于 2022-04-21 08:12:41 发布
阅读量3.8k 收藏 18
点赞数 4
分类专栏： # Excel 2010 VBA 入门
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/ngbshzhn/article/details/115890474
版权
本文介绍了如何使用Excel 2010 VBA进行跨表数据查询。通过示例展示了在工作簿中创建'数据表'和'数据查询'表，然后在VBA中实现根据关键字在'数据表'中查找并实现连续查找功能，利用Find方法和全局变量跟踪查找位置，确保无误查。
摘要由CSDN通过智能技术生成

目录

示例

实现代码

跨表操作单元格

连续查找功能

示例

    如图所示，该工作簿中建立“数据表”和“数据查询”表分别用于存储客户信息以及客户信息的查询。现希望在数据查询表的关键字栏中输入某个关键字，并在“数据表”中的各列对该关键字进行查找，然后希望能随着按钮“查找下一个”的单击不断显示下一条满足条件的记录。如何用VBA完成？

客户名称 单位地址 联系人 联系电话
石家庄伊克塞尔有限公司 石家庄市中山路52号 程建华 XXX-XXXXXXXX
太原伊克塞尔有限公司 太原市中山路76号 李国敏 XXX-XXXXXXXX
沈阳伊克塞尔有限公司 沈阳市中山路27号 袁志刚 XXX-XXXXXXXX
长春伊克塞尔有限公司 长春市中山路56号 周汉林 XXX-XXXXXXXX
哈尔滨伊克塞尔有限公司 哈尔滨市中山路6号 骈永富 XXX-XXXXXX
最低0.47元/天 解锁文章
ngbshzhn
关注
  • 4
    点赞
  • 踩
  • 18
    收藏
    觉得还不错? 一键收藏
  • 打赏
    打赏
  • 0
    评论
专栏目录
vba实现不同表间关联查找
liuxf196921的专栏
05-11 1151
Option Explicit Sub buttonClick() Call otherSheetSerch(ThisWorkbook.Worksheets("合同管理"), ThisWorkbook.Worksheets("Sheet1"), 1, 1, 1, 1, 2, 2) End Sub '不同表间关联查找：表workSheet1的keyColumn1与workSheet2的keyColumn2关联，在workSheet2中找到srcColumn列，写入workSheet1的destCol..
利用VBA代码从一个表格检索另一个表格并且复制找到的内容
02-24
Excel表格，想以其中某一列为索引，查找另一个表格中同样索引的行，找到该行的某个内容复制到原来的表格指定的位置中。还可以删除原有表格中重复的内容。应用场景非常多，比如：利用学生学号和考场分配表查找学生座位号；利用字典表查找需要更新的项目；对某个表格以某列进行排序等等。相信学习这段代码可以有很多的启发。
[神马]VBA查找匹配项
MiKiJT的博客
04-21 1559
为了一顿小龙虾，不惜花了一下午时间。 Sub 小龙虾() Dim sheetCnt As Integer, zongbiaorow As Integer, biaorow As Integer, i As Integer, j As Integer, k As Integer, p As Integer Dim s As String, target As String Dim ww As Range sheetname = ActiveWindow.ActiveSheet.Name '当前表格名
跨表批量查找匹配数据-转载（略有改动）
weixin_34175509的博客
02-20 1459
1.=MATCH(B2,[2.xlsx]Sheet1!$A$2:$A$4,0) MATCH函数含义：返回指定数值在指定数组区域中的位置 语法：MATCH(lookup_value, lookup_array, match_type) lookup_value：需要在数据表（lookup_array）中查找的值。可以为数值（数字、文本或逻辑值）或对数字、文本或逻辑值的单元格引用。可以包含通...
利用VRV检查WPS软件的安装率
dawn0718的专栏
10-26 754
　　VRV是一款非常好的国产安全软件，做得还是比较精细，但也有一点小瑕疵，比如在检查WPS软件的安装上有时候不准，这个问题很让人犯愁。 　　我的做法： 　　①　如果正确安装了WPS，但是却被扫描没有安装，就进行下面的操作。 　　打开C:\Windows\SysWOW64这个目录，并找到EdpUninstallSoftware.crc这个文件，删除它。重启计算机。 　　②　如果上述操作无法提取到WPS的安装，就卸载WPS，重新启动再安装WPS。 　　③　如果上述措施还是不行，就在磁盘上搜索uninst
VBA学习笔记本(二)——两个表格数据匹配_DEMO
04-13
VBA学习笔记本(二)——两个表格数据匹配_DEMO 将excel中两个工作表中，数据进行一键同步的通用方法
Excel2010VBA入门与提高.pdf
07-23
《Excel 2010 VBA入门与提高》着重于Excel VBA 的基础知识和技巧，通过153 个实例为读者展示应用VBA 解决实际问题的思路和方法，并展示了常规VBA 数据处理的要点，帮助读者学会解决实际问题的思考方式。阅读《Excel ...
Excel 2010 VBA入门与提高pdf
09-06
《Excel 2010 VBA入门与提高》是一本专为Excel用户设计的编程教程，旨在帮助读者掌握Visual Basic for Applications（VBA）的基本概念和高级技巧，从而提升在Excel中的自动化处理能力。这本书既适合对VBA一无所知的...
Excelvba.rar_Excel VBA_excel vba入门
09-19
这篇文档“Excelvba.doc”将引导初学者入门Excel VBA。 在Excel VBA中，主要涉及以下几个关键知识点： 1. **VBA编辑器**：这是编写VBA代码的地方。通过点击“开发者”选项卡（在Excel界面中可能需要开启），然后...
ExcelVBA.rar_Excel VBA_VBa_excel_excel vba入门
最新发布
09-24
本资源"ExcelVBA.rar"是一个针对初学者的VBA入门教程，旨在帮助用户快速掌握Excel VBA的基本概念和实践技巧。 在Excel VBA中，你可以编写代码来控制Excel的所有操作，包括创建、修改、格式化单元格，处理数据，甚至...
VBA实现EXCEL多表格多条件查询
04-16
VBA实现EXCEL多表格多条件查询 For i = 1 To Workbooks.Count For Each c In Sheets(i).UsedRange If c.Value >= 150 And c.Value <= 160 Then c1 = c1 + c.Value n = n + 1 End If ‘更多条件…… Next Next
VBA 跨文件 批量 模糊查询数据 脚本分享
12-06
VBA是Office软件所支持的，可以自动处理重复，复杂的流程的脚本。该脚本涉及使用VBA打开另一个excel,并获取数据；使用模糊查询算法获取数据；流程控制语句If、While、Set、With等语句。对于学习和相关用途十分有帮助哦。。
Excel VBA 字典 集合 查找 代码
06-06
字典与集合的比较 字典的用法和特点 字典的实例代码
VBA+实现数据快速匹配
05-26
此工具用于数据匹配，其使用方法特别简单，与vlookup函数相似，但其匹配效率比vlookup函数要高，特别是处理超过10W级的数据，填好相对应的参数后点击按钮，基本在30S内可以完成匹配，此外，此工具可实现一行匹配多行，大大提高了匹配效率。
Excel 2010 VBA 入门106 带参数的过程.xlsm
07-15
示例数据
excel vba 实现跨表单(sheet) 搜索 - 显示搜索行记录搜索历史
weixin_33967071的博客
05-27 360
　　前两天，一个朋友问我，有没有办法在excel里实现一个表单里是原始数据，在另一个表单里显示搜索到的行，搜索关键词可用~分隔开，并把搜索历史记录下来？ 　　我想了想，用vba实现肯定可以啊，但是我又在想，有没有可能excel自身的功能就可以实现了呢，但是后来没有发现excel自带这种功能。于是思考自己用vba给实现吧。 　　于是我打开我的电脑，结果发现我的office版本是wps，根本就没有vb...
SQL语句：一张表和另一张表的多重匹配查询
weixin_30386713的博客
06-04 910
1、两个表结构如下图 2、如何查询成如下图所示 3、SQL语句是： 1 select id,name=stuff(( 2 select ','+t2.name 3 from a t1 4 join b t2 on charindex(','+convert(varchar(5),t2.id)+',',','+t1.name+',')>0 5 where ...
excel跨表查询数据
weixin_33744141的博客
11-06 426
环境：公司部分部门进行商品盘点，店铺经理要求不经过系统进行盘点，全程采用excel表格处理所示： 左图为总表，右图为首饰部门录入的数据 需求：找出盘点差异（即首饰部商品数量是否和对应的货号数量相同） 分析：通过首饰货号（唯一）查找总表对应的库存数量，和实际盘点到的数量进行对比，找出差异 知识点：通过货号查询总表库存数量+判断查询到的库存数量是否和实际数量有差异 通过货...
VBA跨表操作和取数据的各种问题，如跨表取其他EXCEL工作簿的sheet名
热门推荐
奔跑的犀牛先生
01-02 1万+
1 本地取其他EXCEL的表名，很简单 1.1 下面2种写法都是可以的 Sub williamDing1() k = 1 For i = 1 To Worksheets.Count Worksheets("统计").Cells(k, 1) = Worksheets(i).Name k = k + 1 Next End Sub Sub williamDing2() j = ...
提升效率：Excel 2010 VBA编程入门与实战指南
在Excel 2010中，Visual Basic for Applications (VBA) 提供了一种强大的工具，让非程序员也能扩展Excel的功能并自动化复杂的任务。VBA是Microsoft Office应用程序，特别是Excel，用于编写宏（可执行的脚本）的一种...
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包

打赏作者

ngbshzhn

你的鼓励将是我创作的最大动力

¥1 ¥2 ¥4 ¥6 ¥10 ¥20
扫码支付：¥1
获取中
扫码支付

您的余额不足，请更换扫码支付或充值

打赏作者

实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值