エクセル2003 ユーザーフォームにてフォーカスの有無の判断

質問

いつも勉強させていただいております。
今回、エクセルのユーザーフォームを用いて、入力画面を作成
しております。
で、日付を入力するテキストボックスが2箇所有り、
その入力をMSフォームカレンダーから入力させようと
考えております。
この日付を入力するテキストボックスは、それぞれ異なる
日を入力させたいのですが、カレンダーをクリック
したときに、フォーカスの在る方に入力する形を考えています。
でご質問なのですが、
「フォーカスの在るほうに」
と言う分岐コードの書き方がわかりません。
宜しくお願いいたします。

Private Sub Calendar1_Click()
'if textbox3にフォーカスが在るならば<<書き方がわかりません
TextBox3.Value = Calendar1.Value
end if
'if textbox4にフォーカスが在るならば<<書き方がわかりません
TextBox4.Value = Calendar1.Value
end　if
End Sub

こう言う書き方は出来ないものでしょうか？

回答No.2

Wendy02 · ベストアンサー

こんばんは。

>カレンダーをクリックしたときに、フォーカスの在る方に入力する形を考えています。

前にフォーカスしていたものを対象と選択するという書き方自体は、どうしても、Calendar のValue のクリックの時のロスが出るような気がしますので、対策をしておかないといけません。本来は、逆（TextBoxのフォーカスからCalendarのValue のインポート）のような気がしてくるのですが。（^^;　それはおいといて、

UserForm_Intialize で、片方のTextBox をTabIndex を1にしておくか、予め、BeforeControl の変数に、どちらかのTextBox の名前をデフォルトにして入れておくことをお勧めします。そうしないと、空打ちが出てしまいます。

Private BeforeControl As String
Private Sub Calendar1_Click()
　Me.Controls(BeforeControl).Value = Me.Calendar1.Value
End Sub

Private Sub TextBox3_Exit(ByVal Cancel As MSForms.ReturnBoolean)
　BeforeControl = ActiveControl.Name
End Sub
Private Sub TextBox4_Exit(ByVal Cancel As MSForms.ReturnBoolean)
　BeforeControl = ActiveControl.Name
End Sub

お礼

いつもご回答ありがとう御座います。
おかげさまで、望む動きができました。
No1さんのご回答を参考に、いろいろ考えて、exitイベントで
何とかできないかと考えていたのですが、前のオブジェクトを
どうやって渡したらよいか行き詰っておりました。こういう形で
変数に残しておく方法がとても参考になりました。
beforcontrolにはintialize時にtextbox4を与えておきます。
ありがとうございます。

回答No.1

zap35

通常はActiveControlプロパティを使います
　ActiveControl.Name
でフォーカスがあるコントロールの名前を取得できます。
ただこの質問の場合　ActiveControl.Name　は　Calendar1　になる可能性がありそうです。

Private Sub UserForm_Initialize()
　Me.Calendar1.TakeFocusOnClick = False
End Sub

を記述しておく必要があるかもしれません。

補足

ご回答ありがとうございます。
ActiveControl.Nameでフォーカスのコントロールの
名前を取得できるのですね。ありがとうございます。
ただ、ご回答頂いたとおり、
ActiveControl.Name
だけですと、calendar1になってしまいました。
そこで、
Private Sub UserForm_Initialize()
　Me.Calendar1.TakeFocusOnClick = False
End Sub
を記述したのですが、
実行時エラー438　このオブジェクトは、このプロパティーまたは
メソッドをサポートしてません
と出ました。
フォーカスをキャンセルさせるのにカレンダーオブジェクトでは
無理なようなのですが。
ご回答頂いた内容を参考に他にやり方が無いか、もう少し考えて
見ます。
ありがとうございます。