No.7ベストアンサー
- 回答日時:
No.3の回答者です。
BOOK1.xlsのThisWorkbookモジュールに
Private Sub Workbook_Open()
Application.CommandBars("WorkSheet Menu Bar").Controls("編集(&E)").Controls("検索(&F)...").Execute
End Sub
としていますか?
>Wendy02さん
>#3さんの回答は、詳しく分りませんが、
>ダイアログの立ち上げに、コマンドボタンの
>Execute メソッドは利かないような気がしますね。
私の環境(WIN XP、EXCEL2002)では
上記コードでメニューから編集→検索と
たどったのと同じ結果を得られるのですが・・・。
実際に試されました?
No.8
- 回答日時:
masa_019 さん、Wendy02です。
>実際に試されました?
前回、貼り付けたコードでは、なぜか、何度やってもエラーが出ましたね。今回は通りました。
前回、Objectとしては取れるのですが、Executeでエラーが発生しました。原因を探したのですが、見つかりませんでした。
もしかしたら、こちらで、別のオブジェクトを頻繁に出し入れしている状況がエラーを出したのかもしれません。ただし、戻し忘れなどということはありえません。いずれにしても、大変、失礼しました。
私個人は、なるべく、日本語のリテラル文字列を使う書き方を避けているので、ほとんどやったことがありません。
私なら、以下のようにするかと思います。
Application.CommandBars.FindControl(, 1849).Execute
この書き方は、最初に、ローカルウィンドウで、CommandBarのControls の中のIDを調べるか、Excel VBAの資料で、IDのリストから調べるかしなればならない手間があります。また、逆に、このFindControlメソッドが万能で、その全てのコントロールを確保できるわけではありません。理由ははっきりしません。
No.6
- 回答日時:
こんにちは。
#2のお礼の書き込みに対する、割り込みになってしまうけれども、
以下を、<ThisWorkbook モジュール> に入れてください。
Auto_Open でも悪くはありませんが、もしつけるなら、<標準モジュール Module1, Module2 ...>の 「Sub Auto_Open 」... となります。
'<ThisWorkbook モジュール>
'------------------------------
Private Sub Workbook_Open()
Worksheets("Sheet1").Select
Columns("D:D").Select
Application.Dialogs(xlDialogFormulaFind).Show
End Sub
'------------------------------
それから、#3さんの回答は、詳しく分りませんが、ダイアログの立ち上げに、コマンドボタンのExecute メソッドは利かないような気がしますね。
No.5
- 回答日時:
標準モジュールに入れたのですよね?
ひょっとして、頭にSubをつけてないとか?まさかとは思いますが・・・・。
Sub Auto_Open()
Application.Dialogs(xlDialogFormulaFind).Show
Columns("D:D").Select
End Sub
びんご!!
すみません。
Sub
'コメント’
Auto_Open()
Application.Dialogs(xlDialogFormulaFind).Show
Columns("D:D").Select
End Sub
でした。。。
ありがとうございました。
本当に、単純なミスでした。。
No.4
- 回答日時:
#2でご照会されているApplication.Dialogsは非常に有用で、たくさんあります。
1例を上げますと(下記を実行しXで閉じると次々現れます)Sub Test01()
Application.Dialogs(xlDialogFormulaFind).Show
Application.Dialogs(xlDialogPrint).Show
Application.Dialogs(xlDialogPublishAsWebPage).Show
Application.Dialogs(xlDialogSaveAs).Show
Application.Dialogs(xlDialogSaveWorkbook).Show
Application.Dialogs(xlDialogSearch).Show
Application.Dialogs(xlDialogSendMail).Show
Application.Dialogs(xlDialogSort).Show
Application.Dialogs(xlDialogSortSpecial).Show
End Sub
エクセルでおなじみの画面が出せます。
http://www.code-vb.com/fragments/Excel_Dialogs.htm
http://www.microsoft.com/japan/developer/library …
に網羅されていました。
おもしろい!!
まず、検索→×→印刷→×→Webページとして発行(アシスタント表示)→×→名前をつけて保存→×→通常のファイル検索
ん?実行時エラー'1004'DialogクラスのShowメソッドが失敗しました。
になってしまいました。
これを使ってやってみます。
ありがとうございました。
No.3
- 回答日時:
Workbook_Openに
Application.CommandBars("WorkSheet Menu Bar").Controls("編集(&E)").Controls("検索(&F)...").Execute
っていう方法も有ります。
Workbook_Open
Application.CommandBars("WorkSheet Menu Bar").Controls("編集(&E)").Controls("検索(&F)...").Execute
End Sub
で、やってみたのですが、できません。
book名を指定したほうが、いいのでしょうか。
ごめんなさい。本当に無知で。
お早い回答
ありがとうございます。
No.1
- 回答日時:
こんばんは。
ブックを開いたときにマクロを実行するには
1 ThisWorkbookのOPENイベントに記述する
2 プロシージャ名をAuto_Openという名前にする。
のどちらかで出来ます。
参考に下記のURLをどうぞ。
参考URL:http://www.asahi-net.or.jp/~ef2o-inue/vba_k/sub0 …
ありがとうございます。
自動マクロで、まずD列を選択後、編集メニューから検索を表示させて、記憶終了ボタンを押してみました。
ところが、実行させてみると、検索の画面が表示されない(モジュールの中身も、そのプロシージャーがなかったので、質問させていただきました。
このページを拝見させていただいて、
Auto_Open
Columns("D:D").Select ←自動記憶で作ったマクロ
End Sub
を実行してみたのですが、やはり表示されませんでした。
なにがだめなのでしょう?
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・人生のプチ美学を教えてください!!
- ・10秒目をつむったら…
- ・あなたの習慣について教えてください!!
- ・牛、豚、鶏、どれか一つ食べられなくなるとしたら?
- ・【大喜利】【投稿~9/18】 おとぎ話『桃太郎』の知られざるエピソード
- ・街中で見かけて「グッときた人」の思い出
- ・「一気に最後まで読んだ」本、教えて下さい!
- ・幼稚園時代「何組」でしたか?
- ・激凹みから立ち直る方法
- ・1つだけ過去を変えられるとしたら?
- ・【あるあるbot連動企画】あるあるbotに投稿したけど採用されなかったあるある募集
- ・【あるあるbot連動企画】フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
- ・映画のエンドロール観る派?観ない派?
- ・海外旅行から帰ってきたら、まず何を食べる?
- ・誕生日にもらった意外なもの
- ・天使と悪魔選手権
- ・ちょっと先の未来クイズ第2問
- ・【大喜利】【投稿~9/7】 ロボットの住む世界で流行ってる罰ゲームとは?
- ・推しミネラルウォーターはありますか?
- ・都道府県穴埋めゲーム
- ・この人頭いいなと思ったエピソード
- ・準・究極の選択
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
VBでグローバル変数を宣言するには
-
Excel VBAで、ユーザーフォーム...
-
エクセルVBAでシートモジュール...
-
VBAで別モジュールへの変数の受...
-
モジュールの最大数はいくつな...
-
VBAで「メモリが不足しています」
-
perlを使って音(sound.wav)を...
-
グラフのX,Y座標を取得したい
-
VBAで旧字体を異字体に一括で変...
-
ベースモジュールって?
-
Excel VBAでリンク切れをチェッ...
-
ユーザー定義関数に#NAME?が返...
-
【vba】フォームに書いてあ...
-
ユーザー定義関数をEXCELに常駐...
-
Excel VBA 『Call』で呼び出す...
-
acwzlibとは?
-
工数見積もり
-
Excel VBA 定義されたプロージ...
-
エクセルVBAで標準モジュー...
-
気のせいでしょうか?
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Excel VBAでリンク切れをチェッ...
-
エクセルVBAでシートモジュール...
-
VBでグローバル変数を宣言するには
-
Excel VBAで、ユーザーフォーム...
-
VBAで旧字体を異字体に一括で変...
-
ユーザー定義関数に#NAME?が返...
-
VBA This Workbookモジュール...
-
Excel VBA 『Call』で呼び出す...
-
【vba】フォームに書いてあ...
-
Access VBA標準モジュールにつ...
-
モジュールの最大数はいくつな...
-
'Range'メソッドは失敗しました
-
vba userFormのSubを標準モジュ...
-
VBAで別モジュールへの変数の受...
-
グラフのX,Y座標を取得したい
-
標準モジュールを削除したい。(...
-
VBAProjectのモジュ...
-
ExcelVBA:パブリック オブジェ...
-
Excel VBA 標準モジュール内で...
-
acwzlibとは?
おすすめ情報