|
ユーザフォーム上にテキストボックス3つとコマンドボタン
を配置し、コマンドボタンをおすとテキストボックスに入力
した値をセルに記入するマクロを作っています。
その中で、どのテキストボックスにフォーカスがあるか
カーソルでは見にくいので、フォーカスのあたっている
テキストボックスに色付けをしようと考えています。
で、下記のとおり記述をしましたが、このやり方だと
テキストボックスが増えるたびにコードを追加しないといけく
なるのですが、簡単な記述はあるでしょうか。
ご教示おねがいします。
Private Sub CommandButton1_Click()
ActiveSheet.Cells(1, 1) = TextBox1.Value
ActiveSheet.Cells(1, 2) = TextBox2.Value
ActiveSheet.Cells(1, 3) = TextBox3.Value
Unload Me
End Sub
Private Sub TextBox1_Enter()
TextBox1.BackColor = &H80FFFF
End Sub
Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
TextBox2.BackColor = &HFFFFFF
End Sub
Private Sub TextBox2_Enter()
TextBox2.BackColor = &H80FFFF
End Sub
Private Sub TextBox2_Exit(ByVal Cancel As MSForms.ReturnBoolean)
TextBox2.BackColor = &HFFFFFF
End Sub
Private Sub TextBox3_Enter()
TextBox3.BackColor = &H80FFFF
End Sub
Private Sub TextBox3_Exit(ByVal Cancel As MSForms.ReturnBoolean)
TextBox3.BackColor = &HFFFFFF
End Sub
|
|