vba初学者

[kdsmallli]

我是vba初学者，写了一段很小的代码，当时运行很正常，可是关闭excel再重新打开后代码的功能就不执行了，这是怎么回事？代码如下：
Dim TempRag As Range
Set TempRag = Application.Selection
If (TempRag.Column <> 1) Then
Cells(TempRag.Row, 1).Select
End If

实现功能：点击第n行第m列单元格，显示为第n行第1列的数据。

谢谢大家！！

[波导终结者]

你关闭释放对象了吗？
报错了吗？

[slowgrace]

特意进来来看皮皮鲁是不是在灌水。

[波导终结者]

鲁西西我快一星了，先准备好吧

[jsyxlhj]

点击第n行第m列单元格，显示为第n行第1列的数据。
你的功能是选中第N行第1列数据呀
若要显示，用MSGbox
Dim TempRag As Range
Set TempRag = Application.Selection
If (TempRag.Column <> 1) Then
msgbox Cells(TempRag.Row, 1).value
End If

[kdsmallli]

没有报错。关闭释放对象是什么意思呢？

[dingyanwei]

[Quote=引用楼主 kdsmallli 的回复:]
当时运行很正常，可是关闭excel再重新打开后<-----[/Quote]

关闭了对象就没有了，再打开后和之前打开的句柄也不一样怎样操作啊

[nnnnnetant]

Set TempRag = Application.Selection 可以改为Set TempRag =Activecell