Excelのハイパーリンク機能とボタン設定について

質問

どうかお教えください。

OS:WinXP Pro
Excel：2002 SP3

＜何に使用しているか＞
商品の簡易データベースで、型番を指定のセルに入れるとあらかじめ別シートに入力してある値をVLOOKで引っ張ってきて、仕様情報を参照できるようにしています。

＜困っていること＞
通常の仕様情報は問題なく引っ張ってこれており、また、URLの部分も

=HYPERLINK(IF(A1="","",VLOOKUP(A1,詳細情報!$A$2:$R$999,3,0)))
↑のようにURLを引っ張ってきてハイパーリンク化する所まではできています。

しかしながら、引っ張ってくるURLの長さがまちまちなためセルの長さをあらかじめ設定できず（はみ出てしまう）、また見栄えも悪いためボタンのようなもの（「Web情報はこのボタンをクリック」のような物）で上記動作を実行することができないものかと思っております。

オートシェイプのような図形に上記のような式を組み込むことができればと思ったのですが、どうもうまくいかず・・・。どなたかご教授いただけますと嬉しいです。

よろしくお願いいたします！

回答No.2

hige_082 · ベストアンサー

=HYPERLINK(IF(A1="","",VLOOKUP(A1,詳細情報!$A$2:$R$999,3,0)))
を
=HYPERLINK(IF(A1="","",VLOOKUP(A1,詳細情報!$A$2:$R$999,3,0)),"Web情報はこのボタンをクリック")
としてみてください

お礼

＞hige_082さま
こちらもご回答ありがとうございます！こんな方法があったのですね（汗）セルを加工して（色を塗ったりします）こちらを採用させていただきたいと思います。

最終的にはAKARI0418様にお教え頂いたボタンの設置をチャレンジしてみたいと思います。

簡易・上級の回答が揃いましたので、こちらで締め切らせて頂きたいと思います。参照いただいた皆様本当にありがとうございました。

回答No.1

AKARI0418

VBAを使用すれば可能です。

簡単にですが説明します。
表示>ツールバー>Visual Basic
Visual Basicのツールバーを表示します。
コントロール　ツールボックスボタンをクリックします。(トンカチマーク)
コマンドボタンをクリックします。
貼り付けたい位置にセットします。
このときコントロール　ツールボックスボタンとデザインモード(定規マーク)がONになっています。
デザインモードがONでなければ、ボタンなどのプロパティ操作ができないので注意してください。

デザインモードONの状態でボタンを右クリックしプロパティを開きます。
Captionとなっているのが表示されている文字列です、Web情報はこのボタンをクリックと入力してください。

プロパティを閉じます。
デザインモードONの状態でボタンをダブルクリックします。

VBE(VBA用のエディター)が起動します。

Private Sub CommandButton1_Click()
　☆ここにカーソル
End Sub

上記のような状態で起動されるはずです。

星の部分に処理を記述していきます。
Cells(A,B)はA=Row,B=Columnです。
Rowは行で、Columnは列です。

Private Sub CommandButton1_Click()
　Cells(1, 1).Formula = "HYPERLINK(IF(A1="","",VLOOKUP(A1,詳細情報!$A$2:$R$999,3,0)))
"
'A列の幅の長さを自動調整します。
Columns("A:A").EntireColumn.AutoFit
End Sub

以上のようになります。

お礼

＞AKARI0418さま
早速のご回答ありがとうございました！
ちょっと試してみましたが・・・途中まではうまくできたのですが何故か計算式がA1列に表示されるだけになってしまいまして・・・。

もう少し時間をかけて挑戦してみたいと思います。お忙しい所ありがとうございました♪