VBA选中单元格所在行中的相应数据区域

765499994

请教各位大佬们，小弟有个小问题，我把两个代码放在VBA里，然后报错，要怎么把两个连起来啊。请见附件

719404338

两个代码合并一下。没有明白你的意思。

765499994

719404338 发表于 2019-3-24 10:45
两个代码合并一下。没有明白你的意思。

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Cells.Interior.ColorIndex = xlNone     '清除工作表中所有单元格的底纹颜色
    '当选中的单元格个数大于1时，重新给Target赋值
    If Target.Count > 1 Then Set Target = Target.Cells(1)
   
    Target.EntireRow.Interior.ColorIndex = 6     '为活动单元格所在行填充颜色
End Sub



Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.Intersect(Rows(Target.Row), Target.CurrentRegion).Select
Target.Activate
End Sub
就是这两组代码，单个使用可以用，但是怎么合并在一起使用，我是小白不懂，请教大神

maditate

楼主的要求可以归纳为：当光标选择了某单元格，代码需要判断单元格格的位置，然后根据单元格的位置代码作出不同的操作。如：当光标在第一列某单元格时，此单元格字体放大为1号，当光标在第二列时，光标所在单元格底色为红。


应该是一段代码，多加几个条件判断句。

765499994

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Cells.Interior.ColorIndex = xlNone     '清除工作表中所有单元格的底纹颜色
    '当选中的单元格个数大于1时，重新给Target赋值
    If Target.Count > 1 Then Set Target = Target.Cells(1)
   
    Target.EntireRow.Interior.ColorIndex = 6     '为活动单元格所在行填充颜色
End Sub



Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Application.Intersect(Rows(Target.Row), Target.CurrentRegion).Select
Target.Activate
End Sub
就是这两组代码，单个使用可以用，但是怎么合并在一起使用，我是小白不懂，请教大神

765499994

maditate 发表于 2019-3-24 10:54
楼主的要求可以归纳为：当光标选择了某单元格，代码需要判断单元格格的位置，然后根据单元格的位置代码作出 ...

请问怎么加判断句？

maditate

765499994 发表于 2019-3-24 10:59
请问怎么加判断句？

我没看懂你的具体要求。我只能给你提出建议。你可以重新发贴，把你的要求写明白，我相信一定会有人出手帮助你的，。