vba判断取值与随机抽奖

akb48

两问题
问题一、判断取值
每一列连续出现大于5且小于7的红色背景时，将当前列的绿色背景单元格值，放入其下面第三行。   
连续出现大于5且小于7的白色背景时，将当前列的绿色背景单元格值，放入其下面第二行。   
（绿色单元格所在行t105:ac105不在统计范围内）

效果图如下，
在 走势图 工作表中 需要统计的范围在t99:ac104.
由于红色背景是由条件格式所设置，现在代码存在问题，用FormatConditions(1).Interior.Color则读成全红，用Interior.color则全白。。。求解


问题2,在sheet1中做一个抽奖。需要的效果，点一下控件出一个弹窗，然后所有奖项快速滚动出现，3s后出结果。再出个窗显示抽奖结果，如中二等奖，则显示 恭喜您中二等奖，奖品为“”。在sheet2保留每次抽奖结果并保存。