質問: activesheet("xxx.xls").range("a1") if <<>> then 処理1 end if と、したいのですが、 <<<・・・・・>>> の記述内容がわかりません。 ご教授お願い致します。
回答: そのままで出来るわけがないと思いますね。 dim mydate as variant set mydate = activesheet.range("a1") if mydate.numberformatlocal like "hh:mm:ss*" then ' 処理1 else msgbox mydate.numberformatlocal & vbcrlf & "違います。", 48 end if