Range("D5").Select ActiveCell.FormulaR1C1 = "" Range("D5:H10").Select With Selection.Interior .Pattern = xlSolid .PatternColorIndex = xlAutomatic .Color = 255 .TintAndShade = 0 .PatternTintAndShade = 0 End With End Sub 7、修改宏代码为 Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Address = "$D$5" Then Range("D5").Select ActiveCell.FormulaR1C1 = "" Range("D5:H10").Select With Selection.Interior .Pattern = xlSolid .PatternColorIndex = xlAutomatic .Color = 255 .TintAndShade = 0 .PatternTintAndShade = 0 End With End If End Sub 8、把上段代码在VBA中考入你的Sheet栏中 9、把第七部中的代码指定到按钮控件中即可。“要是可以用按钮实现也可以” 不知道够不够详细。