Isnumericがfalseしか返してくれない

下記のコードを実行したのですが、数字を入れたセルでfalseと出てしまいました。

option VBASupport 1
Sub Main
dim a as range
set a = activecell
msgbox isnumeric(a)
End Sub

ykkさん
aがrangeオブジェクトですので
isnumeric(a.value)じゃないでしょうか

2 Likes

サブル0さん
isnumeric(a.value)でTrueを返してくれました。
ありがとうございます。
ちなみにExcelだとisnumeric(a)でTrueを返してくれたのですが、MicrosoftのExcelとlibreofficeのcalcでは同じプログラムでも異なる動作をしてしまうものなのでしょうか。

ちょっとかじった程度ですので詳しくないのですが
Excel VBAはいい加減な表記でも動いちゃったりするのでザルなんだと思います。

ファイルAからマクロでファイルBを開いてシートをファイルAへコピーして
ファイルBを閉じるというあたりで思うようにいかず挫折しましたorz

1 Like