求教问题1:
(表1)上行A3:J3任意某数对应其下行A4:J4正下方的数若是奇数则在上行自动填充蓝色.
若对应下行正下方位置是偶数则不填充颜色,以此类推.
注:上行任意某数(是指偶数或奇数)对应下行正下方位置的奇数.
求教问题2:
(表2)升序排列不包含重复数.把(表1)填充蓝色的数,在(表2)相应
的数上同样自动填充蓝色.
注:(表1)数据是无序且有重复,重复数中只要有一个是蓝色的,则(表2)就要填上蓝色.
恳请高手能否赐教?万分感激!
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
For i = 1 To 100
If Cells(4, i).Value Mod 2 = 1 Then
Worksheets(1).Cells(3, i).Interior.ColorIndex = 33 '(3,i) 3代表第三行,i代表列,设置的100列,如果有需要可自行增减
Else
Worksheets(1).Cells(3, i).Interior.ColorIndex = xlNone
End If
Next
Sheets(2).Cells.Interior.ColorIndex = xlNone
For Each cel In Range("a3").CurrentRegion '(a3)为选择a3行
If cel.Interior.ColorIndex = 33 Then '33为蓝色,想要其他颜色可自行改变
For Each Rng In Sheets(2).Range("a1:m100") 'a1:m100为选择区间,可自行更改
If cel = Rng Then Rng.Interior.ColorIndex = 33
Next
End If
Next
End Sub
将此代码放在表1中,效果图如下,有不明白的联系我21888841