查看: 8089|回复: 10
[待分类提问]
用VBA代码如何实现在excel的sheet1中选则下拉列表框选项后，对应跳转到相应项目表单
新鲜人, 积分 5, 距离下一级还需 5 积分
积分学习力
魅力值 影响力
消费券 Ti币好友
在线时间 小时
最后登录月度优秀 次
免费注册成为本站会员，享用更多功能，结识更多Office办公高手！
才可以下载或查看，没有帐号？
本帖最后由 浩南 于
08:43 编辑
(4.79 KB, 下载次数: 37)
08:41 上传
点击文件名下载附件
我做的excel表格
& && &&&各位大师，请问用VBA代码如何实现在excel的sheet1中选则B2下拉列表框选项“贴墙式膜式水冷壁；双面曝光模式水冷壁；光管，销钉管”内容后，对应跳转到相应项目名称为“贴墙式膜式水冷壁”、“双面曝光模式水冷壁”、“光管”、“销钉管”sheet表单中输入其结构数据？excel表格见附件！
& &&&由于对VBA不熟，求大师们直接给出这段代码，谢谢！
& &&&比较着急，求各位大侠给予帮助！感谢感谢！
初级三, 积分 297, 距离下一级还需 203 积分
积分学习力
魅力值 影响力
消费券 Ti币好友
在线时间 小时
最后登录月度优秀 次
大致明白意思，麻烦上传个附件
中级一, 积分 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,因为，没有看到你的附件。为了确保跳转成功。只能帮你写了一个扩展
耐心解答！:-)
新鲜人, 积分 5, 距离下一级还需 5 积分
积分学习力
魅力值 影响力
消费券 Ti币好友
在线时间 小时
最后登录月度优秀 次
朽木 发表于
大致明白意思，麻烦上传个附件
朽木GG，附件已上传，谢谢你！
新鲜人, 积分 5, 距离下一级还需 5 积分
积分学习力
魅力值 影响力
消费券 Ti币好友
在线时间 小时
最后登录月度优秀 次
我是小马儿 发表于
在你的那一页工作簿中，复制以上代码进去。就可以了。
PS,因为，没有看到你的附件。为了确保跳转成功。只能 ...
感谢大师的回复，昨天附件不知道没有传上去，我现在上传了，麻烦小马儿大师再给我看看怎么实现这个操作，谢谢你啦！
初级三, 积分 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 贴上面的代码，不知道我的理解对不对？
中级一, 积分 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, 下载次数: 66
新鲜人, 积分 5, 距离下一级还需 5 积分
积分学习力
魅力值 影响力
消费券 Ti币好友
在线时间 小时
最后登录月度优秀 次
朽木 发表于
ALT+F11打开VBE窗口，在SHEET1 贴上面的代码，不知道我的理解对不对？
感谢朽木GG的回复！这段代码比较简洁，我大概意思看懂了！定义的 i = Target.Row 是指选中的“某一行”的意思吧？
还有我的QQ号： ；是西安交通大学一名的在读研究生，现在急需要学点VBA知识，希望有不懂的能够得到朽木GG的帮助。期待朽木GG有时间加下我吧！感谢感谢**！
初级三, 积分 297, 距离下一级还需 203 积分
积分学习力
魅力值 影响力
消费券 Ti币好友
在线时间 小时
最后登录月度优秀 次
浩南 发表于
感谢朽木GG的回复！这段代码比较简洁，我大概意思看懂了！定义的 i = Target.Row 是指选中的“某一行”的 ...
我VBA很烂的。哎，我毕业之后才学的excel，大学时那么多时间就应该多花时间玩玩excel的。
新鲜人, 积分 5, 距离下一级还需 5 积分
积分学习力
魅力值 影响力
消费券 Ti币好友
在线时间 小时
最后登录月度优秀 次
朽木 发表于
我VBA很烂的。哎，我毕业之后才学的excel，大学时那么多时间就应该多花时间玩玩excel的。
朽木GG谦虚了，我现在就是一个外行，你水平比我高多了！希望能够和你多交流，你QQ号能发给我吗？谢谢啦**！
关于我上传的这个excel表格，我还有另外一个功能实现问题：
关于自动添加在“贴墙式膜式水冷壁”sheet、“双面曝光模式水冷壁”sheet、“销钉管”sheet表单第一列输入对应不同A、B、C......类型的受热面形式后，我希望在sheet1 &计算受热面类型&这一列中，列表框自动添加包括输入的四种受热面类型中对应的不同形式受热面：如sheet1 &计算受热面类型&列表框变为：
贴墙式膜式水冷壁A
贴墙式膜式水冷壁B
贴墙式膜式水冷壁C
双面曝光模式水冷壁A
双面曝光模式水冷壁B
双面曝光模式水冷壁C
这样我就能够在受热面类型这个sheet中，选择对应的类型了，请问这段自动添加不同表单中的内容到下拉列表框中的代码在VBA中怎么去实现啊？
站长推荐 /1
40集公式入门动画教程，一天带你打好公式的基础。
Excel技巧网的会员探讨问题仅代表其个人意见，与网站的立场无关。任何违反国家和地方相关法律法规的言论，本站有义务协助政府相关部门追究发言者的责任！
本站中非注明转载文章与案例的版权为作者与Excel技巧网共有。若非原文作者，本站之外任何单位或个人未经允许，不得将其用于商业用途。
若非原文作者，任何形式的非商业性转载必须获得Excel技巧网或作者允许，并注明作者和出处。
会员发表的帖子如涉及版权纠纷，须自行负责。详情请参考注册时的网站服务条款。
本站特聘法律顾问：沈学律师
Powered byExcel 求助一个手动刷新进行查询的VBA语句_百度知道
Excel 求助一个手动刷新进行查询的VBA语句
答题抽奖
首次认真答题后
即可获得3次抽奖机会，100%中奖。
pieryon知道合伙人
电脑类认证行家
知道合伙人
电脑类行家
采纳数：12732
获赞数：107935
获取软件设计师高级职称 万达金融最佳创新奖
这个要要看具体是什么网站，获取数据的方式有很多种，看不到你的表格，没法帮你写出来
hailang243知道合伙人
来自电脑网络类芝麻团
hailang243
采纳数：2850
获赞数：1980
擅长：暂未定制
参与团队：
你说的是公式的自动重算吧？可以在工具--选项--公式 把手工计算改成自动重算，就不用按F9了VBA中的语句如下：手工计算 With Application .Calculation = xlManual .MaxChange = 0.001 End With自动重算： With Application .Calculation = xlAutomatic .MaxChange = 0.001 End With
为你推荐：
其他类似问题
您可能关注的内容
个人、企业类
违法有害信息,请在下方选择后提交
色情、暴力
我们会通过消息、邮箱等方式尽快将举报结果通知您。拒绝访问 | www.excelpx.com | 百度云加速
请打开cookies.
此网站 (www.excelpx.com) 的管理员禁止了您的访问。原因是您的访问包含了非浏览器特征(a53a8e-ua98).
重新安装浏览器，或使用别的浏览器如何使用vba判断excel表格刷新完毕？_百度知道
如何使用vba判断excel表格刷新完毕？
我在使用excel表格计算数据，计算过程较复杂。然后利用excel表格中计算结果数据绘图，vba绘图指令必须要在excel表格计算、刷新完成之后进行，因此我想知道如何使用vba判断表格刷新完毕...
我在使用excel表格计算数据，计算过程较复杂。然后利用excel表格中计算结果数据绘图，vba绘图指令必须要在excel表格计算、刷新完成之后进行，因此我想知道如何使用vba判断表格刷新完毕。谢谢
答题抽奖
首次认真答题后
即可获得3次抽奖机会，100%中奖。
wtx274321知道合伙人
采纳数：921
获赞数：1977
无需判断，需要引用的数据在没有刷新完成的情况下，是不会运行后面的代码的。
但是，实际效果是vba绘图代码引用了还没有刷新的表格数据。如果我把表格计算和绘图分成两步进行，两步之间故意等待一会，那么表格数据引用正确。因此还是需要判断的，有谁知道如何判断？谢谢
为你推荐：
其他类似问题
个人、企业类
违法有害信息,请在下方选择后提交
色情、暴力
我们会通过消息、邮箱等方式尽快将举报结果通知您。