...点击一个单元格,使它连接到别一张EXCEL表中的某一行,怎么做?请诸位...

发布网友 发布时间：2024-10-02 17:04

我来回答

共5个回答

热心网友 时间：2024-10-04 03:28

比如你想要第一张表格（sheet1）的A1的数据（Cells(1,1).Value）等于第二张表格（sheet2）的A1的数据（Cells(1,1).Value）你可以在VBA中写：Private Sub Worksheet_SelectionChange(ByVal Target As Range) Sheet1.Cells(1,1).Value = Sheet2.Cells(1,1).Value End Sub
明白了吗？举例你的计算数据在sheet2中，你要在sheet1中计算你可以 ： Private Sub Worksheet_SelectionChange(ByVal Target As Range)
For i = 0 To 11
Sheet1.Cells(6 + 3 * i, 3).Value = Sheet1.Cells(5 + 3 * i, 3).Value + 0.1
Sheet1.Cells(7 + 3 * i, 3).Value = Sheet1.Cells(6 + 3 * i, 3).Value + 0.1
Next
For i = 5 To 40
Sheet1.Cells(i, 5).Value = Sheet1.Cells(i, 3).Value + 0.1
x = Sheet1.Cells(i, 7).Value
y = Sheet1.Cells(i, 6).Value
If x > 19 Then x = 19
If y > 40 Then y = 40
Sheet1.Cells(i, 8).Value = Sheet3.Cells(x, y).Value
Sheet1.Cells(i, 9).Value = Sheet1.Cells(i, 6).Value * Sheet1.Cells(i, 8).Value
Next
End Sub注：如果你的计算数据和结果都在一个表里，就不用写清楚是sheet1还是sheet2。直接写 Cells(a,b).Value = Cells(n,m).Value 即可。你的计算数据和结果不放在一个表里如果，就必须表示清楚是sheet1还是sheet2。要写 Sheet1.Cells(a,b).Value = Sheet2.Cells(n,m).Value 明白了没？看我这么辛苦，给个满分吧!

热心网友 时间：2024-10-04 03:26

插入－超链接

热心网友 时间：2024-10-04 03:27

可以摄像工具复制这一行,再用超级联接就可以了,当这行内容变化,同样也可以实现变化

热心网友 时间：2024-10-04 03:26

举例：
你在第一张工作表的A2、A3、A4、A5、A6输入比如5、7、22、1、9，想实现选择比如A4，就跳到Sheet2（不是的话，把下面的粗体改了），且Sheet2的除第22行外全隐藏，右键点第一张工作表的名字（在左下角呢），查看代码，粘贴如下代码：
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error GoTo Line1
If Target.Column = 1 And Target.Row > 1 And Target.Row < 7 Then
Sheets("Sheet2").Rows.Hidden = False
If Target <> 1 Then
Sheets("Sheet2").Rows("1:" & Target - 1).Hidden = True
End If
Sheets("Sheet2").Rows(Target + 1 & ":65536").Hidden = True
Sheets("Sheet2").Select
End If
Line1:
End Sub
回到Excel窗口，功能实现。
除了按需修改粗体的Sheet2，第一个粗体1表示第一列（即A列），后面的粗体1和粗体7表示第2行到第6行，这三个粗体限制了A2到A6的区域启动宏，自己按需修改。

热心网友 时间：2024-10-04 03:28

搞不定，估计需要些vba才能达到目的，除非你连接到一个文档，这个文档你把他设置成只有那么一行，其他都手动隐藏