excel 值的相互引用

[qzjackie]

excel中的一张表的一个单元格的值变化了，
另一张表中的一个单元格的值也跟着变化。

反过来也可以。
这个要怎么来实现啊？？



我的邮箱是：[e-mail]

[lzw8077]

用公式链接单元格不就可以了吗？



你会发现没有输入源数据的地方了. 举个例子,你希望 A1与A5相同,修改A1,那么A5就跟着变,修改了A5,A1也同样跟着变,你通过公式看看?你肯定是在A1里面输入公式: =A5,然后在A5里面输入公式: =A1 ,那我问你,你的数据准备在哪儿输入?

[gracexu]

写个VBA 函数吧

[蓝帆·雨轩]

如果你说我有A\B两个工作表,A中的Sheet1的A1单元格和B中的Sheet1的A1单元格值互相引用,那么还是用VBA.公式无法实现这个效果,否则就成了循环引用了.

这里要说明的是,楼上说写个函数,其实不是的,应该是需要触发事件的.比如SelectionChange事件下添加代码,这里不是函数的概念,呵呵.

[xjwang05]

直接用公式就可以了，比如你在表1里设个求和的公式，这个求和计算不局限于此页面，也可以计算其他页面单元格的数值。就当是在一个页面上就可以了。


你这种说法是完全没有道理的. 举个例子,你希望 A1与A5相同,修改A1,那么A5就跟着变,修改了A5,A1也同样跟着变,你通过公式看看?你肯定是在A1里面输入公式: =A5,然后在A5里面输入公式: =A1 ,那我问你,你的数据准备在哪儿输入? 假设你在A1中输入了数据(此时A1中的公式必然没有了),那么你A5是跟着变了,可是当你要改变A5的值得时候,呵呵,怎么办啊?或许你说,你可以在其它单元格输入,A1\A5作为公式,那么你自己在操作一下看看情况?要测试,切记切记,要自己动手测试.

[蓝帆·雨轩]

根据楼主需求,是不可以直接使用公式的.大家可以做个测试.

你在Sheet1的A1中输入公式 =Sheet2!A1,然后在Sheet2的A1中输入公式 =Sheet1!A1,你们自己看看会是怎么样的?你们公式是有了,数据的来源在哪儿呢?

楼上的说法表面看有道理,但是对于楼主的需求而言,那绝对是极度错误和幼稚的说法.

[qzjackie]

提示：

运行时错误‘-2147417848 （80010108）’

方法‘Range’作用对象'_Worksheet'时失败

[蓝帆·雨轩]

其实还是写在SelectionChange里面比较好，呵呵。代码是非常简单的，楼上都已经说过了。

[lelige]

假设Sheet1的A1和Sheet2的A5同步，
Alt + F11调出VBA窗口，
双击左边的“Sheet1”，输入：

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$A$1" Then
        ActiveWorkbook.Worksheets("Sheet1").Range("A5").Value = Target.Value
    End If
End Sub

双击左边的“Sheet2”，输入：

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$A$5" Then
        ActiveWorkbook.Worksheets("Sheet2").Range("A1").Value = Target.Value
    End If
End Sub

本机测试通过，有问题请回复。

[lelige]

晕，表名调换了。
Sheet1

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$A$1" Then
        ActiveWorkbook.Worksheets("Sheet2").Range("A5").Value = Target.Value
    End If
End Sub

Sheet2

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$A$5" Then
        ActiveWorkbook.Worksheets("Sheet1").Range("A1").Value = Target.Value
    End If
End Sub

[beishion]

貌似不难