Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

29560 / 76738

←次へ　｜　前へ→


	【52458】Re:条件判定

ichinose - 07/11/14(水) 21:01 -


	引用なし

	パスワード

▼Jakaさん、gigi さん、こんばんは。

>ヘルプでapplicationのobjectを見てみたところ、アプリケーション全体を現すとかかれており、
>なんとなく、「数値かどうか」を判定するだけに使うには、壮大な感じがします。
Excelを開けば存在しているオブジェクトですから、↑こういう受け取り方はしなくてもよいと思いますよ！！
Excel全体を表すオブジェクトから、数値か否かを判定するメソッドを利用する。
もし、自作すればそこそこのステップ数を有する判定プログラムををたった一行でやってくれる道具なのですから・・・。

Application.IsNumberは、ワークシート関数のIsnumber関数をＶＢＡコード内で使用する場合の書式です。

また、ＶＢＡの関数にもIsNumericという数値判定の関数があります。

今、セルＡ１が数値か否かを

１　Application.IsNumber(Range("a1").Value)
２　Application.IsNumber(Range("a1"))
３　IsNumeric(Range("a1").Value)
４　IsNumeric(Range("a1"))

上記の4つの例で試して見ます。

新規ブックの標準モジュールに
'====================================================================
Sub test()
　　With Range("a1")
　　　 .EntireColumn.ColumnWidth = 15
　　　 .NumberFormatLocal = "G/標準"
　　　 .Value = 100
　　　 MsgBox "a1=100 が入力されています"
　　　 MsgBox "１　Application.IsNumber(Range(""a1"").Value) =" & _
　　　　　　Application.IsNumber(Range("a1").Value) & vbCrLf & _
　　　　　 "２　Application.IsNumber(Range(""a1"")) = " & _
　　　　　　Application.IsNumber(Range("a1")) & vbCrLf & _
　　　　　 "３　IsNumeric(Range(""a1"").value) = " & _
　　　　　 IsNumeric(Range("a1").Value) & vbCrLf & _
　　　　　 "４　IsNumeric(Range(""a1"")) = " & _
　　　　　 IsNumeric(Range("a1")) & vbCrLf & _
　　　　　 "とセルＡ１が100の場合はご覧のように全てTrueを返しますが・・・"
　　　 .Clear
　　　 MsgBox "Ａ１を未入力状態に戻しました"
　　　 MsgBox "１　Application.IsNumber(Range(""a1"").Value) =" & _
　　　　　　Application.IsNumber(Range("a1").Value) & vbCrLf & _
　　　　　 "２　Application.IsNumber(Range(""a1"")) = " & _
　　　　　　Application.IsNumber(Range("a1")) & vbCrLf & _
　　　　　 "３　IsNumeric(Range(""a1"").value) = " & _
　　　　　 IsNumeric(Range("a1").Value) & vbCrLf & _
　　　　　 "４　IsNumeric(Range(""a1"")) = " & _
　　　　　 IsNumeric(Range("a1")) & vbCrLf & _
　　　　　 "とセルＡ１が未入力状態の場合は、１と２は、Falseを返します。" & vbCrLf & _
　　　　　 "つまり、１　と　２は、未入力と数値を区別しています"
　　　 .Value = Date
　　　 MsgBox "a1=" & Date & " が入力されています"
　　　 MsgBox "１　Application.IsNumber(Range(""a1"").Value) =" & _
　　　　　　Application.IsNumber(Range("a1").Value) & vbCrLf & _
　　　　　 "２　Application.IsNumber(Range(""a1"")) = " & _
　　　　　　Application.IsNumber(Range("a1")) & vbCrLf & _
　　　　　 "３　IsNumeric(Range(""a1"").value) = " & _
　　　　　 IsNumeric(Range("a1").Value) & vbCrLf & _
　　　　　 "４　IsNumeric(Range(""a1"")) = " & _
　　　　　 IsNumeric(Range("a1")) & vbCrLf & _
　　　　　 "とセルＡ１が日付の場合は、２以外は、Falseを返します。" & vbCrLf & _
　　　　　 "つまり、２以外は、日付と数値を区別しています"
　　　 MsgBox "上記の結果からは、" & vbCrLf & _
　　　　　　　"１の　Application.IsNumber(Range(""a1"").Value)が" & vbCrLf & _
　　　　　　　"数値判定をより徹底しているということが言えます"
　　　 End With
End Sub

上記のtestを実行して、その結果を検討してみてください。

0 hits

▼

【52445】条件判定 gigi 07/11/14(水) 16:32