Results of 1 - 1 of about 4278 for オートフィルタ (0.004 sec.)
- [[20120228164509]]
- #score: 4239
- @digest: 310a614d28ee15d9460f864eefd86ede
- @id: 57931
- @mdate: 2012-03-01T05:20:04Z
- @size: 2197
- @type: text/plain
- #keywords: mybutton (16222), 身-- (14426), 前修 (12117), mybar (10668), msobartop (8016), 示非 (6740), addinsfile (6347), 残骸 (5992), commandbars (5087), 闇雲 (4226), 示" (4059), き: (3827), 示se (3548), position (2916), commandbarbutton (2827), 加se (2600), commandbar (2184), beforeclose (2184), ル起 (1888), 常終 (1831), 正-- (1455), タ") (1361), トフ (1348), ーバ (1311), ・非 (1305), タ" (1217), resume (1154), オー (1152), ルタ (965), 示・ (948), error (941), メニ (931)
- 『マクロで作ったメニューバーが増えていく』(あや)
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 ご丁寧に教えていただき、助かりました。 (あや) ...
-
https://www.excel.studio-kazu.jp/wiki/kazuwiki/201202/20120228164509.txt
- [detail]
- similar
PREV
NEXT
Powered by
Hyper Estraier 1.4.13, with 97355 documents and 609575 words.
訪問者:![カウンタ](../../cgi-bin/cnt/logcnt5.cgi?id=hyper)
![Valid HTML 4.01 Transitional](https://www.w3.org/Icons/valid-html401)