Dim HyperlinkStack As Collection ‘\u30de\u30af\u30ed\u5916\u3067\u8a2d\u5b9a
Dim ShapeAddressStack As Collection<\/p>\n\n\n\n
Sub InitializeHyperlinkStack()
Set HyperlinkStack = New Collection
Set ShapeAddressStack = New Collection
End Sub<\/p>\n\n\n\n
Sub StoreHyperlink() ‘\u98db\u3093\u3067\u304f\u308b\u5143\u306e\u30dc\u30bf\u30f3\u306b\u767b\u9332\u3059\u308b\u30de\u30af\u30ed
If HyperlinkStack Is Nothing Then InitializeHyperlinkStack<\/p>\n\n\n\n
Dim foundCell As Range\nDim searchString As String\nsearchString = \"AAA()\" ' \u691c\u7d22\u3057\u305f\u3044\u6587\u5b57\u5217\u3092\u8a2d\u5b9a\n\n' \u30b7\u30fc\u30c8\u5185\u3092\u691c\u7d22\nSet foundCell = ActiveSheet.Cells.Find(What:=searchString, LookAt:=xlPart, MatchCase:=False)\n\n' \u898b\u3064\u304b\u3063\u305f\u5834\u5408\u3001\u30a2\u30c9\u30ec\u30b9\u3092\u30b9\u30bf\u30c3\u30af\u306b\u8ffd\u52a0\u3057\u3066\u30b8\u30e3\u30f3\u30d7\nIf Not foundCell Is Nothing Then\n ShapeAddressStack.Add ActiveSheet.Shapes(Application.Caller).TopLeftCell.Address\n foundCell.Select\nElse\n MsgBox \"\u6307\u5b9a\u3055\u308c\u305f\u6587\u5b57\u5217\u304c\u898b\u3064\u304b\u308a\u307e\u305b\u3093\u3002\"\nEnd If<\/code><\/pre>\n\n\n\nEnd Sub<\/p>\n\n\n\n
Sub HyperlinkBack() ‘\u623b\u308b\u30dc\u30bf\u30f3\u306b\u767b\u9332\u3059\u308b\u30de\u30af\u30ed
On Error GoTo ErrHandler
If ShapeAddressStack.Count > 0 Then
Range(ShapeAddressStack(ShapeAddressStack.Count)).Select
ShapeAddressStack.Remove ShapeAddressStack.Count
Else
MsgBox “\u5143\u306e\u56f3\u5f62\u306e\u5834\u6240\u306b\u623b\u308b\u3053\u3068\u304c\u3067\u304d\u307e\u305b\u3093\u3002”
End If
Exit Sub
ErrHandler:
MsgBox “\u5143\u306e\u56f3\u5f62\u306e\u5834\u6240\u306b\u623b\u308b\u3053\u3068\u304c\u3067\u304d\u307e\u305b\u3093\u3002”
End Sub<\/p>\n\n\n\n
<\/p>\n","protected":false},"excerpt":{"rendered":"
Dim HyperlinkStack As Collection ‘\u30de\u30af\u30ed\u5916\u3067\u8a2d\u5b9aDim ShapeAddressStack As Collection Sub InitializeHyperlinkStac … <\/p>\n