「教えて!ピックアップ」リリース!

テキストとおりに入力したのに構文エラーです。修正を教えてください。

Sub CreateLink()

Dim addRow As Integer
Dim wsName As String
Dim rngAddr As String
Dim supTxt As String


wsName = ActivSheet.Name
rngAddr = Selection.Address
supTxt = InputBox("リンクの補足を入力してください")

With Worksheets("リンク")

addRow = .Cells(.Rows.Count, "B").End(xlUp).Row + 1
.Hyperlinks.Add_
Anchor:=.Cells(addRow,"B"),_
Address:="",SubAddress:=wsName& "!" &rngAddr,_
 TextToDisplay:="●"
.Cells(addRow, "C").Value = supTxt
.Cells(addRow, "D").Value = wsName
.Cells(addRow, "E").Value = rngAddr



End With


End Sub

A 回答 (3件)

ActivSheet.Name ⇒ ActiveSheet.Name : スペルミス



.Hyperlinks.Add_ ⇒ .Hyperlinks.Add _ :Addの後に半角スペース入れる

wsName& "!" &rngAddr ⇒ wsName & "!" & rngAddr
&前後には半角スペースを入れる
    • good
    • 0

こんにちは



>テキストとおりに入力したのに構文エラーです。
エラーの可能性はいろいろあるので、どこでエラーが出ているのでしょうね。
エラーが出るなら、その部分の表示とエラーメッセージが出るはずですけれど・・
まずは、「テキスト通り」かどうかを疑ってみるのが、解決への近道かと思います。

ご提示のコードを、VBEの画面にコピペすると、構文エラーで赤く表示される部分があります。
それを修正しましょう。(スペースがあちこち抜けています)
その他にもスペルミスが1箇所あります。
上記を修正すると、一応、動作はするようにはなります。


また、今後のために、デバッグの方法を覚えておきましょう。
◇エクセルVBAでデバッグをする方法を解説します
https://www.excelspeedup.com/vbadebug/
    • good
    • 0

一文ずつ、実行して行け。

    • good
    • 0

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!

このQ&Aを見た人はこんなQ&Aも見ています


このQ&Aを見た人がよく見るQ&A

人気Q&Aランキング