|
ユーザーフォームのコントロールに初期値を与えるには、
UserForm_Initializeイベント
を使います。
また、日付けの整形には
Format関数
を使います。
Private Sub UserForm_Initialize()
Me.TextBox5.Value = Format(Date, "yyyy/m/d")
End Sub
テキストボックスに入力したら起動するイベントにはいろいろあります。
Exitイベント
は入力完了後に起動する(とおもう/自信なし)ので便利です。
Changeイベントでは、一桁入力するごとにイベントが走ります。
他にもテキストボックスのイベントはいろいろありますので調べてみてください。
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If IsNumeric(Me.TextBox2.Value) = False Or Me.TextBox1.Value = "" Then Exit Sub
If IsNumeric(Me.TextBox1.Value) = False Then Exit Sub
Me.TextBox3.Value = Me.TextBox1.Value * Me.TextBox2.Value
End Sub
Private Sub TextBox2_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If IsNumeric(Me.TextBox1.Value) = False Or Me.TextBox1.Value = "" Then Exit Sub
If IsNumeric(Me.TextBox2.Value) = False Then Exit Sub
Me.TextBox3.Value = Me.TextBox1.Value * Me.TextBox2.Value
End Sub
|
|