工作

VBA~工作表的段落交集數字~依條件標示指定底色。 - 工作

Ivy avatarIvy · 2013-02-08

Table of Contents

參考附件:http://www.funp.net/133789標示目標區︰三期單欄!&三期雙欄!邏輯條件&流程︰條件1&流程1︰當標示目標區之Z3︰AFn各段落的最末二列的號碼有交集時，則將其交集號碼標示40號底色；當標示目標區之Z3︰AFn各段落的最末二列的號碼無交集或數字組合不足二列時，則略過。條件2&流程2︰當符合條件1各段落的其它列也有顯示與任1個交集號碼相同的號碼時，則再將其儲存格標示40號底色。條件3&流程3︰將=Z$2︰AF$2的有標示40號底色數字的儲存�
工作

All Comments

Aaliyah avatarAaliyah2013-02-12
工作中,但今沒空,初一繼續若有大大先解,就謝謝了單欄countif範為在Ino+Tno-1,26)和-2區域雙欄尚未看2013-02-1010:18:11補充：http://www.funp.net/40375~兩種方法1.邊篩邊填色2.做完再填色Tryver.12013-02-1123:08:22補充：'*********SetxR=NothingApplication.ScreenUpdating=TrueDimii%,RLRno%,ZAFStr1$,ZAFStr2$Forii=2To3WithWorksheets(ii)DoIfxRIsNothingThenSetxR=.[Z3]RLRno=IIf(xR.Row=3,xR.CurrentRegion.Rows.Count,xR.CurrentRegion.Rows.Count+xR.Row-1)IfRLRno<>xR.RowThenForij=1To7IfApplication.CountIf(xR(RLRno-xR.Row).Resize(1,7),.Cells(RLRno,25+ij))&a
Hazel avatarHazel2013-02-09
冰大:將下列的列132~列153程式碼「每個工作表範圍」，改為每個工作表的「指定段落」，請問要如何改?謝謝您^^http://www.funp.net/825714'******ZAF:[Z:AF]檢查DimZAF$,ZAFno%,ZAF1$ZAF="":ZAF1=""ZAFno=.[Z65536].End(xlUp).RowIfZAFno>3ThenForZAFno1=1To72013-02-0912:02:27補充：IfInStr(ZAF,","&c&",")>0Thenc.Interior.ColorIndex=40IfInStr(ZAF1,","&c&",")>0Thenc.Interior.ColorIndex=38EndIfNextEndIf2013-02-0912:39:00補充：冰大:謝謝回應沒關係!明天以後再說^^新春如意!201