| 投稿日 | ： 2004/11/09(Tue) 05:37 |
| 投稿者 | ： jikoryuu |
| Ｅメール | ： |
| ＵＲＬ | ： |
| タイトル | ： Re: ＩＦ条件の簡略化 |
エラートラップを使った方法です。
Dim i As Double
On Error GoTo Err_1
i = Text1.Text
If CByte(i - 1.5) < 9 Then
Beep
End If
Err_1:
でも、1 <= i AND i <= 10 とすると見やすいですし、
このケースではAND以上の簡潔な方法は無いのではないでしょうか？