当ブログに掲載しているサンプルは、すべて利用者の自己責任という形でお願いします。
ただし、明らかな不具合がある場合、ご連絡いただければ、訂正記事を出します。
また、こちらのサンプルは、別のサイト等への公開、転載は一切禁止しています。
どうしてもと言う場合は、筆者にあらかじめご連絡ください。
記事そのもののリンクについてはご自由に行っていただいてよいです。

テクてく Lotus 技術者 Slack に参加しよう!

2009年1月19日月曜日

数値の判断

8.5のインストールはつつがなく終わってしまい、あまり面白いこともなかったので・・・
とりあえず、普通にネタを披露します。
と言うほどのものでもないんですが・・・

今回は、数値の判断です。
入力した値やフィールドの値が数値かどうかを判断するものです。
小数点(.)やカンマ(,)、マイナス(-)なども判断してくれるので、結構便利に使えるのではないでしょうか?
サンプルは、プロンプトから入力した値が数値なのかそうでないのかを返すというものです。



Sub Click(Source As Button)
'数値型の変数の定義
Dim res As Variant

'入力形式のダイアログボックスの表示
res = Inputbox( "何か入力してください。", "数値の判断" , "" )

If Isnumeric( res ) Then
'数値が入力されれば、次のメッセージが表示される
Messagebox "数字を入力しましたね。", 0, "数値の判断"
Else
Messagebox "数値以外を入力しましたね。", 0, "数値の判断"
End If
End Sub



Lotus Notes/Domino カスタマイズとセキュリティ強化 - 株式会社エフ

0 件のコメント: