Public Sub Test()
Cells(Range("A1"), Range("B1")).Select 'new
Call Yellow 'new
End Sub
Sub Yellow()
'
' Yellow 巨集
'
'
Call White 'new
ActiveCell.Select
With Selection.Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 65535
.TintAndShade = 0
.PatternTintAndShade = 0
End With
End Sub
Sub White()
'
' White 巨集
'
'
With Cells.Interior
.Pattern = xlNone
.TintAndShade = 0
.PatternTintAndShade = 0
End With
End Sub
Sub 微调按钮4_Change()
Call Test
End Sub
第一题：Range应用
侦错
按左边的微调按
钮，出现右图的
错误，请修正之。
• 注意：两个微调按钮均需修正
修改颜色
储存格改为红色
按钮的“变黄”
改为“变红”
文件连结
http://pan.baidu.com/s/1bn2bDRx
