EXCELのマクロに関する質問です。


シートの中に7桁の数字やただの文字
あるいは、7桁以外の数字があります。

7桁の文字だけにハイパーリンクを一括で
張るようなマクロを教えてください。

例えば、表に1234567とあるとき
http://www.google.co.jp/search?hl=ja&q=1234567&lr=
のハイパーリンクを張ってくれるようなマクロです。

ハイパーリンクのURLの一部は表の7桁の数字を
反映するようにしてください。


またハイパーリンク作成の際、表の表記は1234567のままで
なおかつ、5桁や文字に対しては
ハイパーリンクが反映されないマクロを教えてください。

また、7桁の数字を追記した際に
今あるハイパーリンクが
正常なままで残るような方法が知りたいです

お願いします。

回答の条件
  • 1人2回まで
  • 登録:2006/08/14 00:16:29
  • 終了:2006/08/15 23:41:30

回答(2件)

id:Mook No.1

Mook回答回数1312ベストアンサー獲得回数3912006/08/14 00:53:56

ポイント35pt

対象となるSheetに、下記のような感じでどうでしょうか。

Private Sub Worksheet_Change(ByVal Target As Range)

    If Target.Rows.Count > 1 Then Exit Sub

    If Target.Columns.Count > 1 Then Exit Sub

    If Len(Target.Value) = 7 Then

        ActiveSheet.Hyperlinks.Add anchor:=Target, _

        Address:="http://www.google.co.jp/search?hl=ja&q=" & Target.Value & "&lr="

    End If

End Sub

id:inoppe

なんかこれでいけそうな気がします。

けど正直マクロにまったく触ったことがないので

設定の仕方とかを詳しく教えてくれると

助かります

2006/08/14 01:26:33
id:Mook No.2

Mook回答回数1312ベストアンサー獲得回数3912006/08/14 01:34:18

ポイント45pt

シートタブ \Sheet1/ を右クリック

コードの表示を選択します。

VBE が表示されるので、そこへコードをコピーします。

Excel に戻って、通常に入力してみてください。


Excel を保存すれば、次回起動しても同じ状態になります。

id:inoppe

やってみるとコンパイルエラーとなってしまいます。

ちなみに、office2003です。

2006/08/14 01:46:25

コメントはまだありません

この質問への反応(ブックマークコメント)

「あの人に答えてほしい」「この質問はあの人が答えられそう」というときに、回答リクエストを送ってみてましょう。

これ以上回答リクエストを送信することはできません。制限について

絞り込み :
はてなココの「ともだち」を表示します。
回答リクエストを送信したユーザーはいません