利用外行内列的原理找出与列数相同的数字标示出来即可
比如
Dim r,c,tVar(9,16)
tVar(0,0)=1
tVar(0,1)=5
tVar(0,2)=6
For r=0 To 9
For c=0 To 16
if tVar(r,c)=c Then
'这里这个数字背景显示红色
Else
'这里数字背景没有
End IF
Next
Next
2011-05-24 16:55
2011-05-25 09:53
2011-05-25 14:35
2011-05-25 15:10

2011-05-25 16:33

2011-05-25 17:51

2011-05-25 21:32
2011-05-26 09:57

2011-05-26 16:10