在VBA代码中写一个键插入一个excel斜杠头

在VBA代码中写一个键插入一个excel斜杠头
有时,我们需要向Excel中添加斜线标题,但Excel不提供斜线头的功能。事实上,我们可以用VBA代码写一个插入到excel斜杠头中的函数。

使用控件工具箱的命令按钮;;;;控制在工作表上画一个命令按钮,caption属性钥匙插入斜线表头,双击按钮中的;Click事件的代码,关键代码如下。

关键代码:

获取行标题和列标题

昏暗的内部冷却器泵,IROW As String

内部冷却器泵= InputBox(请输入斜线细胞行标题

iRow = InputBox(请输入斜线细胞列标题

选择。值=内部冷却器泵++ IROW

判断线是否符合规则

如果Len(内部冷却器泵)= 0或Len(iRow)= 0

MsgBox(输入的标题是空的!)

退出子

最后如果

确定选择是否只是一个单元格。

如果选择,则计数< 1然后

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

退出子

最后如果

从左向右设置斜线

选择边框(xldianaldown)。

xlcontinuous线型=。

xlthin重量=。

颜色= xlautomatic

结束

好的代码,需要插入斜线表头,选择插入斜线表头单元格(如果单元格不止一个,系统会给出一个错误),单击插入斜线表头按钮;按钮,系统会提示输入标题行和列标题,分别输入标题行标题(如周)和列标题(如类)可以很方便的 u3002。

tag:斜杠代码电脑软件vbaexcel

相关内容