如何在点击后直接生成另一表格，且两表格数据相同

mfkjie111 · 发表于 2013-12-18 16:03

little-key 发表于 2013-12-18 15:57
你还跨工作簿啊
可否合并为一个工作簿呢

可以啊，最好是一个工作簿了。

little-key · 发表于 2013-12-18 16:11

mfkjie111 发表于 2013-12-18 16:03
可以啊，最好是一个工作簿了。

那你将合并的工作簿传上来
最好在表2中加一个范例

mfkjie111 · 发表于 2013-12-18 16:20

little-key 发表于 2013-12-18 16:11
那你将合并的工作簿传上来
最好在表2中加一个范例

好的，谢谢版主了。

little-key · 发表于 2013-12-18 17:07

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
n = Target.Row
With Sheet2
.Cells(2, 3) = Sheet1.Cells(n, 2)
.Cells(2, 5) = Sheet1.Cells(n, 4)
End With
End Sub

放在sheet1的代码中
其他单元格，你就按照这个来添加吧，调整存储的单元格和sheet1对应的列标就可以

mfkjie111 · 发表于 2013-12-19 08:29

little-key 发表于 2013-12-18 17:07
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
n = Target.Row
With Sheet2

麻烦大神最好帮我做在附件里，我好下载来观摩。VB这块实在是没接触过，先谢谢了。

little-key · 发表于 2013-12-19 09:17

mfkjie111 发表于 2013-12-19 08:29
麻烦大神最好帮我做在附件里，我好下载来观摩。VB这块实在是没接触过，先谢谢了。

你按alt+f11
然后双击左侧的sheet1
将代码复制粘贴到里边即可

mfkjie111 · 发表于 2013-12-19 09:59

little-key 发表于 2013-12-19 09:17
你按alt+f11
然后双击左侧的sheet1
将代码复制粘贴到里边即可

我复制好了，在sheet1里按什么键，才会跳出sheet2的表单呢。

little-key · 发表于 2013-12-19 10:05

不用啊
你在sheet1随便单击一个单元格
sheet2的表格中的值就会自动填写

zhaoshurui · 发表于 2013-12-19 11:17

little-key 发表于 2013-12-19 10:05
不用啊
你在sheet1随便单击一个单元格
sheet2的表格中的值就会自动填写

我咋没看懂怎么弄呢，这些代码是要复制在某个单元格里吗

little-key · 发表于 2013-12-19 11:24

zhaoshurui 发表于 2013-12-19 11:17
我咋没看懂怎么弄呢，这些代码是要复制在某个单元格里吗

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

[已解决] 如何在点击后直接生成另一表格，且两表格数据相同