Lernu Esperanton! 理論的に作られた国際共通語エスペラントを学びませんか

ハイパーリンクを変更するVBA

カテゴリ: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:2153 t:1 y:0

コメント



認証コード8787

コメントは管理者の承認後に表示されます。

powered by Quick Homepage Maker 4.91
based on PukiWiki 1.4.7 License is GPL. QHM

最新の更新 RSS  Valid XHTML 1.0 Transitional