怎样利用VBA代码编写一键插入Excel斜线表头
发布时间:2023-04-24 02:27:20
有的时候,我们要在Excel中添加斜线表头,可Excel并没有提供制作斜线表头的功能,每次都要手工画一条斜线,非常麻烦。有的时候,我们要在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
代码编写好以后,需要插入斜线表头的时候,先选中需要插入斜线表头的单元格(如果选中的单元格超过一个,系统会给出错误提示),单击“一键插入斜线表头”按钮,系统会提示输入表头的行、列标题,分别输入表头的行标题(例如星期)和列标题(例如班级)即可。非常方便。
猜你喜欢
- win10系统在使用中,出现的蓝屏问题多种多样,让用户防不胜防。比如开机启动蓝屏代码0xc0000428,下面小编给大家分享下解决蓝屏代码0
- 这篇教程是向脚本之家的朋友分享excel vba编程在窗体上画一个八边形方法,教程很不错,很基础,适合新手来学习,来学习吧本节目的:利用ex
- word是我们常用的办公软件,有时为了突出一些字,需要给文字添加一些底纹,那么word2010中如何给文字增加底纹?下面小编带来word添加
- 用WORD编辑了篇文档,竟然打不开了,说是损坏了,提示word文本恢复转换器。 “文本恢复转换器”的使用首先打开w
- 在Word文档中进行邮件合并操作时,用户既可以从Outlook联系人中选择Word2010/2091.html'>收件人,也可
- 在文档中我们经常会去统计一些文字和词语的数量,Word字数统计功能可以快速帮助我们快速而又准确的统计全文的字数数量,但却无法去统计某个词语的
- 一般有些特殊符号,不好打,很多只要掌握技巧了,就可以轻而易举的打出来了。下面给大家分享一下四个点的符号怎么打灬。四个点灬∷四个点 灬 输入方
- 原来Word有两种不同的文档保存方式——“快速保存”和“完全保存”,它们之间存在着很大的差别,正是由于这些差别,才导致了上述的情况的发展,那
- 给PDF文件添加页码,可以方便我们区分纸质档的PDF文件页面的先后顺序,方便我们对它的阅读与管理。今天小编为大家带来的是PDF文件添加页码的
- 最近有Win10用户反映,局域网连接是正常的,但是自己就是看不到局域网里的电脑,并且服务中也没有Computer Browser,这让用户非
- word 软件里有个很少有人知道的小功能,虽然不重要,但有时却真的很实用,那就是自动朗读文本,可以把文字转化成语音。下面小编就教你怎么使用w
- Word2013批注/批注框怎么设置样式?word中给文章添加了批注,想要设置批注和批注框的样式,该怎么设置呢?下面我们就来看看详细的教程,
- 对整个Word文档进行分节1.插入分节符先将光标定位在想要分到另一节的第一个段落的第一行的开头,单击“插入一分隔符”,打开“分隔符”对话框。
- word2010怎样设置页码页数?自从2014年XP系统停止服务以来,不少用户已经更换了win7或win8系统,相应的office办公软软也
- Word文档其实藏有很多的小技巧,但是我们大多数人经常都没去使用到,导致我们的工作效率不是特别高效。今天给大家分享一个比较独特的技巧,来保护
- 微软方面给出推送2004版本系统的更新的消息,微软win10 2004系统将要为广大用户们推出了2004版本系统的更新,版本为Build 1
- 在使用IE浏览器浏览网页时,为了保存无法复制的网页内容,可以在IE浏览器窗口中依次单击“文件”→“使用MicroSoft Office Wo
- 怎么用Microsoft Toolkit工具激活Office 2013?Office 2013办公软件到期需要激活,但是现在网上流行的神KE
- Excel表格中的数据怎么制作成温度计图表?温度计大家都认识,可以明确地显示数据,想要制作一个温度计样式的图表,该怎么制作呢?下面我们就来看
- Win10专业版鼠标光标不见了怎么办?检查鼠标后发现鼠标正常连接着,鼠标也没有损坏,就是桌面上不显示鼠标光标,遇到这种情况该怎么办呢?一起来