ハイパーリンクを変更するVBA
2014.05.07
カテゴリ:PC
ハイパーリンクを変更するVBA
Excel2013のシートから、CD音声を再生するために作った。
2行目から74行目のBカラムに文字列が書いてある。
その文字列にはCDドライブのmp3へのハイパーリンクが貼ってある。
そのドライブ名を変更するプログラムである。
(たとえば、DドライブをFドライブなどに)
Sub ドライブを変更() 'belmonto, 2014-04-28T04:00, 05-03T22:30 Const はじめ = 2 Const おわり = 74 Let ドライブ = InputBox("KDのあるドライブは? (半角1文字)") If ドライブ = "" Then MsgBox "何も入力してありません。やり直してください。" End Else 'シートのタブにドライブレターを表示する ActiveSheet.Name = UCase(ドライブ) Let ドライブ = ドライブ & ":\" End If For 縦 = はじめ To おわり If Cells(縦, 2) <> Empty Then ' ハイパーリンクの値を得る Let txt = Cells(縦, 2).Hyperlinks(1).Address If Mid(txt, 3, 1) = "\" Then Let txt = Right(txt, (Len(txt) - 3)) End If Let txt2 = ドライブ & txt Cells(縦, 2).Select Selection.Hyperlinks(1).Address = txt2 End If Next Range("b1").Select End Sub
a:2707 t:2 y:0