Post-Admin:
Date:
Subject: <   2006年 09月 ( 3 )   > この月の画像一覧

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 | メモ

Post-Admin:
Date: 2006年 09月 10日
Subject: 9文字までの英数字文字列を数値コードに変換する
=SUMPRODUCT(FIND(MID(UPPER(A1)&"aaaaaaaaa",{9,8,7,6,5,4,3,2,1},1),"a0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ")-1,46^{0,1,2,3,4,5,6,7,8})
[PR]
by noaccess | 2006-09-10 02:09 | メモ

Post-Admin:
Date: 2006年 09月 04日
Subject: 難視聴対策
現在、ビル陰等構造物による難視聴対策を構造物の原因者負担で行われているケーブルテレビ等による再送信が無料でなされているがデジタル化に伴い全国的に有料化されるようですね。まあ、後で始まった放送ではからね。デジタル化告知だけでなくこちらの告知も大々的に行わないと「見れない」といった苦情がでる問題が大量に出そうですよ。
[PR]
by noaccess | 2006-09-04 00:02

Page select: |

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

*: 検索




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

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


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

*: 画像一覧