人気ブログランキング | 話題のタグを見る

Post-Admin:
Date: 2006年 09月 20日
Subject: 続々・勝手にハイパーリンクにしない
Sub Worksheet_Change(ByVal target As Range)
Dim m, ctl1, ctl2
Dim s As String
Dim r As Range
For Each ctl1 In CommandBars("Worksheet Menu Bar").Controls
For Each ctl2 In ctl1.Controls
s = ctl2.Caption
If Left(s, 4) = "元に戻す" And Right(s, 7) = "ハイパーリンク" Then
Set r = ActiveCell
Application.Undo
r.Select
GoTo skp
End If
Next
Next
skp:
target.Hyperlinks.Delete
End Sub
やっぱりUndoは危険?でも書式を残したいしな・・・
by noaccess | 2006-09-20 14:47 | メモ


Profile:
ほんとうかなあ?
by noaccess

Calender:
S M T W T F S
1 2
3 4 5 6 7 8 9
10 11 12 13 14 15 16
17 18 19 20 21 22 23
24 25 26 27 28 29 30
31

*: 検索




*: 最新のトラックバック

*: メモ帳
ぎゃふん状態にある


*: ブログジャンル

*: 画像一覧