Ｐａｇｅ 661 ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ 通常モードに戻る ┃ ＩＮＤＥＸ ┃ ≪前へ │ 次へ≫ ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ ▼数字の認識について conan 03/2/3(月) 11:26 ┗Re:数字の認識について ichinose 03/2/3(月) 12:34 ┗Re:数字の認識について conan 03/2/3(月) 13:29 ─────────────────────────────────────── ■題名 ： 数字の認識について ■名前 ： conan ■日付 ： 03/2/3(月) 11:26 -------------------------------------------------------------------------
| いつもお世話になっています。 ユーザフォーム上にコンボボックスとテキストボックスを 各１個ずつ作成しています。 コンボボックスを押したときに もしテキストボックスの値が小数点(xxx.x)の場合は 処理を行わない（exit sub)とする場合はどのようにコードを 書けばいいんでしょか？ |
| ▼conan さん： こんにちは。 >いつもお世話になっています。 > >ユーザフォーム上にコンボボックスとテキストボックスを >各１個ずつ作成しています。 >コンボボックスを押したときに どのイベントを使うのかはっきりしませんが、 >もしテキストボックスの値が小数点(xxx.x)の場合は >処理を行わない（exit sub)とする場合はどのようにコードを >書けばいいんでしょか？ とりあえず、チェンジイベントの例で・・・ '================================================= Private Sub ComboBox1_Click() With TextBox1 If Val(.Text) - Int(Val(.Text)) > 0 Then MsgBox "抜けるよ" Exit Sub Else MsgBox "ok" End If End With End Sub |
| ▼ichinose さん： お返事ありがとうございました。 教えていただいた方法でうまくいきました。 |