| |
▼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を実行して、その結果を検討してみてください。
|
|
![[未読]](./data/excel/image/read_icon.gif){kind=icon}
