有时，我们需要向Excel中添加斜线标题，但Excel不提供斜线头的功能。事实上，我们可以用VBA代码写一个插入到excel斜杠头中的函数。

使用控件工具箱的命令按钮；；；；控制在工作表上画一个命令按钮，caption属性钥匙插入斜线表头，双击按钮中的；Click事件的代码，关键代码如下。

关键代码：

获取行标题和列标题

昏暗的内部冷却器泵，IROW As String

内部冷却器泵= InputBox（请输入斜线细胞行标题

iRow = InputBox（请输入斜线细胞列标题

选择。值=内部冷却器泵++ IROW

判断线是否符合规则

如果Len（内部冷却器泵）= 0或Len（iRow）= 0

MsgBox（输入的标题是空的！）

退出子

最后如果

确定选择是否只是一个单元格。

如果选择，则计数< 1然后

MsgBox（请选择一个单元格执行此操作！）

退出子

最后如果

从左向右设置斜线

选择边框（xldianaldown）。

xlcontinuous线型=。

xlthin重量=。

颜色= xlautomatic

结束

好的代码，需要插入斜线表头，选择插入斜线表头单元格（如果单元格不止一个，系统会给出一个错误），单击插入斜线表头按钮；按钮，系统会提示输入标题行和列标题，分别输入标题行标题（如周）和列标题（如类）可以很方便的 u3002。