在点击事件中编写代码

有时候我们需要在Excel中添加对角线表头，但是Excel并没有提供制作对角线表头的功能，所以每次手工画一条对角线是非常麻烦的。有解决办法吗？其实我们可以用VBA代码写一个函数，一键插入Excel对角线表头。

使用“控件工具箱”中的“命令按钮”控件在工作表中绘制命令按钮，将“标题”属性更改为“一键插入斜杠头”，双击按钮，并在Click事件中编写代码。密钥代码如下。

密钥代码：

获取行和列标题。

作为字符串

Icol=InputBox('请输入对角线单元格的行标题'，行标题)

Irow=InputBox('请输入对角线单元格的列标题'，列标题)

选择。Value=icol ' ' irow

判断字符串是否符合要求。

如果Len(icol)=0或Len(irow)=0，则

MsgBox('输入的标题为空！')

出口接头

如果…就会结束

确定所选内容中是否只有一个单元格。

如果选择。数到1，然后

MsgBox('请选择一个单元格来执行此操作！')

出口接头

如果…就会结束

设置从左上角到右下角的对角线。

选择。边框(xlDiagonalDown)。LineStyle=xlContinuous。重量=xlThin。ColorIndex=xlAutomatic

以…结尾

代码写好后，当需要插入对角线表头时，首先选择需要插入对角线表头的单元格(如果选择了多个单元格，系统会给出错误提示)，然后点击“一键插入对角线表头”按钮，系统会提示您输入表头的行标题和列标题，然后分别输入表头的行标题(如周)和列标题(如类)。非常方便。