第二個問題可以用工作表的FollowHyperlink事件來做,在包含超鏈接的工作表的VBA模塊中添加下面的程序應該就足夠了:
私有子工作表_ follow Hyperlink(ByVal Target As Hyperlink)
將工作表目標調成工作表
出錯時繼續下壹步
如果修剪(目標。地址)= " "那麽
設置sheetTarget =應用程序。範圍(目標。子地址)。父母
如果不是sheetTarget。那時可見
sheetTarget。Visible = xlSheetVisible
如果…就會結束
如果…就會結束
末端接頭