查看: 5937|回复: 10
用VBA代码如何实现在excel的sheet1中选则下拉列表框选项后，对应跳转到相应项目表单
初级一, 积分 5, 距离下一级还需 45 积分
积分学习力
魅力值 影响力
消费券 Ti币好友
在线时间 小时
最后登录月度优秀 次
免费注册成为本站会员，享用更多功能，结识更多Office办公高手！
才可以下载或查看，没有帐号？
本帖最后由 浩南 于
08:43 编辑
(4.79 KB, 下载次数: 36)
08:41 上传
点击文件名下载附件
我做的excel表格
& && &&&各位大师，请问用VBA代码如何实现在excel的sheet1中选则B2下拉列表框选项“贴墙式膜式水冷壁；双面曝光模式水冷壁；光管，销钉管”内容后，对应跳转到相应项目名称为“贴墙式膜式水冷壁”、“双面曝光模式水冷壁”、“光管”、“销钉管”sheet表单中输入其结构数据？excel表格见附件！
& &&&由于对VBA不熟，求大师们直接给出这段代码，谢谢！
& &&&比较着急，求各位大侠给予帮助！感谢感谢！
学office，哪能不关注全网最大的Office类微博（新浪）
初级三, 积分 297, 距离下一级还需 203 积分
积分学习力
魅力值 影响力
消费券 Ti币好友
在线时间 小时
最后登录月度优秀 次
大致明白意思，麻烦上传个附件
学office，哪能不关注全网最大的Office类微博（新浪）
中级一, 积分 500, 距离下一级还需 250 积分
积分学习力
魅力值 影响力
消费券 Ti币好友
在线时间 小时
最后登录月度优秀 次
本帖最后由 我是小马儿 于
17:55 编辑
Private Sub Worksheet_Activate()
Dim ws As Worksheet
Dim d, k, u
& & Set d = CreateObject(&scripting.dictionary&)
& & For Each ws In Worksheets
& && &If Not ws Is ActiveSheet Then
& && && && &d(ws.Name) = d(ws.Name) + 1
& && && && &k = d.keys
& && &End If
& & Next
& & For j = 0 To UBound(k) - 1
& && &&&k(j + 1) = k(j) & &,& & k(j + 1)
& && &&&u = k(j + 1)
& & Next
& & With Range(&B2&).Validation
& && && && &.Delete
& && && && &.Add Type:=xlValidateList, Formula1:=u
& & End With
& &
& & Set d = Nothing
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
& &
& &If Target.Address && &$B$2& Then
& && &&&Exit Sub
& & Else
& && & Worksheets(Target.Value).Select
& &End If
End Sub
复制代码在你的那一页工作簿中，复制以上代码进去。就可以了。
PS,因为，没有看到你的附件。为了确保跳转成功。只能帮你写了一个扩展
耐心解答！:-)
学office，哪能不关注全网最大的Office类微博（新浪）
初级一, 积分 5, 距离下一级还需 45 积分
积分学习力
魅力值 影响力
消费券 Ti币好友
在线时间 小时
最后登录月度优秀 次
朽木 发表于
大致明白意思，麻烦上传个附件
朽木GG，附件已上传，谢谢你！
学office，哪能不关注全网最大的Office类微博（新浪）
初级一, 积分 5, 距离下一级还需 45 积分
积分学习力
魅力值 影响力
消费券 Ti币好友
在线时间 小时
最后登录月度优秀 次
我是小马儿 发表于
在你的那一页工作簿中，复制以上代码进去。就可以了。
PS,因为，没有看到你的附件。为了确保跳转成功。只能 ...
感谢大师的回复，昨天附件不知道没有传上去，我现在上传了，麻烦小马儿大师再给我看看怎么实现这个操作，谢谢你啦！
学office，哪能不关注全网最大的Office类微博（新浪）
初级三, 积分 297, 距离下一级还需 203 积分
积分学习力
魅力值 影响力
消费券 Ti币好友
在线时间 小时
最后登录月度优秀 次
浩南 发表于
朽木GG，附件已上传，谢谢你！Private Sub Worksheet_Change(ByVal Target As Range)
Dim i&
& & i = Target.Row
& & If Sheet1.Cells(i, 2) = &贴墙膜式水冷壁& Then
& && &&&Sheet2.Activate
& & ElseIf Sheet1.Cells(i, 2) = &双面曝光膜式水冷壁& Then
& && &&&Sheet4.Activate
& & ElseIf Sheet1.Cells(i, 2) = &销钉管& Then
& && &&&Sheet3.Activate
& & End If
End Sub
复制代码ALT+F11打开VBE窗口，在SHEET1 贴上面的代码，不知道我的理解对不对？
学office，哪能不关注全网最大的Office类微博（新浪）
中级一, 积分 500, 距离下一级还需 250 积分
积分学习力
魅力值 影响力
消费券 Ti币好友
在线时间 小时
最后登录月度优秀 次
Public tt%
Private Sub Worksheet_Activate()
Dim ws As Worksheet
Dim d, k, u
& & Set d = CreateObject(&scripting.dictionary&)
& & For Each ws In Worksheets
& && &If Not ws Is ActiveSheet Then
& && && && &d(ws.Name) = d(ws.Name) + 1
& && && && &k = d.keys
& && &End If
& & Next
& & For j = 0 To UBound(k) - 1
& && &&&k(j + 1) = k(j) & &,& & k(j + 1)
& && &&&u = k(j + 1)
& & Next
& & tt = ActiveSheet.Range(&B& & Rows.Count).End(xlUp).Row
& & With Range(&B2:B& & tt).Validation
& && && && &.Delete
& && && && &.Add Type:=xlValidateList, Formula1:=u
& & End With
& &
& & Set d = Nothing
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
Dim rng As Range
Set rng = Range(&B2:B& & tt)
& &
& &If Target.Column && rng.Column Then
& && &&&Exit Sub
& & Else
& && & Worksheets(Target.Value).Select
& &End If
End Sub
复制代码好了。
09:31 上传
点击文件名下载附件
11.7 KB, 下载次数: 64
学office，哪能不关注全网最大的Office类微博（新浪）
初级一, 积分 5, 距离下一级还需 45 积分
积分学习力
魅力值 影响力
消费券 Ti币好友
在线时间 小时
最后登录月度优秀 次
朽木 发表于
ALT+F11打开VBE窗口，在SHEET1 贴上面的代码，不知道我的理解对不对？
感谢朽木GG的回复！这段代码比较简洁，我大概意思看懂了！定义的 i = Target.Row 是指选中的“某一行”的意思吧？
还有我的QQ号： ；是西安交通大学一名的在读研究生，现在急需要学点VBA知识，希望有不懂的能够得到朽木GG的帮助。期待朽木GG有时间加下我吧！感谢感谢**！
学office，哪能不关注全网最大的Office类微博（新浪）
初级三, 积分 297, 距离下一级还需 203 积分
积分学习力
魅力值 影响力
消费券 Ti币好友
在线时间 小时
最后登录月度优秀 次
浩南 发表于
感谢朽木GG的回复！这段代码比较简洁，我大概意思看懂了！定义的 i = Target.Row 是指选中的“某一行”的 ...
我VBA很烂的。哎，我毕业之后才学的excel，大学时那么多时间就应该多花时间玩玩excel的。
学office，哪能不关注全网最大的Office类微博（新浪）
初级一, 积分 5, 距离下一级还需 45 积分
积分学习力
魅力值 影响力
消费券 Ti币好友
在线时间 小时
最后登录月度优秀 次
朽木 发表于
我VBA很烂的。哎，我毕业之后才学的excel，大学时那么多时间就应该多花时间玩玩excel的。
朽木GG谦虚了，我现在就是一个外行，你水平比我高多了！希望能够和你多交流，你QQ号能发给我吗？谢谢啦**！
关于我上传的这个excel表格，我还有另外一个功能实现问题：
关于自动添加在“贴墙式膜式水冷壁”sheet、“双面曝光模式水冷壁”sheet、“销钉管”sheet表单第一列输入对应不同A、B、C......类型的受热面形式后，我希望在sheet1 &计算受热面类型&这一列中，列表框自动添加包括输入的四种受热面类型中对应的不同形式受热面：如sheet1 &计算受热面类型&列表框变为：
贴墙式膜式水冷壁A
贴墙式膜式水冷壁B
贴墙式膜式水冷壁C
双面曝光模式水冷壁A
双面曝光模式水冷壁B
双面曝光模式水冷壁C
这样我就能够在受热面类型这个sheet中，选择对应的类型了，请问这段自动添加不同表单中的内容到下拉列表框中的代码在VBA中怎么去实现啊？
学office，哪能不关注全网最大的Office类微博（新浪）
Excel技巧网的会员探讨问题仅代表其个人意见，与网站的立场无关。任何违反国家和地方相关法律法规的言论，本站有义务协助政府相关部门追究发言者的责任！
本站中非注明转载文章与案例的版权为作者与Excel技巧网共有。若非原文作者，本站之外任何单位或个人未经允许，不得将其用于商业用途。
若非原文作者，任何形式的非商业性转载必须获得Excel技巧网或作者允许，并注明作者和出处。
会员发表的帖子如涉及版权纠纷，须自行负责。详情请参考注册时的网站服务条款。
本站特聘法律顾问：沈学律师
Powered by两张EXCEL表中的数据做对比如何操作啊，表如下，要对比出单价变动的数据是哪几条？注意单价里面相同价格
名称 数量 单价
在表二D2中 =SUM(IF(表一!A$2:A$5=A2,IF(表一!C$2:C$5=C2,1,0))) 注意：Ctrl Shift Enter 复制公式即可 结果：1为无变动0为有变动
单价整列复制到同一张表，单价减单价，再筛选不等于0的。
《远光财务软件》是国内第一套完全以浏览器/服务器方式实现的财务管理软件。以其先进的技术、合理的设计、安全的运行机制，在广大电力企业得到了广泛、成功的应用。 由于以浏览器/服务器方式实现，《远光财务软件》具有极高的网络运行效率，不但可以在局部网上使用，还可以在通过远程拨号或其他方式建立的广域网上使用，甚至可以通过Internet实现财务数据的实时共享。在电力系统中，不少企业的下属部门实行报账制核算，使用本系统后，在地理上分散的各个部门即可通过系统内部电话网或其它广域网使用同一套财务软件，第一次从技术上保证了实时的集中核算。《远光财务软件》的客户端只需安装Windows95/98的操作系统加浏览器，不需安装任何具体的应用软件；运行系统时只要在浏览器中像访问其他主页一样输入一个财务软件服务器的网址；安装、更新软件版本时，只需对服务器端进行，浏览器端会在建立连接时自动更新。这样，就使安装维护的工作量与成本降到最低，使系统管理员的工作量大大减少。 《远光财务软件》的设计与实现采用了三层结构技术，与业务流程处理有关的应用服务程序和数据库系统可以按机器的性能、网络结构和实际需要安装在网络中的一台或多台机器上；系统的客户端也可以与服务器安装在同一台计算机上。这样，多台计算机的分布式处理完全可以替代高档的专用服务器或小型计算机的处理能力，充分利用了计算机网络的总体协同计算能力和资源，有效地保护了用户单位的原有硬件投资。 《远光财务软件》包括账务处理、报表管理、工资核算、固定资产管理、远程服务、文件信息六大功能模块，功能覆盖整个会计核算体系，同时实现了财务管理、企业内部管理的功能。它采用最新的计算机技术，符合新颁布实施的《会计法》及相关制度。下面将分模块分别介绍各子系统的功能： 1、账务处理功能： 账务处理系统完成按账户分类的各种核算任务，快速取得反映企业资金运用和财务成果的所有汇总数据，将通用性和易用性完美地结合在一起。 多账套管理，可在同一系统中完成多个核算单位的账务处理工作，账套间完善的权限划分，使企业分工更为明确。 用直观的科目框图代替了常见的科目体系列表，在科目设置和选择时都更快捷。科目块的设计，使具有相同下级明细的科目增加，更方便、快捷。 多账户体系的设计，一个账户可按不同的分类统计需要，设置多个辅助账核算。 核算单、双方科目的设计，出色地完成了多栏账和冲销发生额的处理。 清理账户体系完成往来账户的结算，账龄分析一目了然。 预算及定额管理控制企业的各种成本、费用，报警、确认和拒绝三种提醒方式，使控制更灵活、严谨。 跨月凭证处理功能，可连续输入12个月的凭证而无需结账，以后月份的汇总数据和明细账亦可随意获得。 多币种的核算，自动完成汇兑损益的结转；、多数量单位和燃料的核算，完成大型电厂对多种燃料的数量、单价、金额的核算。 强大的对账功能，完成与银行对账单的自动核对功能，并产生余额调节表。 精美的账页显示、打印功能，可随时打印输出三栏账、多栏账、数量账、外币账和总账等多种账页。 成功完成了与报表、固定资产、工资等模块内部的无缝连接。 2、报表管理功能： 报表管理系统采用完全兼容Excel的报表格式设计方式，集合全方位的报表数据来源，立体的报表运算关系，实现报表数据的快速采集。以完整的、统一的\"全国电力系统单位统一编码\"为基础，全面、详细地记录每个电力企业与其他各个电力企业之间发生的需要抵销的事项。在不同层次、不同地域、不同行业的合并范围内，实现跨地域、跨层次的报表合并，真正满足各级领导不同角度的管理要求。 充分利用Excel强大的功能处理会计报表格式、运算、打印等，大大提高了系统的可操作性和运行速度，同时为与外部数据的交换提供了最大的便利。 报表格式可随时修改，数据和取数、运算关系智能对应；按时间保存报表格式，历史数据按历史格式显示。 报表模板的导出、导入功能，保证上、下级单位之间报表格式、取数、运算公式和勾稽关系的一致。 运用整数规划原理，以报表运算关系和勾稽关系为约束条件、以整体误差最小化为目标，成功地解决了报表化千元问题，实现了报表系统的重大突破。 改变传统的合并报表编制方法，采用直接对报表项目编制抵销分录的方法，使得抵销分录只依赖于统一、规范的报表体系，抵销业务由实际发生业务的企业处理、上报，在报表合并时，自动根据合并范围进行相应业务的抵销，产生不同口径、不同范围的合并报表。 提供多时段报表，在产生年报、季报、月报的同时，增加了旬报和日报功能，缩短了编报周期，提高了报表信息的时效性。 设计了多种报表汇编和综合查询功能，允许按不同编报范围、不同时间范围对报表数据进行综合利用、分析比较，形成企业经营决策所需的重要信息，真正体现为企业管理服务的思想。 编报说明的上报功能，完成了报表数据的整体上报。 3、远程服务功能： 远程服务模块利用电子邮件、拨号方式或内部网络方式，实现上、下级单位之间实时、快速、准确地交换各类报表、邮件和数据信息。 报表数据传输功能独立于报表系统之外，采用电子邮件、点对点传输、拨号网络等多种方式，将上报、收集和传输有机结合，实现了报表数据的自动上报和收集。 按照报表的不同周期，设置不同的上报时限，可自动向编报单位发送催报电子邮件，实现了报表数据的自动催报。 自动记录报表报送信息，统计不同编报单位的及时上报率、编报准确率等，为编报工作的考核提供重要依据。 4、工资核算功能： 工资核算系统以职工工资项目作为基本数据，自动计算各种税、费、保险，灵活方便的多次发放工资，并按多种口径、组织机构进行工资数据的汇总统计，完成职工工资发放工作。 多工资套的管理，可同时完成多个单位的工资核算。 工资项目设置灵活，可自行定义工资项目间的运算公式。 组织机构层次可自由定义，职工在各机构间自由调动，职工编号可自动调整，且不影响职工历史数据和机构汇总数据。 具备每月发放一次或多次工资的功能，可分别完成工资、奖金和加班费等职工收入的单独发放，每次发放的实发数，可选择不同的运算公式。 个人所得税的计税项目可以自由选择，精确计算职工个人所得税。 各种工资数据的查询和报表处理浑然一体，方便的工资报表格式设置，可打印各种工资发放表、汇总表和个人工资条。 方便的数据导入、导出功能，可将其他系统统计的工资项目数据导入，也可将本系统产生的工资发放数据导同，提供银行代表工资表。 强大的数据查询功能，可随时查询职工个人或汇总的历史数据。 5、固定资产核算功能： 固定资产模块以固定资产卡片为原始数据，按多种方式对固定资产进行分类，实现对固定资产的折旧计算、增减管理和汇总统计，完成企业固定资产的核算。 多个固定资产账套的管理，可同时完成多个单位的固定资产核算。 按卡片类型进行管理，除了基本的固定资产核算项目外，不同的卡片类型具有其特有的资产项目，使一套软件可以管理多种类型的固定资产。 可对固定资产进行多重分类，实现按不同口径的汇总统计。 多种计提折旧方法并存，更加符合会计处理的常规。 历史记录的设置，随时跟踪资产的各种变动情况。 附属设备的管理，使固定资产的核算更加完整。 卡片输入与资产变动的审核功能，提高了数据的安全性和稳定性。 强大的卡片数据查询功能，按任意条件组合查询。卡片显示屏幕的自定义，使卡片数据的显示更清晰、明了。 固定资产卡片与报表打印格式的自由定义，输出效果更美观、实用。 设置账户数据与固定资产数据之间的检验关系，严格保证固定资产台账与账务处理的一致。 6、文件信息管理功能： 文件信息系统融合了《国家电力公司财经法规检索系统》和内部工作事务管理系统的所有功能，从政策法规和管理制度上加强和完善了财务管理工作。 （1）法规、文件检索功能 完整地录入了自1991以来所有的财经、审计法规和发展电力的方针、政策、财经制度、财务规章等文件，内容涉及价格、税收、基建、教育、国有资产管理、财务会计核算、多种经营管理等各方面的信息。 与其他财务子系统可同时使用，使财务人员在实际工作中真正做到\"有法可依\"。 采用模糊查找与全文检索方式，可快速准确地查找到所需的文件信息。书签和备注方式的提供，使日后的检索过程更加简明快捷。 提供了文件追加、录入功能，方便用户随时增加各种地方法规和内部文件。 文件密级的设置便于用户对文件进行安全密级的管理，保证了文件信息的安全。 （2）工作事务管理功能 统一的工作任务和工作计划管理，实现上级对下级工作任务的布置、检查和监督，完成下级向上级进行工作情况的请示和汇报。 连续的工作计划、工作任务进度跟踪，便于领导掌握工作进展情况。 可随时回溯任何时候的工作情况，便于财务主管及时、准确地掌握工作进度和协调工作事务，促进内部工作事务资源的共享和交流。 工作情况的统计为考核工作业绩和提高工作质量提供重要依据。 详细教程请看下面参考资料,希望您用得放心! 参考资料：您的举报已经提交成功，我们将尽快处理，谢谢！
大家还关注excel下拉菜单选择后，后一格对应自动出现价格？_百度知道Excel2010中如何使用下拉列表控制显示不同系列的图表
作者：佚名
字体：[ ] 来源：互联网 时间：01-11 16:21:46
当Excel图表数据中包含多个系列时，通常需要让这些系列同时显示在图表中进行对比。但有时可能无需让各系列同时显示在图表中，这时可以添加一个下拉列表来选择某个系列，让该系列单独显示在图表中以便查看。
　　当Excel图表数据中包含多个系列时，通常需要让这些系列同时显示在图表中进行对比。但有时可能无需让各系列同时显示在图表中，这时可以添加一个下拉列表来选择某个系列，让该系列单独显示在图表中以便查看。
　　假如下表为某公司全年的销售数据，这些数据位于A1:D13区域，需要通过下拉列表选择某个产品系列，让所选系列单独显示在图表中。
　　在工作表中添加并设置组合框控件
　　1、可以通过多种方法在工作表中添加下拉列表，如通过数据有效性、添加ActiveX 控件、添加表单控件等。本例以添加表单控件为例，在功能区中选择&开发工具&选项卡，在&控件&组中单击&插入&表单控件&组合框(窗体控件)&。
　　2、如果&开发工具&选项卡没有显示在功能区中，可在&选项&对话框中进行设置让其显示出来，具体参考本站其他文章。
　　3、这时鼠标指针变成细十字形，按住鼠标左键在工作表中拖动，绘制一个组合框控件。由于在单击该控件时，需要在组合框的下拉列表中显示&产品A&、&产品B&等系列名称以供选择，因而在设置前需先将这些系列名称输入或粘贴到某列中，本例将B1:D1区域中的系列名称通过&选择性粘贴&转置&粘贴到I1:I3区域。
　　4、右击组合框控件，在弹出的快捷菜单中选择&设置控件格式&，弹出&设置对象格式&对话框，选择&控制&选项卡，将&数据源区域&设置为&$I$1:$I$3&，将&单元格链接&设置为J1单元格，这样在组合框中选择某个系列名称时，J1单元格中就会显示相应的数字。
　　添加辅助列并设置公式
　　以F列和G列为辅助列。将A1:A13区域中的&月份&数据复制到F列，在G1单元格中输入公式：
　　=OFFSET($A$1,ROW(A1)-1,$J$1)
　　然后拖动填充柄，填充公式到G13单元格，在组合框中选择某个系列，如&产品A&，G列就会显示该系列的数据，如图所示。
　　插入图表
　　选择F1:G13区域中的某个单元格，在功能区中选择&插入&折线图&折线图&，插入图表。在组合框中选择某个系列，图表就会显示该系列。
大家感兴趣的内容
12345678910
最近更新的内容