こんにちは。
最初に、私は、ちょうど、今年の、Yahoo!オークションサイトの改編の時期に、フリーソフトウェアやシェアウェアが間に合わないようでしたので、自分で作ってしまいました。ただ、かなり大きな内容で、ここでは全ては書けません。当分は、公開する予定もありません。完全に個人用として作ったものです。Vectorで出ているものよりは、はるかに便利です。
オークションの検索から始まり、ログイン、ウォッチリストへの登録、出品者の良い／悪い 開始価格、入札の数などすべてを自動的に取得するように作ってしまいました。入札のみ、危険なために作りませんでした。それと同時に、オークション統計（仮）ページ側の記録も取得するように作りました。
そうした経験からする、ハイパーリンクでは、私の感覚では数が増えると無理な部分があるような気がします。なぜか、ハイパーリンクが１つまとめられてしまうことがありますから、コツとしては、その商品IDコードをハイパーリンクでない文字で管理することでしょうね。ですから、私は、ハイパーリンクは使っていません。Internet Explorer オートメーションという方法を使って、そのシートの行からURL先に飛んでいます。
もし、商品IDが残っているようでしたら、以下が利用できます。残っていないと、ブックからでは、ちょっと厳しいですね。マイオークションの中の記録を拾ってくるしかないと思います。
字数の制限のある掲示板では、あまり細かい説明は出来ませんが、以下のようなユーザー定義関数で、URL に変換して組めば良いと思います。一通り、全ての商品IDには当てたつもりなのですが、商品IDの１文字目の"t" 以降はであっていませんので、分りません。数ヶ月経ちましたが、今のところ、私のほうは問題は出ていません。
'標準モジュールへ登録
'--------------------------------
Function ItemID2URL(ItemId As String)
Dim fig As String
Select Case Left(ItemId, 1)
Case "b"
fig = "2"
Case "c"
fig = "3"
Case "d"
fig = "4"
Case "e"
fig = "5"
Case "f"
fig = "6"
Case "g"
fig = "7"
Case "h"
fig = "8"
Case "k"
fig = "9"
Case "m"
fig = "10"
Case "n"
fig = "11"
Case "p"
fig = "12"
Case "r"
fig = "13"
Case "s"
fig = "14"
Case "t"
fig = "15" 'Unconfirmed
Case 1 To 9
Case Else
fig = "n/a" '使えません。
End Select
ItemID2URL = "http://page" & fig & ".auctions.yahoo.co.jp/jp/auction/" & ItemId
End Function
'--------------------------------
ワークシートのほうには、 以下のようにすれば、利用できます。
例:
A B C
1 商品名 URL 商品ID
2 abc (下記参照） m123456789
B2:
=HYPERLINK(ItemID2URL(C2),A2)
