mixiの足跡その２

２週間程まえ、「mixiの足跡をコピペするだけで」っていうタイトルで
Excelで(それを基礎データにしてACCESSとかに飛ばしても良いけど)
mixiの足跡を管理するってのを書いたけど、
マイミクや常連や１日複数回来た人の場合、そのシリアル番号
(累積アクセス数)が変動するのは解ってはいても
それ以外にも数がおかしくなる場合はあってなんでかなぁ？
と思っていたら答えを見つけました。

半分くらいかぶっているリストを見比べていたら欠落している人がいたので
試しにその人のページを見たら↓

と言うことでした。

マイミクやトピックコメントは
退会していてもカウントされるのに
足跡の場合はしっかり、
カウント対象外になるのね。(^^;

SecondLifeはXmas

久々にSL(SecondLife)に入ってみました。

SLの街はもうXmasですね。
ここは「Akiba」ですが、
お店や共有スペースなどに
クリスマスツリーやリースや
それらしい色遣いの
モニュメントが飾られています。

ただ、人通りは少ないです。(^^;
日本人ユーザなら
誰でもが行きそうな場所だというのに
他のプレイヤーの姿は
本当に数えるほど。
そもそもログインする際に見た
オンラインユーザの数が
総勢40000人くらいだったので、
日本人ユーザは正味で
4000～5000人くらい？

まだまだなのかな。と言う気もしました。

公式裏ツール：ダウンロードはお早めに

インターネット音楽配信サービス「MOOCS（ムークス）」を音楽総合サイトへリニューアル

@niftyの音楽配信サービス「MOOCS(ムークス)」がサービス終了だそうです。
私は元々PanasonicのSD-JukeBoxを使っていましたが
ある日ひょんなことからMoocsを見つけ、
「あっらぁ～。まんまSD-JukeBoxやん」と驚きました。

以後、MOOCS-Playerを使っておりましたが
この度のMOOCSサービス終了に先立ち
MOOCS-Playerのダウンロードサービスを11/30に終了とか。

当方としてはMOOCSサイトが無くとも
携帯用のSD-AUDIOさえ出来れば良いのであって
つまりはソフトだけあればサイト不要です。

PanasonicのSD-JukeBoxはパッケージ版5490円
ダウンロード版でも3650円します。(Panasonic直販価格)
公認裏ツールが無償でダウンロードできるのも残りわずかですよ。(笑)

ちなみにソフトだけ無償でも、
この辺↓の道具がないとSD-Audioになりません。

ホームページビルダー 12

私はHPやブログをメンテする際、種々のソフトを使ってますが
IBM ホームページビルダーもその一つです。

これまで、VersionUPの都度、IBMとソースネクストから
DMが来てたのですが、今年はIBMとジャストシステム(?)
で、ソースネクストのサイトを見てみますと
VersionUPのアナウンスは無く、Ver11の大廉売だけで
どうやら、販売チャンネルを切り替えたみたいですね。

なかなかひとつのソフトで全てを行うというのは難しいもので
このブログもココログ@niftyからオンラインで書いてみたり
xfy BlogEditor を使ったり、IBM ホームページビルダーを
使ったりしています。

IBM ホームページビルダーって、
単にビルダーソフトの古参と言うだけでなく
なるほどさすが。と言うコンセプトが随所にあったりします。
WebSphereから継承されたデータソースアクセスとか
動的ページ/スタイルシート/ブログ連携とか...。
xfy BlogEditorとの棲み分けはプラットフォームの違い。
と言うことになりましょうか。

IBMサイトにもジャストシステムサイトにも
Ver11との比較表がありますが、
焼き直しではない確実なVersionUPもありますね。

12月6日までの予約キャンペーンでは
もれなくUSB充電器＋抽選で一眼デジカメや
ホームシアターセットが当たるとか。
どうしよう。また買ってしまおうかな。 (^^;

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]のリンクを
　どこでも良いので叩いていって(リンク先を開いて)ください。
　よろしくお願いいたします。