相干vba的，单元格赋值

2013-01-05

有关vba的，单元格赋值Private Sub Worksheet_SelectionChange(ByVal Target As Range)Sheets(sheet5).Ra

有关vba的，单元格赋值
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Sheets("sheet5").Range("C5").Value = Sheet6.Range("B5").Value
End Sub
这个不能执行啊，我是想在同行一个工作簿中，有好几个表格，我在其中一个表格中输入
一些数据，其他的表格相对应的单元格会出现相应的数据，不用控件的事件来执行程序，
用当SelectionChange，或者change发生时，触发程序。
[解决办法]

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Sheets("sheet2").Range("A1").Value = Target
End Sub

此代码是有效的，当你选择sheet1一个有内容的单元格时，sheet2的A1格更新成了该内容。
此事件是选择改变，当选择的单元格发生变化时发生。
[解决办法]
简单的情况你直接用EXCEL中的公式就行了
[解决办法]
Worksheet_SelectionChange事件是当你选择某一单元格是发生的事件，而公式只要A1变化了就跟着变化。所以，用公式比较符合题意，用事件触发不一定能达到您要的效果。
[解决办法]
Sheets("sheet2").Range("A1") = Target & "你好"
测试没有问题还有你选的事件要对看我上面告诉你的事件

热点排行

VB

相干vba的，单元格赋值