用VBA代码编写一键插入Excel斜线表头
发布时间：2023-02-20 01:42:28
有的时候，我们要在Excel中添加斜线表头，可Excel并没有提供制作斜线表头的功能，每次都要手工画一条斜线，非常麻烦。有没有解决方法呢?其实，我们可以利用VBA代码可以编写一个功能，一键插入Excel斜线表头。
用“控件工具箱”中的“命令按钮”控件，在工作表中绘制一个命令按钮，将“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
'判断选区是否只有一个单元格
If Selection.Count <> 1 Then
MsgBox ("请选择一个单元格再执行此操作!")
Exit Sub
End If
'设置左上至右下的斜线
With Selection.Borders(xlDiagonalDown)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
代码编写好以后，需要插入斜线表头的时候，先选中需要插入斜线表头的单元格(如果选中的单元格超过一个，系统会给出错误提示)，单击“一键插入斜线表头”按钮，系统会提示输入表头的行、列标题，分别输入表头的行标题(例如星期)和列标题(例如班级)即可。非常方便。
0
投稿猜你喜欢
经常遇见这种情况，网页上有很多对自己有用的图片素材，用保存网页的办法保存下载后，在相关文件夹中找到图片素材，确实以无规则的数字命名的图片。如- 一般来说，论文都是要求打印在16开纸(184mm×260mm)或者A4纸(210mm×297mm)上。直观一点来说，一般的作业本纸或者学校印
- word页面怎么平分成好多块？有一份word文档，但是想把这份文档平均分成几个部分，该怎么办呢？下面我们就来看看word把页面分成N份的教程
- 制表位是指水平标尺上的位置，它指定了文字缩进的距离或一栏文字开始的位置，使用户能够向左、向右或居中对齐文本行；或者将文本与小数字符或竖线字符
- 移动和复制时编辑工作中最常用的编辑操作。对于重复出现的文本，不必一次次地重复输入。对于放置不当的文本，可以快速移动到满意的位置。常用的方法是
- 相信大部分在我们的Word2013的软件中接触过页面的信息，在一个文档中插入页眉，可以很好的凸显出文档的主题，接下来小编举例简单的例子告诉大
- 使用Word制作了文档，然后在使用打印机打印的时候，发下打印出的字体与屏幕上显示的不同。导致这种问题的原因有很多，归纳起来，主要有以下几点。
- 有很多用户都喜欢使用Word这个办公软件来进行一些文档的编辑，而有的时候我们会用到Word的插入文本框，这时候会发现透明的文本框更方便观看，
- Office 2013已经出来有段时间了，而且，微软也为大家展示了一个叫做"阅读模式"(Read Mode)的功能。在周
- 如图，使用WPS打开需要处理的Word文档如图，切换到插入菜单栏如图，选中需要处理的文字部分如图，选择“文本框”里的“竖向文本框”如图，设置
- pdf文件便贴怎么插入？pdf文件在阅读的时候，想要在重要的位置加入一个便贴，该怎么添加呢？下面我们就来看看pdf添加便贴的教程，需要的朋友
- 有时侯段落的开头要缩进才显得有条理，这里需用到段落的首行缩进功能鼠标选中要编辑的段落文字，单击鼠标右键，在弹出的快捷菜单中，选择段落。在弹出
- 在默认状态下，Word文档中的页面纸张方向是纵向的，但是我们在编辑文档的过程中，可能会需要为不同的页面设置不同的纸张方向，下面我们一起来看一
- word 2013有很多新的功能，为我们办公族们提供了越来越多的方便，西西今天给大家分享个有趣的动态日期和时间的展示方法，换句话说就是在wo
- 比如刚刚输入了一份培训通知书，文件取名为note.doc。现在我们新建一个Word文档，作为检索该文件的索引文件，该索引文件为一个四列表格，
- 在Word2007文档中，用户可以启用“保持格式跟踪”功能，使Word2007跟踪用户对文字所做的格式设置，从而帮助用户在其他位置应用相同的
- 第一步：打开word文档，点击“开始”菜单，找到“字体”组中带圆圈的“字”第二步：点击此图标，弹出“带圈字符”对话框第三步：在“样式”中选择
- 如果我们在使用微软操作系统时想重新安装我们的计算机，我们需要下载我们需要的操作系统。然后对于西红柿花园的纯win10系统，很多朋友不知道从哪
- 问题：“我点页眉和页脚来添加脚注，从正文第一页添加脚注，后面的几页跟着全部变成一样的脚注，我要每一页的脚注内容都不一样，请问要怎么设?还有我
- 长期使用Word2003排版的朋友，都避免不了在Word中给字体添加格式和样式，或者有时我们需要在网上查找一些资料，然后复制到Word里面后
