版主：超级链接的难题

zgr0123 · 发表于 2003-7-28 10:52

版主大人：问题如下 sheet1的A1中的文字有超级链接，如何在sheet2的某格单元格中的文字与sheet1 A1单元格中的文字相同且有相同的的超级链接，并且随sheet1 A1单元格中的内容同步变化。谢谢！

wtwt · 发表于 2003-7-28 21:30

我也遇到这个问题,怎么没人回答呀

hxhgxy · 发表于 2003-7-28 21:37

复制 - 粘贴可以吗？

wtwt · 发表于 2003-7-28 21:50

等于没回答

KLYan · 发表于 2003-7-28 22:36

To zgr0123 ：試試這則程序，寫在 Sheet1 上。 Private Sub Worksheet_Change(ByVal Target As Range) On Error Resume Next Dim Str1 As String If Target <> "" And Target.Column = 1 And Target.Row = 1 Then Application.ScreenUpdating = False Str1 = Range("A1") Selection.Hyperlinks(1).Delete ActiveSheet.Hyperlinks.Add Anchor:=Selection, _ Address:="", SubAddress:= _ Str1, TextToDisplay:=Str1 Sheet2.Select Sheet2.Range("A1").Select Selection.Hyperlinks(1).Delete ActiveSheet.Hyperlinks.Add Anchor:=Selection, _ Address:="", SubAddress:= _ Str1, TextToDisplay:=Str1 Sheet1.Select End If End Sub

zgr0123 · 发表于 2003-7-29 11:15

我去试一试，谢谢了！你好好哦！！！！

zgr0123 · 发表于 2003-8-1 00:03

同步变化没法做到，但我实现了用一个按钮单击或selectchange事件来快速达到不同单元格有相同的超级链接之功能。谢谢各位了！！！！！

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