[[20100522083138]]　『シートの一覧を常に表示』（電卓２号）　ページの最後に飛ぶ

『シートの一覧を常に表示』（電卓２号）
エクセル２００３
OS XP

はじめまして。

 皆様に質問があります。
 エクセルのシート数が「数十」と大変多いものになってしまいました。
 そこで、下部のボタンを右クリック、シート選択画面を常に表示させ、
 それぞれのシートに瞬時に移動できるようなマクロを作ろうと思いました。
 しかし自動処理マクロで、シート選択画面表示のプログラムを見てみようと思いましても、
 プログラムそのものが表示されず、まった手がかりなしで困ってしまいました。
 なにとぞ、ご教授のほど、よろしくお願いいたします、。

 時間が無いので、たたき台程度に・・・
　
Sub UserForm_Initialize()
Dim sh As Variant
    For Each sh In Worksheets
        Me.ListBox1.AddItem sh.Name
    Next sh
End Sub
　
Private Sub ListBox1_Change()
    Worksheets(Me.ListBox1.Value).Activate
End Sub
　
 こんなので事足ります？
 （キリキ）（〃⌒o⌒)b

足りる足りる　十分じゃ　有難う

↑のコメントは電卓２号さんではありません。

 こんな事もできるのかと興奮してつい書きこみました。
 by 名無しの権兵衛

 こんなのとか。

 Application.CommandBars("Workbook tabs").ShowPopup

 (トオリガカリ)

 キリキ様
 素晴らしいプログラムをありがとうございます。
 リストをダブルクリックすると、そのシートに飛ぶ、といった具合に、
 若干私なりの変更を加えさせていただいて、月曜日に仕事に使わせていただきます。

 トオリガカリ様
 シンプルで、しかも表示が実に綺麗です。
 とてもお気に入りです。
 追加でお聞きしたいことがあるのですが、
 私が不勉強のためか vbmodeless　とトオリガカリ様のプログラムの後ろに付け加えても、
 シートを選択すると、ポップアップが消えてしまいます。
 今後のために、その解決法も合わせて教えていただけますと助かります。
 なにとぞよろしくお願いいたします
（電卓２号）

 >vbmodeless
 はできません。

 そもそもですが、
 >シート選択画面を常に表示させ...
 【常に】では画面上邪魔じゃありませんか？

 マウスを左下まで持って行くのが一々面倒ということなら、適当な範囲または全セル上を対象にして
 右クリック（又はダブルクリック）イベントから上記の「Workbook tabs」を表示させたらいかがで
 しょうか。

 あるいは、ショートカットキーを設定してキーボードから実行でも良いかも。

 （トオリガカリ）

コメント返信：

[ 一覧(最新更新順) ]

[[20100522083138]] 『シートの一覧を常に表示』（電卓２号） ページの最後に飛ぶ

[[20100522083138]]　『シートの一覧を常に表示』（電卓２号）　ページの最後に飛ぶ