1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35
| Function CompareCells(Number As Range, CellRange1 As Range, CellRange2 As Range, CellRange3 As Range, CellRange4 As Range) As String
Dim c As Range
Dim PREVIOUS As String
Dim flag As Boolean
Dim flag2 As Boolean
Dim flag3 As Boolean
For Each c In CellRange1
If Not flag Then flag = Number.Value = c.Value
Next
CompareCells = IIf(flag, "type1", "")
Set c = Nothing
For Each c In CellRange2
If Not flag2 Then flag2 = Number.Value = c.Value
Next
PREVIOUS = CompareCells
CompareCells = IIf(flag2, "type2", PREVIOUS)
Set c = Nothing
For Each c In CellRange3
If Not flag3 Then flag3 = Number.Value = c.Value
Next
PREVIOUS = CompareCells
CompareCells = IIf(flag3, "type3", PREVIOUS)
Set c = Nothing
For Each c In CellRange4
If Not flag4 Then flag4 = Number.Value = c.Value
Next
PREVIOUS = CompareCells
CompareCells = IIf(flag4, "type4", PREVIOUS)
Set c = Nothing
End Function |
Partager