選中一個灰色的單元格，同時按alt和f11進入宏介面，點選單的插入，模組，貼上如下程式碼：

subaaa()

msgboxselection.interior.colorindex

endsub

直接按f5執行此宏，得到一數字，這是灰色的vba程式碼，記住它。再貼上如下程式碼：

subtest()

dimxrng,cellasrange

dimxsum,xcountassingle

setxrng=cells.find(date)

ifxrngisnothingthen

msgbox"notfindtoday"

else

setxrng=xrng.offset(2,0).resize(19,8)

foreachcellinxrng

ifcell.interior.colorindex=16then

xsum=xsum+cell

xcount=xcount+1

endif

next

endif

msgboxxsum&chr(10)&xcount

endsub

把粗體的16改為剛才那個數字，按f5執行此宏，ok。