Question

excel VBA编程中选中单元格区域右键弹出浮动工具栏

浮动工具栏中有“检查”、“取消检查”，若点击“检查”，则刚才选中的单元格区域改变颜色（比如变成黄色），之后，若再点击“取消检查”，则刚才变为黄色的区域黄色消失，变为最初的颜色。请大神么解答，新手求教。

Answer 1

控制右键菜单太费事，提供一个冻结窗口的解决方案，你看行不！

追问

也不一定要由击，出来一个下拉菜单之类的也可以，我无法下载您的文件，还请把代码贴出来吧。多谢！

追答

把表的第一行冻结，让它始终显示在最上面。

再添加两个按钮进去，如下图：

然后双击按钮，进入代码编辑窗口。

把对应的代码加进去。

变色：

Private Sub CommandButton1_Click()
    With Selection.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .Color = 65535
    End With
End Sub

取消底色

Private Sub CommandButton2_Click()
    With Selection.Interior
        .Pattern = xlNone
    End With
End Sub

然后把设计模式取消，就可以了~