Excel中对单元格操作有一些固定的窗口来进行设置，有些设置可能不是那么容易找到，这里做一个小小改动，直接将格式设置引入鼠标右键弹出一个表单进行操作。
功能
右键弹出一个表单，设置选择单元格格式
弹出表单
任意位置单击右键可弹出一个设置表单，对所选择的单元格进行设置。
如下图
背景颜色设置
字体设置
设置定义表单
为什么要做这些呢？
通过是对vba一些学习认识，会理解一些关于excel应用对话框的编码规则。
其中所有功能对话框都可以拿来自定义操作。
比如下图就是本例中应用到的一些窗体句柄类型。
这些窗体，excel已经做了模块化设计，所以，我们只要知道如何调用然后就可以做相应的编程，以达到想要的效果。
简单来说，其实不算什么很复杂的事情。
唯一的难度在于如何找到或记住相应窗体的调用字符，这就不得不对英文有所掌握，大多是很有规律的一些英文说明，知道其编码规律，即便没有记住，也能找到相应的字符。
例如打开字体设置窗口，用下面代码：
Application.Dialogs(xlDialogActiveCellFont).Show
其中xlDialogActiveCellFont就是字体设置字符。
很好理解。
其余窗口可对表查询。
鼠标右键事件
其中实现鼠标右键功能是一个需要掌握的基本知识。
如果对此不能理解，那么上面所有的编程都不能实现右键弹出窗体的效果。
用到了工作表Worksheet_BeforeRightClick事件，意思就是当鼠标单击右键前执行的操作。
其中，Cancel设置为True。
这样就可以屏蔽掉Excel预设置的右键菜单。
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
Cancel = True'屏蔽默认菜单
Set RangeX = Target
tops = Target.Top'当前单元格顶部高度
lefts = Target.left'当前单元格左侧边距
UserForm1.Show'调用显示表单
End Sub
欢迎加关注、收藏各转发
