如何实现单击一行中的任意一个单元格，即可选中整行？并定位于当前单元格？

wwhhddee

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Target.EntireRow.Select
End Sub

它只能实现“单击一行中的任意一个单元格，即可选中整行？”

它的问题是它定位在A列单元格？
能否让其定位在当前单元格，好修改当前单元格？不用高亮的方法，谢谢

willin2000

1. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   
2. Dim ads$
   
3. ads = ActiveCell.Address
   
4. Target.EntireRow.Select
   
5. Range(ads).Activate
   
6. End Sub

复制代码

1. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   
2. Dim ads As Range
   
3. Set ads = ActiveCell
   
4. Target.EntireRow.Select
   
5. ads.Activate
   
6. End Sub

复制代码

[ 本帖最后由 willin2000 于 2011-4-2 13:37 编辑 ]

wwhhddee

恩，可以了，谢谢斑竹

hzsy

这也行，太牛了

wwhhddee

那比如我要实现复制某一列的功能呢？这个代码似乎也不行，斑竹能实现吗？

willin2000

原帖由 wwhhddee 于 2011-4-2 13:51 发表
那比如我要实现复制某一列的功能呢？这个代码似乎也不行，斑竹能实现吗？

复制哪里到哪里?

wwhhddee

就是选中一个单元格往下复制

wwhhddee

就是既能选中当前行，又能正常编辑单元格，而不是整个行都被编辑，比如只能删除某个单元格，而不至于全部被删除？谢谢

willin2000

1. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   
2. Dim ads As Range
   
3. Set ads = ActiveCell
   
4. Target.EntireRow.Select
   
5. Rows(ads.Row).Copy Rows(ads.Row + 1)
   
6. ads.Activate
   
7. End Sub
   

复制代码

wwhhddee

不是这个意思，能否实现单个单元格所能实现的功能？比如能下来单元格内容复制，谢谢