用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
投稿猜你喜欢
WPS Word怎么翻译英文？使用wps编辑word文档怎么快速翻译英文？有很多时候我们用wps打开word文档会遇到一些英文，不认识的话可- 然后在Excel工作表第一列编号，按人数下拉复制。Excel 2010会按1、2、3、4的按顺序排列， ，先手工输入1、3、5， Excel
- 有用户发现他的QQ浏览器中的翻译功能突然用不了了。本来直接在网页右上角点击翻译按钮就可以翻译但钱网页中的内容，但是现在却突然用不了了。那么应
- 戴尔、惠普、华硕、宏碁都是比较有名的电脑品牌，使用这些品牌电脑的用户有很多，大家想知道这里面有哪些电脑型号可以升级Win11，那么今天系统部
- 咱们在 一样平常办公 傍边， 常常 需求 操纵WPS演示文稿来 建造 林林总总的PPT，最必备的一个 步调 便是给PPT 增加图片，用来 帮
- Win10系统自带了应用商店，用户可以在其中很方便地下载自己想要的应用。但有用户在商店中点击任何应用都无法打开应用下载界面，显示错误代码0x
- 怎么修改主页并锁定该网站或搜索引擎？如果只需要修改主页，我们在IE浏览器中可以很方便的设置，再加上锁定主页或者锁定搜索引擎的话，则需要第三方
- 电脑怎么设置applocker？applocker是做什么用的？applocker是用来管理应用程序的，可以限制运行和安装，那么下面就给大家
- 文本框 (文本框:一种可移动、可调大小的文字或图形容器。使用文本框，可以在一页上放置数个文字块，或使文字按与文档中其他文字不同的方向排列。)
- Win10专业版系统IE浏览器有时候遭到病毒的严重破坏时，会出现无法连接到网络等各种问题，因为IE浏览器无法卸载重装，那么Win
- 近日，iOS 版微信进行了更新，并添加了不少新的功能，包括为深色模式增加独立开关，以及“拍一拍”好友等。不仅如此，当 iPhone 用户将微
- 作为几乎在任何平台上广泛使用的PDF文件，包括Windows®，Unix，Mac OS X和移动平台，越来越多的人使用PDF格式存储他们的电
- 你们家的打印纸是什么规格的？我相信大多都是A4纸吧？这个【A4】就是纸张的规格了，表示这些纸经过切割而形成的不同尺寸，通常都是以【开】为单位
- win10电脑黑屏只有鼠标箭头怎么修复？在win10系统中，bug问题是最多的，有的用户就在电脑开机的时候遇到系统黑屏只有鼠标的情况，产生这
- edge浏览器使用过程中会产生很多的缓存文件，如果缓存越来越多，就会让我们的浏览器打开速度变慢，那么edge浏览器怎么清理缓存？很简单，我们
- 我们在使用win10操作系统的时候，有些情况下可能因为一些系统的问题或者是人为操作的问题引起了系统死机卡住的情况。对于win10旗舰版死机这
- 熟悉咱们Windows系统的朋友都知道，在之前的Windows系统中，例如咱们的winXP系统和win7旗舰版系统下载中，都有这个微软拼音输
- win10系统自带了Edge浏览器，用着很方便，但最近有用户反映在使用win10 Edge浏览器浏览器闪退的问题，这种情况怎么办呢？今天小编
- Word 想必是诸多文字工作者的首选生产力工具，随着 Office 2016 的发布微软也再次为其 Office 办公套件的功能添砖加瓦。但
- 近日，有网友问小编ppt如何制作画中画?今天脚本之家小编就给大家带来PPT制作画中画图片详细教程，方法不难，想要学习如何制作画中画的小伙伴可
