¥Î³]©w®æ¦¡¤Æ±ø¥óÀ˵ø¸ê®Æ°ÝÃD
- ©«¤l
- 5923
- ¥DÃD
- 13
- ºëµØ
- 1
- ¿n¤À
- 5986
- ÂI¦W
- 0
- §@·~¨t²Î
- win10
- ³nÅ骩¥»
- Office 2010
- ¾\ŪÅv
- 150
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¥xÆW°ò¶©
- µù¥U®É¶¡
- 2010-5-1
- ³Ì«áµn¿ý
- 2022-1-23
        
|
¦^´_ 1# mmggmm
¦h½d³òªºÀx¦s®æ®æ¦¡¤Æ±ø¥ó ªº¤½¦¡ ¶·¥H§@¥Î¤¤ªºÀx¦s®æ¬°¥D
³o¬O§AÀÉ®×A5ªº¤½¦¡¥¿½T =COUNTIF($Q$6:$Q$65536,$A5)<1
F5ªº¤½¦¡¿ù»~ =COUNTIF(R$6:U$42,$E5)<1
- Sub EX()
- [A5:N65536].FormatConditions.Delete
- With [A5:A65536,C5:C65536,E5:E65536,G5:G65536,I5:I65536,K5:K65536,M5:M65536] '¦h½d³òªºÀx¦s®æ
- .Select '®æ¦¡¤Æ±ø¥ó¶·°é¿ï½d³ò
- .Cells(1).Activate '°é¿ï½d³ò¤¤¤§ A5¬°§@¥Î¤¤ªºÀx¦s®æ
- .FormatConditions.Delete '§R°£ì½d³ò¤¤®æ¦¡¤Æ±ø¥ó
- .FormatConditions.Add Type:=xlExpression, Formula1:= _
- "=COUNTIF($Q$6:$Q$77," & .Cells(1).Address(0, 0) & ")<1"
- '¥H¤Wªº¤½¦¡ =COUNTIF($Q$6:$Q$65536,A5)<1
- '¦p.Cells(2).Activate '°é¿ï½d³ò¤¤Åܦ¨ A6¬O§@¥Î¤¤ªºÀx¦s®æ
- '¥H¤Wªº¤½¦¡ =COUNTIF($Q$6:$Q$65536,A6)<1
- '§@¥Î¤¤ªºÀx¦s®æ¬°¥D §_«h¤½¦¡´N¿ù±¼
- .FormatConditions(1).Font.ColorIndex = 3
- .Cells(1).Select
- End With
- End Sub
½Æ»s¥N½X |
|
|
|
|
|
|