> Sub xx()Dim c As RangeFor Each c In [e3:j16]Select Case Len(c)Case 10: x = 3Case 9: x = 6Case 8: x = 10Case 7: x = 5Case Else: x = xlNoneEnd Selectc.Interior.ColorIndex = xNextEnd Sub
301
301
301
301
301
300
300
300
300
299
2023-12-31 10:50
admin