|
もう見ていないかな?
以下の様でも、善いかも
Option Explicit
Private Sub MonthView1_DateClick(ByVal DateClicked As Date)
With MonthView1
If .Tag = "" Then
Exit Sub
End If
Me.Controls(.Tag).Text = .Value
End With
End Sub
Private Sub MonthView1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
MonthView1.Tag = ""
End Sub
Private Sub TextBox1_Enter()
MonthView1.Tag = TextBox1.Name
End Sub
Private Sub TextBox2_Enter()
MonthView1.Tag = TextBox2.Name
End Sub
Private Sub TextBox3_Enter()
MonthView1.Tag = TextBox3.Name
End Sub
Private Sub TextBox4_Enter()
MonthView1.Tag = TextBox4.Name
End Sub
PS:
「MonthView」に就いては、下記の様な制限が有りますが?
ht tp://www.h3.dion.ne.jp/~sakatsu/Excel_Tips06.htm
|
|