Ｐａｇｅ 714 ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ 通常モードに戻る ┃ ＩＮＤＥＸ ┃ ≪前へ │ 次へ≫ ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ ▼シート検索 MINI 03/2/4(火) 17:08 ┗Re:シート検索 ぴかる 03/2/4(火) 17:36 ┗Re:シート検索 Jaka 03/2/4(火) 17:53 ┗Re:シート検索 MINI 03/2/5(水) 11:54 ┗Re:シート検索 Jaka 03/2/6(木) 10:58 ┗Re:シート検索 student 03/2/7(金) 18:07 ┗Re:シート検索 Jaka 03/2/10(月) 11:21 ─────────────────────────────────────── ■題名 ： シート検索 ■名前 ： MINI <MINI_HM0220@YAHOO.CO.JP> ■日付 ： 03/2/4(火) 17:08 -------------------------------------------------------------------------
| こんにちは。 過去のツリー内容を見てみたんですが、無さそう なんで、質問させてもらいます。 １ファイルにかなりのｓｈｅｅｔ数がありまして、 いちいち探すのが手間なので、全てのｓｈｅｅｔに 検索ボタンを置いて、ボタンを押すと検索したい ｓｈｅｅｔ名を入力して該当するｓｈｅｅｔ名があれば 表示して、無かった場合は”該当するｓｈｅｅｔはありません” みたいなことは出来ないかな〜と思っています。検索できれば 上記の方法でなくても構いません。 何かいい案ありましたら教えて下さい。 MINIより |
| MINIさん、こんにちは。 以前にJakaさんに教えて頂きました。シンプルで使いやすいですよ。 CommandBars("WorkBook tabs").ShowPopup |
| みなさんこんにちは。 ぴかるさんが紹介してくれたのと違いますが。 [#1505]も見てみてね！ 明日休んじゃいますので、説明は後日と言う事でお願いします。 |
| ぴかるさん、Jaka さんへ お返事ありがとうございます。 ですが、私がかなり未熟なもので、見てもいまいち 分かりません。もう少し詳しく教えて頂けたらありがたく 思います。 MINIより |
| こんにちは。 sub シート選択() CommandBars("WorkBook tabs").ShowPopup end sub [#1505]の方は、フォームを作ってフォームモジュールにコードをコピペして、Showするだけです。（ボタン、サイズ調整等は、勝手にやってくれますから、一切必要ないです。） 尚、シート枚数は、４５枚までしか対応させていませんでした。 修正部分、ここ直しといてね。 Me.Caption = "シート削除" ↓ Me.Caption = "シート選択" |
| Jaka さんへ こんばんは。教えて頂いた内容を参考に色々やってみて るんですが、エラーがでてうまくいきません。 とりあえず、もうちょっと自分でがんばってみてムリなら もう一度助けを求めに投稿しようと思います。 とりあえず、お礼まで・・。 ありがとうございました。 |
| こんにちは。 もしかして、 >全てのｓｈｅｅｔに検索ボタンを置いて、 と言うのも書かないとダメだったんでしょうか？ この辺は、自分でツールバー等を作ってマクロ登録と添付などをしていただけると思っていたんですが．．．。 ツールバーの方がシート全部にボタンを作るより効率が良い。 自分でシート名を入力するより、提示されたシート名を選択した方が良いんじゃないかと思っていたんだけど．．。 こう言うのじゃダメかもしれないので、要望の通りだとこんな感じです。 全部、標準モジュールにかきます。 （フォーム版は、一応６０枚までに増やしたんで要望があれば．．．） Sub Auto_Open() Set オリジナルバー = Application.CommandBars.Add(Name:="選択Bar", temporary:=True, Position:=msoBarBottom) オリジナルバー.Visible = True Set オリジナルボタン1 = CommandBars("選択Bar").Controls.Add(Type:=msoControlButton, _ before:=1, temporary:=True) ' With オリジナルボタン1 .Style = msoButtonIconAndCaption .Caption = "シートの選択" .FaceId = 481 .OnAction = "シート選択" '実行したいマクロ名 End With オリジナルボタン1.Visible = True End Sub Sub Auto_Close() On Error Resume Next オリジナルボタン1.Visible = False Application.CommandBars("選択Bar").Delete End Sub Sub シート選択() Dim DefoPro As String, WShN As String, Sh As Worksheet DefoPro = "シート名を入力してください。" Do WShN = Application.InputBox(Prompt:=DefoPro, Title:="シートの選択") If WShN = "False" Or WShN = "" Then Exit Sub For Each Sh In Worksheets If Sh.Name = WShN Then Sh.Select Exit Sub End If Next MsgBox WShN & "は、ありません。" DefoPro = "もう一度、シート名を入力してください。" Loop End Sub |