[已解决]单元格选取问题

cb_clx

我想随着选择不同的单元格，此时所对应此单元格的行和列都会被选上，我编了以下代码 ，但是没有达到效果，不知错在哪里还请老师帮忙修改、
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim rg As Range, rg1 As Range, rg2 As Range
Set rg = Target.EntireRow
Set rg1 = Target.EntireColumn
Set rg2 = Union(rg, rg1)
rg2.Select
End Sub

最佳答案

月排行榜 / 总排行榜

hylees

2012-3-24 17:29

1. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   
2.     Dim rg As Range, rg1 As Range, rg2 As Range
   
3.     Set rg = Target.EntireRow
   
4.     Set rg1 = Target.EntireColumn
   
5.     Set rg2 = Union(rg, rg1)
   
6.     Application.EnableEvents = False
   
7.     rg2.Select
   
8.     Application.EnableEvents = True
   
9. End Sub

复制代码

这样就可以了！

跳转到最佳答案楼层

hylees

1. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   
2.     Dim rg As Range, rg1 As Range, rg2 As Range
   
3.     Set rg = Target.EntireRow
   
4.     Set rg1 = Target.EntireColumn
   
5.     Set rg2 = Union(rg, rg1)
   
6.     Application.EnableEvents = False
   
7.     rg2.Select
   
8.     Application.EnableEvents = True
   
9. End Sub

复制代码

这样就可以了！