Excel2000 ハイパーリンクを削除するマクロ

質問

どなたか教えてください。

Excel2000で、URLやメールアドレスを入力すると勝手にハイパーリンクにされてしまいます。
これをハイパーリンクとならないようにするマクロを作りたいのです。

具体的には、特定のセルにだけ、URLやメールアドレスを入力する可能性が
あるという条件で、
下記のようにしました。

Private Sub Worksheet_Change(ByVal Target As Range)
Application.ScreenUpdating = False
nowcell = ActiveCell.Address
Target.Hyperlinks.Delete
With Range("O14:AI14,L41:AI41")
.IndentLevel = 1
.VerticalAlignment = xlCenter
.Font.Name = "Arial"
.Font.Size = 16
End With
Range(nowcell).Activate
Application.ScreenUpdating = True
End Sub

セルが変更されるたびに、O14:AI14,L41:AI41のハイパーリンクを削除して、勝手に
変更された書式を特定の書式に戻すという処理をしています。
ただ、特定の書式を設定しているため異なる書式のセルに同じマクロを使うと、
書式が乱れてしまいます。

それで、ハイパーリンクが削除される前のセル書式を保存しておいて、ハイパーリンクを削除した後に、
復元するということをしたいのですが、どうすればよいでしょうか？

イメージ的には、
org_format=target.font
nowcell.font=org_format
というようにしたいところなのですが・・・

良いアイデアをご教授ください。
宜しくお願い致します。

回答No.1

xls88 · ベストアンサー

Undoすればどうでしょうか。

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Hyperlinks.Count = 1 Then
Application.Undo
End If
End Sub

お礼

ありがとうございます！
undoで実現できました。
こんなに簡単な方法でできるとは、気がつきませんでした。
目から鱗です。

助かりました！