用“控件工具箱”中的“命令按钮”控件,在工作表中绘制一个命令按钮,将“Caption”属性改为“一键插入斜线表头”,双击该按钮,在“Click”事件中编写代码,其中关键代码如下。
关键代码:
'获取行标题和列标题
Dim icol, irow As String
icol=InputBox("请输入斜线单元格的行标题", 行标题)
irow=InputBox("请输入斜线单元格的列标题", 列标题)
Selection.Value = icol " " irow
'判断字符串是否符合规定
If Len(icol) = 0 or Len(irow) = 0 Then
MsgBox ("输入的标题为空!")
Exit Sub
End If
如何让Excel里面人名显示更完美的排列技术
开学后,在按年级整理各班以电子形式上报的Excel学生花名册时,我发现其存在一些问题,班主任报来的学生姓名用字中有空格,而且空格的位置不确定,空格的数量也不确定,这使姓名这列数据很不整齐、不协调。
'判断选区是否只有一个单元格
If Selection.Count <> 1 Then
MsgBox ("请选择一个单元格再执行此操作!")
Exit Sub
End If
'设置左上至右下的斜线
With Selection.Borders(xlDiagonalDown)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
代码编写好以后,需要插入斜线表头的时候,先选中需要插入斜线表头的单元格(如果选中的单元格超过一个,系统会给出错误提示),单击“一键插入斜线表头”按钮,系统会提示输入表头的行、列标题,分别输入表头的行标题(例如星期)和列标题(例如班级)即可。非常方便。

如何让Word和Excel表格实现选择录入
使用Word和Excel制作明细表时需要重复录入部门、职称或学历等内容。此时,不论是逐一录入还是复制粘贴,都是一项即耗时又费力的工作。如何利用软件的自身功能从繁重的工作中摆脱出来呢?本篇文章将给你满意的答案。