IsNumeric代码求助

笨笨鹿

请问各位，下面这段代码：

PrivateSub Worksheet_SelectionChange(ByVal Target As Range)

Cells(1,2) = IsNumeric(Range("A1"))

Cells(2,2) = IsNumeric(Range(Cells(2, 1)))

EndSub

为什么：

“Cells(1,2) = IsNumeric(Range("A1"))”是对的

而

“Cells(2,2) = IsNumeric(Range(Cells(2, 1)))”运行的时候出错？该如何改正？谢谢！

liulang0808

“Cells(2,2) = IsNumeric(Range(Cells(2, 1).address))
“Cells(2,2) = IsNumeric(Range(Cells(2, 1)))”关键看cells(2,1)这个单元格是什么内容，如果是类似地址样式的

笨笨鹿

liulang0808 发表于 2018-6-22 10:09
“Cells(2,2) = IsNumeric(Range(Cells(2, 1).address))
“Cells(2,2) = IsNumeric(Range(Cells(2, 1)))” ...

好的，非常感谢啊。

jiangxiaoyun

这样用Range，真是钉子精神啊。

笨笨鹿

jiangxiaoyun 发表于 2018-6-22 10:21
这样用Range，真是钉子精神啊。

我对VBA那真的是门外汉，哪里会代码啊，都是网上查的，你有什么更好的，可以不吝赐教，谢谢啦。

liulang0808

笨笨鹿 发表于 2018-6-22 10:21
好的，非常感谢啊。

论坛知识树，有基础内容可以慢慢啊学习的
http://club.excelhome.net/thread-1075224-1-1.html
这个是单元格应用的简要说明的

笨笨鹿

liulang0808 发表于 2018-6-22 11:03
论坛知识树，有基础内容可以慢慢啊学习的
http://club.excelhome.net/thread-1075224-1-1.html
这个是 ...

好的，非常感谢，我有一点点基础，不过真的很菜很菜。