|
▼シャープ さん:
おはようございます。
>初めて質問させてもらいます、宜しくお願いします。
>
>ブックを開くとユーザーフォームが自動的に開くのが中々できなくて
>(シート切り替えるとできたが・・)worksheet_open()のUserform1.show
>メソッドでそのブック自体からいきなり立ち上げると開くのは成功しました。
>
>しかし、僕がしたいのは、ハイパーリンクからこのブックのページにとんでも
>ユーザーフォームを開かせたいのです。これは不可能でしょうか?
>何度やってみてもうまくいきません。ちなみに、そのハイパーリンクを貼ってある
>ページにauto_open() userform1.show としたら、ページが切り替わるより早く
>ユーザーフォームがでてきてしまい、失敗しました。。
ブックが非表示になっているだけなんですけどねえ・・・。
方法としては、いくついか考えられますが・・・。
ハイパーリンクされるほうのブックの
Thisworkbookのモジュールに
Private Sub Workbook_Open()
Application.OnTime Now(), "thisworkbook.form_show"
End Sub
Sub form_show()
UserForm1.Show
End Sub
としておくと、ブックも表示されてフォームが開きますよ!!
(尚、この上記のコードは対象ブックが既に開いている場合は
イベントが発生しません)
他には、ハイパーリンクしているブック側で
Workbook_SheetFollowHyperlink
というイベントで処理する方法も考えられますが、
ちょっとチェックが面倒かもしれません
検討してみてください。
|
|