新手求助，点击单元格用某种颜色填充整行

loong0721

大家好，为方便背诵单词，希望能实现点击任一单元格，就能自动用某种颜色填充该行。如果点击的单元格是合并单元格，则能够将合并单元格所涉及的几行自动用某种颜色填充。希望达到的效果如下：


我在网上找到一组代码，可以实现单行填充，但是无法填充合并单元格所涉及的数行。将该方法也写出来，希望能够抛砖引玉：
  Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Rows().Interior.ColorIndex = 0
    x = ActiveCell.Row
    Rows(x).Interior.ColorIndex = 35
    End Sub
单词.rar (7.25 KB, 下载次数: 7)

2018-6-8 08:54 上传

点击文件名下载附件

Chip_Kenny

1. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   
2. Rows().Interior.ColorIndex = 0
   
3. If Cells(Selection.Cells(1, 1).Row, 1).MergeCells Then
   
4.     Range(Cells(Selection.Cells(1, 1).Row, 1).MergeArea.Address).EntireRow.Interior.ColorIndex = 35
   
5. Else
   
6.     ActiveCell.EntireRow.Interior.ColorIndex = 35
   
7. End If
   
8. End Sub

复制代码

loong0721

Chip_Kenny 发表于 2018-6-8 10:14

谢谢，你的这个方法解决了我的问题

loong0721

我结合自己的需要，将他提供的代码做了一点点改变，将修改后的代码和效果发出来，方便有类似需要的朋友。最后再次感谢Chip_Kenny的热心帮助！
修改后的代码如下：
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Rows().Interior.ColorIndex = 0
If Selection.MergeCells Then
    Range(Cells(Selection.Cells(1, 1).Row, 1).MergeArea.Address).EntireRow.Interior.ColorIndex = 35
Else
    x = ActiveCell.Row
    Rows(x).Interior.ColorIndex = 35
End If
End Sub
实际效果为：

chenjx80

loong0721 发表于 2018-6-8 12:41
我结合自己的需要，将他提供的代码做了一点点改变，将修改后的代码和效果发出来，方便有类似需要的朋友。最 ...

何必如此麻烦，两行代码足矣！

1. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   
2.     Rows.Interior.ColorIndex = 0
   
3.     Target.EntireRow.Interior.ColorIndex = 35
   
4. End Sub

复制代码

loong0721

chenjx80 发表于 2018-6-8 14:38
何必如此麻烦，两行代码足矣！

这个确实能实现想要的效果，而且代码更简洁精炼，谢谢了

Chip_Kenny

5th 代碼

1. Target.EntireRow.Interior.ColorIndex = 35

复制代码

點選在非合併單元格, 如c1,d2, 是不能同時將兩行 highlight

loong0721

请问各位，能实现点击合并单元格时，能将合并单元格所涉及的行均填充颜色。点击合并单元格涉及的某一单元格时，能将排头的合并单元格和点击的该单元格的行都填充颜色。如下图所示：