[已解决]急用：请各位版主和老师看看用什么方法能实现按钮与指定单元格进行自动链接

lmx

当我在Sheet1的按钮上更改文字后，则在Sheet2的E2中文字也会自动更改。谢谢各位版主和老师！！！拜托拜托，具体见附件

最佳答案

月排行榜 / 总排行榜

wbzxz

2011-8-13 18:22

直接解决的方法没有找到，找到一个变通的办法，你把按钮上的单元格修改了之后，随便点击一下某个单元格就可以啦。
以下代码在Sheet1中

1. 
   
2. 
   
3. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   
4.     Worksheets("Sheet2").Range("E2") = Shapes("autoshape 1").TextEffect.Text
   
5. End Sub
   

复制代码

详见附件
Book1.zip (11.68 KB, 下载次数: 16)

2011-8-13 18:22 上传

点击文件名下载附件

跳转到最佳答案楼层

wbzxz

直接解决的方法没有找到，找到一个变通的办法，你把按钮上的单元格修改了之后，随便点击一下某个单元格就可以啦。
以下代码在Sheet1中

1. 
   
2. 
   
3. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   
4.     Worksheets("Sheet2").Range("E2") = Shapes("autoshape 1").TextEffect.Text
   
5. End Sub
   

复制代码

详见附件
Book1.zip (11.68 KB, 下载次数: 16)

2011-8-13 18:22 上传

点击文件名下载附件

lmx

回复 wbzxz 的帖子

我试了试不能用

ls

学习2楼            

wbzxz

回复 lmx 的帖子

呵呵，你看看我测试的。