Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

30826 / 76732

←次へ　｜　前へ→


	【51168】Re:コマンドボタンをマクロでクリック！

もとあし - 07/8/31(金) 15:52 -


	引用なし

	パスワード

Blueさん、
ichinose さん
こんにちは。

ありがとうございます。

>>ただ、表示されるUserFormの押したいボタンのDefaultプロパティがTrueに
>>なっていれば、表示前にSendKeysでEnterキーを送れば閉じれるのではないか
>>と思います。
>Alt+F4でユーザーフォームを閉じる

SendKeyのことは考えたのですが、どこに記述すればいいのか。キーは何なのか。
が分かりませんでした。Open前なのですね。試してみます。

>sub main()
>　　Dim bk As Workbook
>　　SendKeys "%{F4}"
>　　Set bk = Workbooks.Open(ThisWorkbook.Path & "\book2.xls")
>'　　　　　　　　　　　　　　　↑Workbook_Openイベントマクロを含むブック
>end sub

また、別作者のブックの方もコードを変更していただけそうです。

>標準モジュールには
>
>'==================================================
>Sub auto_open(Optional frmhide As Boolean = False)
>　　
>　　With ThisWorkbook.Worksheets(1).Range("a1")
>　　　 .Value = Date
>　　　 .NumberFormatLocal = "yyyy/mm/dd"
>　　　 End With
>'　　　↑これがユーザーフォーム表示する以外の処理の例
>　　If frmhide = False Then UserForm1.Show
>End Sub
>
>
>呼び出し元では
>
>'=========================================================
>Sub main()
>　　Dim bk As Workbook
>　　Set bk = Workbooks.Open(ThisWorkbook.Path & "\book2.xls")
>　　Application.Run bk.Name & "!auto_open", True
>End Sub

>一例です。検討してみてください。
はい！さっそく試させていただきます。

ありがとうございました。

0 hits

▼

【51104】コマンドボタンをマクロでクリック！ もとあし 07/8/28(火) 16:42