vba初学者

Question

我是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列的数据。   谢谢大家！！

Answer 1

点击第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 

Answer 2

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