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

wwhhddee · 发表于 2011-4-2 13:08

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

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

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

willin2000 · 发表于 2011-4-2 13:22

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim ads$
ads = ActiveCell.Address
Target.EntireRow.Select
Range(ads).Activate
End Sub

复制代码

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim ads As Range
Set ads = ActiveCell
Target.EntireRow.Select
ads.Activate
End Sub

复制代码

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

wwhhddee · 发表于 2011-4-2 13:30

恩，可以了，谢谢斑竹

hzsy · 发表于 2011-4-2 13:30

这也行，太牛了

wwhhddee · 发表于 2011-4-2 13:51

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

willin2000 · 发表于 2011-4-2 13:53

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

复制哪里到哪里?

wwhhddee · 发表于 2011-4-2 14:03

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

wwhhddee · 发表于 2011-4-2 14:05

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

willin2000 · 发表于 2011-4-2 14:13

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

复制代码

wwhhddee · 发表于 2011-4-2 14:22

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

		自动登录	找回密码
密码			免费注册