人力検索はてな
モバイル版を表示しています。PC版はこちら
i-mobile

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

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

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

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

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


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

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

お願いします。

●質問者: inoppe
●カテゴリ:コンピュータ
✍キーワード:Excel URL とある ハイパーリンク マクロ
○ 状態 :終了
└ 回答数 : 2/2件

▽最新の回答へ

1 ● Mook
●35ポイント

対象となる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

◎質問者からの返答

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

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

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

助かります


2 ● Mook
●45ポイント

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

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

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

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


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

◎質問者からの返答

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

ちなみに、office2003です。

関連質問


●質問をもっと探す●



0.人力検索はてなトップ
8.このページを友達に紹介
9.このページの先頭へ
対応機種一覧
お問い合わせ
ヘルプ/お知らせ
ログイン
無料ユーザー登録
はてなトップ