エクセルの学校：全文検索：Hyper Estraier：オートフィルタ

Results of 1 - 1 of about 4265 for オートフィルタ (0.004 sec.)

[[20120228164509]]: #score: 4241; @digest: 310a614d28ee15d9460f864eefd86ede; @id: 57931; @mdate: 2012-03-01T05:20:04Z; @size: 2197; @type: text/plain; #keywords: mybutton (16222), 身-- (14426), 前修 (12117), mybar (10668), msobartop (8016), 示非 (6821), addinsfile (6347), 残骸 (5992), commandbars (5087), 闇雲 (4226), 示" (4082), き: (3827), 示se (3548), position (2925), commandbarbutton (2827), 加se (2600), beforeclose (2188), commandbar (2184), ル起 (1897), 常終 (1831), 正-- (1459), タ") (1362), トフ (1351), ーバ (1313), ・非 (1308), タ" (1219), resume (1159), オー (1154), ルタ (968), 示・ (954), error (945), メニ (932); 『マクロで作ったメニューバーが増えていく』（あや）
XP 2003 過去に教えていただいた [[20110405160117]] についてです。おかげさまで、作ったマクロをアドインを使ってメニューバーに追加して使えています。ここで…時々なのですがエクセル起動時にこのメニューバーが複数出てきたり、エクセルを×で閉じて開き直すと、メニューバーがひとつずつ追加されていくような形になってしまうことがあります。毎回ではなく時々です。 addinsFile.xlaの中身 --- Option Explicit Private Sub Workbook_Open() On Error Resume Next Dim myBar As CommandBar, myButton As CommandBarButton Set myBar = Application.CommandBars.Add(Position:=msoBarTop) 'オートフィルタを表示・非表示 Set myButton = myBar.Controls.Add(Type:=msoControlButton) myButton.OnAction = "オートフィルタを表示非表示" myButton.Caption = "オートフィルタを表示非表示" myButton.FaceId = 94 myBar.Visible = True On Error GoTo 0 End Sub Private Sub Workbook_BeforeClose(Cancel As Boolean) On Error Resume Next Application.CommandBars("ユーザー設定 1").Delete On Error GoTo 0 End Sub Module1 の中身 ------ Sub オートフィルタを表示非表示() On Error Resume Next Selection.AutoFilter End Sub とりあえずはユーザ設定で削除していけば良いのですが、なんとか解消したく質問させていただきましたm(_ _)m ---- 異常終了した時は、 Private Sub Workbook_BeforeClose(Cancel As Boolean) が実行されないから、残骸が残りますね。その残骸を確認もしないで、闇雲にツールバー等を作っているから、ダブりどころか3つ4つと増えていくかもしれないですね。 BJ ---- 正しい方法は知りませんが、私はこうしています（マナ）開くとき: On Error Resume Next Application.CommandBars("オートフィルタ").Delete '★追加 Set myBar = Application.CommandBars.Add(Position:=msoBarTop) myBar.Name = "オートフィルタ" '★追加閉じるとき: On Error Resume Next Application.CommandBars("オートフィルタ").Delete '★名前修正 ---- BJさんありがとうございました。マナさんありがとうございました。追加と名前修正で対応しましたm(_ _)m ご丁寧に教えていただき、助かりました。（あや） ...; http://www.excel.studio-kazu.jp/wiki/kazuwiki/201202/20120228164509.txt - [detail] - similar

PREV NEXT

訪問者：カウンタ