在VBA代码中写一个键插入一个excel斜杠头
使用控件工具箱的命令按钮;;;;控制在工作表上画一个命令按钮,caption属性钥匙插入斜线表头,双击按钮中的;Click事件的代码,关键代码如下。
关键代码:
获取行标题和列标题
昏暗的内部冷却器泵,IROW As String
内部冷却器泵= InputBox(请输入斜线细胞行标题
iRow = InputBox(请输入斜线细胞列标题
选择。值=内部冷却器泵++ IROW
判断线是否符合规则
如果Len(内部冷却器泵)= 0或Len(iRow)= 0
MsgBox(输入的标题是空的!)
退出子
最后如果
确定选择是否只是一个单元格。
如果选择,则计数< 1然后
MsgBox(请选择一个单元格执行此操作!)
退出子
最后如果
从左向右设置斜线
选择边框(xldianaldown)。
xlcontinuous线型=。
xlthin重量=。
颜色= xlautomatic
结束
好的代码,需要插入斜线表头,选择插入斜线表头单元格(如果单元格不止一个,系统会给出一个错误),单击插入斜线表头按钮;按钮,系统会提示输入标题行和列标题,分别输入标题行标题(如周)和列标题(如类)可以很方便的 u3002。