mixiの"最近の足跡"をコピペするだけで
mixiをやっている人も多いかと思いますが(人口比10%だもんね)
足跡管理をされている人も相当数いらっしゃるかと思います。
そこで、mixiの"最近の足跡"をコピペするだけで
管理用のデータを作成するExcel用マクロ(モジュール)を書いてみました。
Microsoft Excelはハイパーリンクを含むデータをコピペすると
セルに対して勝手にハイパーリンクを設定してくれますが
これを逆利用した小ネタです。
モジュールは２種類あって
ひとつめは他用途な汎用性を持たせるため
「ハイパーリンクが設定されているセルのリンク先を表示」
ふたつめはmixiに特化させたもので、
リンク先ユーザーのmixi-IDを表示します。
用意するモノ：
いつものmixiとMicrosoft Excelだけです。
今回はExcel 2003ですが、たぶん2000以降なら大丈夫でしょう。
手順：
mixiの"最近の足跡"をこんな風に
ズリズリズリ～っと選択してコピーします。
次にこれをExcelに貼り付けます。
[Alt]＋[F.11]を押して、VBウィンドウを開き
「VBAProject」→(右クリック)「挿入」→「標準モジュール」
を開きます。
真っ白なウィンドウが開きますので
そこに以下のテキストをコピペしてください。
' (この下から)------------------
'セルの値に埋め込まれたハイパーリンクを抜き出すマクロ
'
'使い方：
'A1にハイパーリンクが有る時
'=linkAddress(A1)
'
Public Function linkAddress(r As Range) As String
'指定したセルにハイパーリンクオブジェクトがあるかどうかチェック
If r.Hyperlinks.Count > 0 Then
linkAddress = r.Hyperlinks(1).Address
Else
'HYPERLINK関数を使っているなら
If InStr(r.Formula, "=HYPERLINK") Then
linkAddress = Mid(r.Formula, 13, InStr(13, r.Formula, """") - 13)
Else
linkAddress = ""
End If
End If
End Function
' (ここまで)------------------
貼り付けたらモジュールに名前を付けます。
プロパティの「オブジェクト名」のところで
module 1 なんて名前を
Pick_URL なんて名前に変更してください。
続いてふたつ目です。
同様な方法で
「VBAProject」→(右クリック)「挿入」→「標準モジュール」
から、以下をコピペしてください。
' (こっから)------------------
'リンクURLに埋め込まれたIDを抽出する関数
'
'使い方：
'A1にmixi_URLが有る時
'=linkID(A1)
'
Public Function linkID(r As Range) As String
'指定したセルがURLかどうかチェック
If Left(r, 7) = "http://" Then
linkID = Int(Mid(r, 34, 8))
Else
linkID = 0
End If
End Function
' (ここまで)------------------
こいつは「Pick_ID」とか、名前を付けといてください。
これで、例えば A1に対象ハイパーリンクがあったとして
B1のセルに「 =linkAddress(A1) 」と入力すると
B1のセルに指し示すURL文字列が表示されます。
また、このとき C1のセルに「 =linkID(B1)」と入力すると
C1のセルにリンク先のIDが表示されます。
ひとつだけ(先頭行だけ)設定しておけば
必要なところまでドラッグで次々に
URL文字列やIDが表示されるようになります。
※こんなモノでシュアを取るつもりはありませんが
つい先日まで３ヶ月間も入院していて
超金欠状態です。σ(^^;
哀れと思ったら、左の[Ads by Google]のリンクを
どこでも良いので叩いていって(リンク先を開いて)ください。
よろしくお願いいたします。
| 固定リンク | コメント (0) | トラックバック (0)
最近のコメント