高亮显示及复制

ddz79101

老师！希望在表格中鼠标点击单元格则该行高亮显示，并复制左侧单元格数字。谢谢

ddz79101

若同时不行，就只要复制左侧单元格一项功能吧

杨建营

1. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   
2.     If Target.Row >= 3 And Target.Column = 15 Then
   
3.         If Target.Count = 1 Then
   
4.             Target = Target.Offset(, -1).Value
   
5.             Target.Interior.ColorIndex = 3
   
6.         End If
   
7.     Else
   
8.         Columns("o").Interior.ColorIndex = 0
   
9.     End If
   
10. End Sub
    

复制代码

需要把代码放在需要更改数据的工作表，请楼主参考。

杨建营

代码需要审核，上个图片快一点。

杨建营

代码需要放在复制数据的工作表

gwjkkkkk

请参考。。。

ddz79101

杨建营 发表于 2024-1-27 18:13
需要把代码放在需要更改数据的工作表，请楼主参考。

谢谢老师！成功运行

ddz79101

gwjkkkkk 发表于 2024-1-27 18:27
请参考。。。

谢谢老师！运行成功