[已解决]如何用VBA实现跨表引用返回值

huangcaiguang · 发表于 2013-2-23 10:46

求助：现同一工作簿中表一的A1单元格设置了数据有效性，其有效性序列值为各其余各工作表名称sheet2、sheet3、sheet4...sheet20（想用VBA实现，因为直接在单元格用逻辑引用公式太长、同时用工作表保护后会限制A1单元格值的活动选取）：
想在表一A1单元格中选sheet2,表一的B1单元格显示sheet2的C3值，同时表一B3显示sheet2的C6值；
以下同理，在表一A1单元格中选sheet3，表一的B1单元格显示sheet3的C3值，同时表一B3显示 sheet3的C6值；
               在表一A1单元格中选sheet4，表一的B1单元格显示sheet4的C3值，同时表一B3显示 sheet4的C6值；
               在表一A1单元格中选sheet5，表一的B1单元格显示sheet5的C3值，同时表一B3显示 sheet5的C6值；
               。。。
               在表一A1单元格中选sheet20，表一的B1单元格显示sheet20的C3值，同时表一B3显示 sheet20的C6值。

最佳答案

月排行榜 / 总排行榜

zjdh

2013-2-23 17:47

huangcaiguang 发表于 2013-2-23 17:40
谢谢！这个可以实现查询引用效果，但公式在外面，如果加工作表保护后又不能直接更改表一A1的值（要先取消 ...

这还不容易？！

Book2.rar (4.42 KB, 下载次数: 242)

zjdh · 发表于 2013-2-23 10:56

Book1.rar (1.72 KB, 下载次数: 46)

顺⑦.zì繎。 · 发表于 2013-2-23 11:05

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
a = [a1].Value
[b1] = Sheets(a).Range("c3")
[b3] = Sheets(a).Range("c6")
End Sub
我这V盲水平，凑合下吧

huangcaiguang · 发表于 2013-2-23 17:37

顺⑦.zì繎。发表于 2013-2-23 11:05
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
a = [a1].Value
= Sheets(a).Range("c3 ...

改变选择表一A1值后，鼠标表一引用数据要再点一下数据才更新！高手能否改良！

huangcaiguang · 发表于 2013-2-23 17:40

zjdh 发表于 2013-2-23 10:56

谢谢！这个可以实现查询引用效果，但公式在外面，如果加工作表保护后又不能直接更改表一A1的值（要先取消工作表保护），我就是要公式不显示！

zjdh · 发表于 2013-2-23 17:47

huangcaiguang 发表于 2013-2-23 17:40
谢谢！这个可以实现查询引用效果，但公式在外面，如果加工作表保护后又不能直接更改表一A1的值（要先取消 ...

这还不容易？！

Book2.rar (4.42 KB, 下载次数: 242)

zjdh · 发表于 2013-2-23 17:50

用简单的公式可以解决的，何必动牛刀！

huangcaiguang · 发表于 2013-2-23 17:51

zjdh 发表于 2013-2-23 17:47
这还不容易？！

请问高手这个效果在EXCEL2003里面没写代码是怎么实现的？

huangcaiguang · 发表于 2013-2-23 17:53

zjdh 发表于 2013-2-23 17:50
用简单的公式可以解决的，何必动牛刀！

就是不知道隐藏公式又要跳过工作表保护的提示！请指教！

zjdh · 发表于 2013-2-24 07:59

huangcaiguang 发表于 2013-2-23 17:51
请问高手这个效果在EXCEL2003里面没写代码是怎么实现的？

1. 将A1单元格式的保护锁定勾去除
2. 将B1:C1格式的保护中隐藏勾上
3. 对工作表加锁

		自动登录	找回密码
密码			注册

[已解决]如何用VBA实现跨表引用返回值

相关帖子