系统会提示您输入标题的行标题和列标题

使用“控件工具箱”中的“命令按钮”控件，在工作表中绘制一个命令按钮，将“标题”属性更改为“直接制作对角线标题”，双击该按钮，并在Click事件中编写代码。密钥代码如下。

密钥代码：

获取行和列标题。

作为字符串

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

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

选择。Value=icol ' ' irow

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

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

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

出口接头

如果…就会结束

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

如果选择。数到1，然后

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

出口接头

如果…就会结束

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

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

以…结尾

该功能可以如下使用：

代码写好后，当需要插入对角线表头时，首先选择需要插入对角线表头的单元格(如果选择了多个单元格，系统会给出错误提示)，点击“直接制作对角线表头”按钮，系统会提示输入表头的行标题和列标题，然后分别输入表头的行标题(如年级)和列标题(如班级)。