Private Sub TextBox1_Enter() Label1.Caption = "1つ目のテキストボックスを選択中" End Sub Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean) Label1.Caption = "" End Sub Private Sub TextBox2_Enter() Label1.Caption = "2つ目のテキストボックスを選択中" End Sub Private Sub TextBox2_Exit(ByVal Cancel As MSForms.ReturnBoolean) Label1.Caption = "" End Sub Private Sub TextBox3_Enter() Label1.Caption = "3つ目のテキストボックスを選択中" End Sub Private Sub TextBox3_Exit(ByVal Cancel As MSForms.ReturnBoolean) Label1.Caption = "" End Sub
3つのテキストボックスがあり、それを選択すると ラベルの説明文が切り替わっていく処理です
Private Sub TextBox1_Enter() Enterは、このコントロールにフォーカスが来たとき つまり選択されたときに発生するイベントです