こんにちはゲストさん。会員登録(無料)して質問・回答してみよう!

解決済みの質問

マクロでハッパーリンク2

先日、教えて頂いたマクロですが
シートの名前を数字または英字(例AAA or 123)のみにすると、うまくいきますが
ハイフンを途中で入れると(例ABG-352 or ABCD-03-005)うまくリンクがいきません
どこをどこを直せばいいのでしょうか

Sub 新しいシートの追加()
Dim シート名 As String
シート名 = InputBox("新しいシート名を入力してください", "シート名の指定")
If シート名 <> "" Then
Sheets("sheet2").Copy After:=Sheets("sheet2")
ActiveSheet.Name = シート名
Sheets("sheet1").Select
Range("B3").End(xlDown).Offset(1).Select
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", _
SubAddress:=シート名 & "!A1", TextToDisplay:=シート名
End If
End Sub

投稿日時 - 2011-08-01 22:57:27

QNo.6914987

すぐに回答ほしいです

質問者が選んだベストアンサー

 [新しいマクロの記録(R)...] で、「ハイフンを途中で入れ」た ワークシート に リンク を貼ってみると解ります。

SubAddress:=シート名 & "!A1"
のところw
SubAddress:="'" & シート名 & "'!A1"
にしてみてください。

投稿日時 - 2011-08-02 07:26:00

お礼

ありがとうございました
できました!

ところで"'"このマークは何を意味しているのでしょうか?

投稿日時 - 2011-08-03 21:13:21

このQ&Aは役に立ちましたか?

0人が「このQ&Aが役に立った」と投票しています

回答(1)

あなたにオススメの質問