VBAにていろいろ質問させてください

質問

VBAの処理です。
本来なら別々に質問しなければいけないのですが、
どれでも良いのでお分かりになるものを教えてください。

(1)複数のフォームを起動する場合、既にそのフォームが起動中であるとしる方法。またそのフォームを画面最前線に表示する方法。

(2)ExcelシートのコントロールにはLostFocusが使用できるのですが、VBAのActiveXコントロールにはありません。代替機能はありますか？(必須チェックなどしたいのですが)

(3)フォームで[?]ボタンでヘルプを出力したいです。
[?]は閉じるボタンの横に配置できたのですが、
[?]に対する各コントロールのヘルプはどう設定すればよいのですか？

すみません。どれでも良いので教えてください

回答No.1

y_an · ベストアンサー

(1)について
UserFormsコレクションには起動中のフォーム一覧が入っています。
これを使えばと起動中であるか判断できると思います。
（その画面が終了した場合、正しくアンロードする必要があります。）
UserFormsの使用例：
　'現在表示しているフォームのフォーム名とキャプションを表示
　Dim w As Object
　For Each w In UserForms
　　　Debug.Print w.Name & ":" & w.caption
　Next w

(2)について
入力チェックをロストフォーカス時に行うのは個人的に好きではないのですが・・・
（大抵痛い目にあうので。）
どうしてもというのであれば、APIでメッセージをフックしてイベントを作成すればできるはずです。
ロストフォーカスのイベントを作った事はありませんので、
詳しい事はいえませんが、
マウスのホイールが動いたらというイベントは作れました。

(3)について
一部VBとVBAで勝手が違う為、よく分かりませんが分かる範囲で。
・[?]を表示するにはフォームのWhatsThisButtonプロパティをTrue。
・各コントロールの設定はHelpContextIDプロパティに対象のIDを設定。
・ヘルプファイルの設定はHelpFileプロパティに設定。
HelpFileプロパティですが、VBの場合はAppオブジェクト内にあったのですが、
VBA（EXCEL）の場合Appオブジェクトはなく、検索したところ、
CommandBarButtonオブジェクトがHelpFileプロパティを
持っていました。
CommandBarButtonオブジェクトがどのようなものかは知らないので、
どのように使用・設定すれば良いか不明です。