Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


11322 / 13644 ツリー ←次へ | 前へ→

【16729】ハイパーリンクについて YO 04/8/7(土) 15:32 質問[未読]
【16730】Re:ハイパーリンクについて YO 04/8/7(土) 15:33 質問[未読]
【16731】Re:ハイパーリンクについて YO 04/8/7(土) 16:20 質問[未読]
【16734】Re:ハイパーリンクについて ぴかる 04/8/7(土) 17:04 発言[未読]
【16737】ハイパーリンクについて YO 04/8/7(土) 18:35 発言[未読]
【16751】Re:ハイパーリンクについて [名前なし] 04/8/8(日) 16:34 回答[未読]

【16729】ハイパーリンクについて
質問  YO  - 04/8/7(土) 15:32 -

引用なし
パスワード
   どなたか?分かるかたご教授願います。

シートの行方向に、ActiveSheet内のシートの名前を順に書き
そのシートへのハイパーリンクを貼ろうと思いマクロを組んでみました。

 For Each WS In Worksheets
   ActiveCell.Offset(1, 0).Activate
   ActiveCell.Value = WS.Name
  ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", _
  SubAddress:= WS.Name & "!A1", TextToDisplay:=ActiveCell.Value
 Next

こんな感じなのですが、うまくリンクされるシートと
「参照が正しくありません」というシートに分かれて出来しまいます。
手動でリンクを貼る分には特に問題はないのですが・・・・。

どなたか分かる方お願いします。 (WIN XP EXCEL XP です)

【16730】Re:ハイパーリンクについて
質問  YO  - 04/8/7(土) 15:33 -

引用なし
パスワード
   >シートの行方向に、ActiveSheet内のシートの名前を順に書き
>そのシートへのハイパーリンクを貼ろうと思いマクロを組んでみました。

すいません。列でした・・。

【16731】Re:ハイパーリンクについて
質問  YO  - 04/8/7(土) 16:20 -

引用なし
パスワード
    6月 とか数字全角数字が入っているシート名の場合
参照がうまくいかないようです。
回避するには、数字をシート名に使わないしか方法は
ないのでしょうか?

回避方法ご存知の方お願いします。

【16734】Re:ハイパーリンクについて
発言  ぴかる  - 04/8/7(土) 17:04 -

引用なし
パスワード
   YOさん、こんにちは。

> 6月 とか数字全角数字が入っているシート名の場合
>参照がうまくいかないようです。
>回避するには、数字をシート名に使わないしか方法は
>ないのでしょうか?
WIN2000.XL2000では、数字全角数字問題ありませんでしたよ。ただ、シートを追加したやつがダメでした。しかし、シート名を変更した後、もう一度マクロを実行してやれば、OKとなりました。以上、報告でした。もう帰宅しますんで、あとはどなた様かにアドバイスを頂いて下さい。

【16737】ハイパーリンクについて
発言  YO  - 04/8/7(土) 18:35 -

引用なし
パスワード
   ▼ぴかる さん:どうもありがとうです。

シート名を変更も試したのですがうまくいかないです。
とりあえず、全角数値は漢数字にでも変更しようと思います。

今ひとつ納得いかないけど・・・。
シート名にも命名規則みたいなのがあるのでしょうかね?

【16751】Re:ハイパーリンクについて
回答  [名前なし]  - 04/8/8(日) 16:34 -

引用なし
パスワード
   SubAddress:= WS.Name & "!A1", TextToDisplay:=ActiveCell.Value

   ↓

SubAddress:="'" & WS.Name & "'!A1", TextToDisplay:=ActiveCell.Value

にしてみたらどうでしょうか?

11322 / 13644 ツリー ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free