- ©«¤l
- 678
- ¥DÃD
- 147
- ºëµØ
- 0
- ¿n¤À
- 799
- ÂI¦W
- 0
- §@·~¨t²Î
- win 8
- ³nÅ骩¥»
- MS 2003
- ¾\ŪÅv
- 50
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2016-2-9
- ³Ì«áµn¿ý
- 2022-1-20
|
¥»©«³Ì«á¥Ñ ziv976688 ©ó 2019-12-6 14:10 ½s¿è
»¡©úªºµ§»~×¥¿ :
¿ï¨úBB17:BX80×¥¿¬°¿ï¨úBB17:BK80
®æ¦¡©¹¥k½Æ»s¨ìBXÄæ×¥¿¬°®æ¦¡©¹¥k½Æ»s¨ìBKÄæ
ÁÂÁÂ !
===========================================
Sheet1¿ý»sªºµ{¦¡½X¦p¤U :
Sub Macro1()
'
' Macro1 Macro
' MC SYSTEM ¦b 2019/12/6 ¿ý»sªº¥¨¶°
'
'
Range("BB17:BK80").Select
Selection.FormatConditions.Delete
Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
"=(MIN(IF((MOD(ROW($16:$79),7)=2),BB$16:BB$79))=BB16)*(MOD(ROW(BB16),7)=2)*(BB16<5)"
Selection.FormatConditions(1).Font.ColorIndex = 3
Selection.FormatConditions(1).Interior.ColorIndex = 40
Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
"=(MIN(IF((MOD(ROW($16:$79),7)=2),BB$16:BB$79))=BB16)*(MOD(ROW(BB16),7)=2)"
Selection.FormatConditions(2).Font.ColorIndex = 10
Selection.FormatConditions(2).Interior.ColorIndex = 40
Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
"=(MOD(ROW(BB16),7)=2)*(BB16<10)"
Selection.FormatConditions(3).Font.ColorIndex = 10
End Sub |
|