0

これは、メインシートのすべてのシートへのリンクをリストする私のコードです:

     For i = 2 To Sheets.Count
          Sheets("main").Hyperlinks.Add Anchor:=Sheets("main").Cells(i, 2),_
          Address:="", SubAddress:="'" & Sheets(i).Name & "'!A1", TextToDisplay:=Sheets(i).Name
     Next i

新しいシートが追加され、既存のシートが削除され、名前が変更され、再配置されるたびに、このコードを実行したいと思います。

どうやってやるの?

Ps

より良い解決策があれば、それも検討します。

4

1 に答える 1

0

シート「メイン」の Worksheet_Activate-block 内にコードを配置します。このようにして、シートをアクティブにするたびにハイパーリンクが更新されます。

于 2013-03-14T16:58:28.740 に答える