|
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
>一例です。検討してみてください。
はい!さっそく試させていただきます。
ありがとうございました。
|
|