[[20031017143622]]　『常にリンク・リストを出す方法』（どみとり）　ページの最後に飛ぶ

[ 初めての方へ | 一覧(最新更新順) | 全文検索 | 過去ログ ]

　

『常にリンク・リストを出す方法』（どみとり）

2003/10/15(水)16:24でハイパーリンクを使って、各シートに飛ぶリストの作成を教えてもらったのですが、
このリストを別ウィンドウにして、どのシートに飛んだ時も常に目次リストを一番前に出しておくことはできないでしょうか？

 別ウィンドウと言うとVBAになりそうなので、まだ、私レベルではお力になれそうもないのですが、
すべてのシートにドロップダウンリストと先日の数式を配置させればどうですか？（ケン）

横から失礼します。そんなものいつも前面に出しておいたらじゃまになってしようがないと思いますが…。それに、目的のシートを表示すれば必然的に目次ウインドは隠れちゃうのでは…？　むしろ、ケン氏のハイパーリンクのシート（のセルA1）に名前をつけておいたらどうですか。そうすると、いつも画面に出ている名前ボックスから、ワンクリックで、ハイパーリンクのシート（こういうのを時にジャンプテーブルと呼びます）に行けるではないですか？

しかし、画面下のシートタブ並びの左側、横向き三角マークが並んでいるところで右クリックすれば、いつでも、シート名一覧がでますから、それをクリックすることで、お望みのシートにジャンプできますよ。

ただし、シート１５～６枚分しか表示されないです。シート数がそれ以上の時は、「シートの選択」をクリックして下さい。スクロールするウインドが現れますので、シート２５６枚まで、表示できますよ。こういうビルトイン　ジャンプテーブルではだめですか？

さらに、各シートのA1にそれぞれのシートの名前か何かを、名前として定義しておけば、上で述べました名前ボックスのクリックで、この場合は、即、スクロールする小窓が開きます。

え！？　めちゃようけあるシート名をいちいち登録するのは大変でっか？　そのなものアホみたいに簡単でんがな…。ALT + F11 を押してみておくんなはれ、画面が変わりまっしゃろ。メニューバーの「挿入」から、「標準モジュール」をクリックでっせ...。

びっくりさせてすみません。この学校には、大阪弁を使うワル乗りの先生がいますので、ちょっと口調を真似してみたのです。それで現れた白紙のシートに、

 Sub aa1()
   Dim Sh As Object
   For Each Sh In Sheets
     Sh.Range("A1").Name = Sh.Name
   Next
 End Sub

と打ち込み、カーソルを上のコードのどこかにおいておいて、F5 を押して下さい。全シートのA1に、名前としてそれぞれのシートのシート名が登録されます。ただし、これを実行する前に、ブックを一度セーブして、万一何が起きても回復できるようにしておいた方がいいです。

名前を取り消す場合は、上のコードの、Sh.Range("A1").Name = Sh.Name　を Sh.Range("A1").Name.Delete に変えておいて、F5 を押して下さい。（通りすがりの者）

 　　↑
 　メッ！
 興味がないからっちゅうて覗かんかったら、どんな所で私を売り込んどる？か知れたも
 んやおまへんなぁ。気ぃ付けとこ。
 　　カナンさんへ（悪のり　弥太郎）

コメント返信：

[ 一覧(最新更新順) ]

YukiWiki 1.6.7 Copyright (C) 2000,2001 by Hiroshi Yuki. Modified by kazu.