シートの中に7桁の数字やただの文字
あるいは、7桁以外の数字があります。
７桁の文字だけにハイパーリンクを一括で
張るようなマクロを教えてください。
例えば、表に1234567とあるとき
http://www.google.co.jp/search?hl=ja&q=1234567&lr=
のハイパーリンクを張ってくれるようなマクロです。
ハイパーリンクのURLの一部は表の７桁の数字を
反映するようにしてください。
またハイパーリンク作成の際、表の表記は1234567のままで
なおかつ、５桁や文字に対しては
ハイパーリンクが反映されないマクロを教えてください。
また、７桁の数字を追記した際に
今あるハイパーリンクが
正常なままで残るような方法が知りたいです
お願いします。
No.1
1314
393
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
No.2
1314393
45pt
シートタブ ＼Sheet1／ を右クリック
コードの表示を選択します。
VBE が表示されるので、そこへコードをコピーします。
Excel に戻って、通常に入力してみてください。
Excel を保存すれば、次回起動しても同じ状態になります。
やってみるとコンパイルエラーとなってしまいます。
ちなみに、office2003です。
1
1
2
1
1
2
2
10
10
なんかこれでいけそうな気がします。
けど正直マクロにまったく触ったことがないので
設定の仕方とかを詳しく教えてくれると
助かります