標題: [發問] (已解決)工作表間的連結 [打印本頁]

---

作者: freeffly    時間: 2011-5-20 12:34     標題: (已解決)工作表間的連結

本帖最後由 freeffly 於 2012-2-22 17:02 編輯

要怎麼讓我現在做的程式碼更簡略
我要有總表連結到子工作表
並在子工作表做一各返回的連結


[attach]6284[/attach]

---

作者: GBKEE    時間: 2011-5-20 13:37

回復 1# freeffly
   

1. Sub Ex()
   
2.     Dim i%
   
3.     With Sheets(1)
   
4.         For i = 2 To Sheets.Count
   
5.             .Cells(i, "A") = Sheets(i).Name
   
6.             .Hyperlinks.Add Anchor:=.Cells(i, "B"), Address:="", SubAddress:=Sheets(i).Name & "!A1", TextToDisplay:=Sheets(i).Name& & "!A1"
   
7.             Sheets(i).Hyperlinks.Add Anchor:=Sheets(i).[A1], Address:="", SubAddress:=.Name & "!A1", TextToDisplay:=.Name & "!A1"
   
8.         Next
   
9.     End With
   
10. End Sub

複製代碼

---

作者: freeffly    時間: 2011-5-22 23:13

回復 2# GBKEE

    謝謝
  我就是這一句沒寫過
  學到新東西了
   
    Sheets(i).Name & "!A1"

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)