2011-01-27 46 views
2

如何将超链接添加到特定单元格并将其转换为Excel文件中的工作表?指向实际工作簿中现有工作表的超链接

这是我已经有了:

Cells(zeile, 1).Select 
Worksheets(1).Hyperlinks.Add Anchor:=Selection, Address:=Workbooks(1).Worksheets(fortnr), SubAddress:=Cells(1, 1).Address 

感谢

回答

3
ActiveSheet.Hyperlinks.Add ActiveCell, "", Sheets(fortnr).Name & "!A1" 

的地址应为空和子地址应该是在工作表Sheet1形式A1!这会在activecell中放置一个链接,前提是您有一个名为fortnr的变量,该变量在同一工作簿中包含有效的工作表名称。

如果您想要指向不同工作簿中的单元格,则所有内容都是相同的,但地址需要为该文件。

ActiveSheet.Hyperlinks.Add ActiveCell, Workbooks(1).FullName, Sheets(fortnr).Name & "!A1" 

假设工作簿(1)是一个不同的文件和先前保存的,并具有与所述正确的名称的片材,等,等

+0

确定可行,但如果我打开一个不同的excel文件,它会尝试将超链接链接到该文件。 是否可以始终将其链接到活动工作簿? excel文件的名称会自行改变,因此文件名中没有引用。 在此先感谢 – borlee 2011-01-28 08:10:26

0

理念1:超链接添加到当前有效小区

假设表名称链接到是 “VBA1”

ActiveSheet.Hyperlinks.Add Activecell, “”, “VBA1!A1”

理念2:超链接添加到一个被命名为 “CallButton”

ActiveSheet.Hyperlinks.Add ActiveSheet.Shapes( “CallButton”), “形”,“VBA1 A1! “

相关问题