1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17
|
Private Sub CommandButton1_Click()
For i = 3 To 100
Range("EH" & i).Formula = "=IF(OR(EH2=EA " & i & ",EH2=EB " & i & ",EH2=EC " & i & "),10,0)"
Range("EI" & i).Formula = "=IF(OR(EI2=EA " & i & ",EI2=EB " & i & ",EI2=EC " & i & "),10,0)"
Range("EJ" & i).Formula = "=IF(OR(EJ2=EA " & i & ",EJ2=EB " & i & ",EJ2=EC " & i & "),10,0)"
Range("EK" & i).Formula = "=IF(OR(EK2=ED " & i & ",EK2=EE " & i & ",EK2=EF " & i & "),10,0)"
Range("EL" & i).Formula = "=IF(OR(EL2=ED " & i & ",EL2=EE " & i & ",EL2=EF " & i & "),10,0)"
Range("EM" & i).Formula = "=IF(OR(EM2=ED " & i & ",EM2=EE " & i & ",EM2=EF " & i & "),10,0)"
Next i
End Sub |
Partager