[[20060728160103]]　『ユーザーフォームをツールバーに固定』（てつ）　ページの最後に飛ぶ

『ユーザーフォームをツールバーに固定』（てつ）

 ユーザーフォームで検索を行うフリーソフトを
 拾ってきたのですが，そのユーザーフォームをツールバーに
 に固定して使用できればなっと思うのですが，何か方法はあるのですか？

 宜しくお願いいたします。

 ユーザーフォームを呼び出すコマンドボタン（ツールバーの）を登録すれば良いだけでは。

 （川野鮎太郎）

 川野さんありがとうございます。しかし
 ではなく ツールバー内（下でも可）に検索窓を取り付けたいのです。（てつ）
 どうもうまくいかないです。

 自己レスですが，最近コマンドバーなるものを知りました。
 ひょっとしてこれはいけるかもと思っています。
 しかし　ネット上にもあまりコマンドバーの詳しい使いかたがのっておらず
 手間取っております。
 コマンドバー左にテキスト入力，真中に検索，右に設定というバーを作成することろまでは
 出来たのですが･･･
 以前のﾏｸﾛで検索機能や，設定のﾏｸﾛは持っていますので，
 エディット(テキスト入力)のところに入力した文字をどのようにして取得すればいいのか
 わかりません。
 宜しくお願いします。

 ツールバーってかいたり、コマンドバーってかいたりしてますが違うものとして使い分けているのでしょうか？
 この辺は、適当に解釈しますから、どっちでもいいですが。
 適当に解釈してますから、間違っていても後のことは解りません。
 メニューバーに作ってみました。
 BJ

 Sub 作成()
   Set textMnu = CommandBars("Worksheet Menu Bar").Controls.Add(Type:=msoControlEdit)
   With textMnu
      .Caption = "MenuText"
      .Width = 70
   End With
 End Sub

 Sub 削除()
   On Error Resume Next
   CommandBars("Worksheet Menu Bar").Controls("MenuText").Delete
 End Sub

 Sub 書き込み()
   CommandBars("Worksheet Menu Bar").Controls("MenuText").Text = "あいうえお"
 End Sub

 Sub 取得()
   MsgBox CommandBars("Worksheet Menu Bar").Controls("MenuText").Text
 End Sub

 ----
 BJさん　説明が下手ですいません。
 内容はあっていました。
 ただ　よくわからないのですが，MenuText欄に文字を入力しても
 消えてしまうのですが，これはどうすればいいのでしょうか？
 上記のﾏｸﾛの場合，取得で文字をMSGBOXに表示させるとなっていますが，
 文字の書き込みが，書き込みﾏｸﾛを使用してしか出来ません。

 TEXTに書かれた文字を検索するというのを作りたいのですが･･･

 > ただ　よくわからないのですが，MenuText欄に文字を入力しても
 >消えてしまうのですが，これはどうすればいいのでしょうか？
 これは、ちゃんと確定してないからだと思います。
 名前ボックスと同じ仕様？なのかわからないけど、
 テキストボックスの外枠の黒線が消えるまで、Entを押してください。
 BJ

 リターンで確定させれば出来ました。ありがとうございます。
 こんな感じになりました。何とかして文字を確定前に
 認識させることは出来ないのでしょうか？ 
 ユーザーフォームでのﾏｸﾛでは可能なのに･･･

 あるいはリターンをおしたら（確定したら）次のリターンで検索ﾏｸﾛを実行するとか･･･
 下にﾏｸﾛ張ってみました･･･（検索部分は簡易表示ですが･･･）

 Public Sub 作成()
 Call cBarDel
 With Application.CommandBars.Add(Name:="検索", Position:=msoBarFloating)

 'Caption = "name" でボタン名を修正できます。
 'OnAction = "macro" で実行するマクロを指定。
 With .Controls.Add(Type:=msoControlEdit)
 .Caption = "TEXT"

 End With
 With .Controls.Add(Type:=msoControlButton)
 .BeginGroup = True
 .Caption = "探す"
 .OnAction = "sagasu"
 .Style = msoButtonCaption
 End With
 End With
 Application.CommandBars("検索").Visible = True

 End Sub
 Sub sagasu()
 TextBox1 = CommandBars("検索").Controls("TEXT").TEXT
         Cells.Find(What:=TextBox1, After:=ActiveCell, LookIn:=xlValues, LookAt:= _
        xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
        , MatchByte:=False).Activate

 End Sub

 Sub cBarDel()
 On Error Resume Next
 'コマンドバーの削除
 Application.CommandBars("検索").Delete
 On Error GoTo 0
 End Sub

 >何とかして文字を確定前に
 >認識させることは出来ないのでしょうか？
 お気持ちはわかりますが、私は仕様だと割り切ってあきらめました。
 BJ

コメント返信：

[ 一覧(最新更新順) ]

[[20060728160103]] 『ユーザーフォームをツールバーに固定』（てつ） ページの最後に飛ぶ

[[20060728160103]]　『ユーザーフォームをツールバーに固定』（てつ）　ページの最後に飛ぶ