VBA 区间内“横向”判断, 查找及标示

Learner2022

On_fire 发表于 2023-1-4 10:02
老师好,
再比如载图中,
选中673再执行代码(标红)之后,

事件宏要用到byval什么的，我不会

Learner2022

On_fire 发表于 2023-1-4 10:02
老师好,
再比如载图中,
选中673再执行代码(标红)之后,

1. Private Sub Worksheet_selectionchange(ByVal Target As Range)
   
2. Dim Co%, Ro%, arr, i%, l%
   
3. Ro = Target.Row
   
4. arr = Range(Cells(Ro - 1, 3), Cells(Ro + 1, 46))
   
5. For i = 1 To UBound(arr)
   
6.     For l = 1 To 44
   
7.         If Right(arr(i, l), 1) = 3 Then
   
8.             Cells(Ro + i - 2, l + 2).Font.Color = -16776961
   
9.         End If
   
10.     Next
    
11. Next
    
12. End Sub
    
13. 
    

复制代码

Learner2022

简单学习了一个byval和byref，测试了一下没问题，记得要把它写在你需要操作的工作表里，不要写在模块里面

On_fire

Learner2022 发表于 2023-1-5 00:07
简单学习了一个byval和byref，测试了一下没问题，记得要把它写在你需要操作的工作表里，不要写在模块里面

感谢您...