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は危険?でも書式を残したいしな・・・
[PR]
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

*: 検索




*: 最新のトラックバック
うげ!
from ぶろぐ、ぶろぐとき、ぶろげば..
えーと
from ぶろぐ、ぶろぐとき、ぶろげば..
あれ
from ぶろぐ、ぶろぐとき、ぶろげば..

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


*: ブログジャンル
つぶやき

*: 画像一覧