欢迎登陆真网站,您的到来是我们的荣幸。 登陆 注册 忘记密码? ☆设为首页 △加入收藏
欢迎加入真幸福QQ群
电脑知识: 基础知识 网络技术 操作系统 办公软件 电脑维修 电脑安全 windows7 windows8 windows10 服务器教程 平板电脑 视频播放教程 网络应用 互联网 工具软件 浏览器教程 QQ技巧 输入法教程 影视制作 YY教程 wps教程 word教程 Excel教程 PowerPoint
云南西双版纳特产小花糯玉米真空包装


EXCEL copy RangeCell的例子
让EXCEL文件只能在某台计算机上打开的VBA代码
Excel使用函数帮助
excel target对象
Excel中vba Unload介绍
Excel如何保证小数点计算无误
Excel中IPmt函数用法
Excel中IsEmpty函数用法
Excel中IsDate函数的用法
Excel详细介绍SUMPRODUCT
VBA动态设置Excel斜线表头的方法
【 来源:网络 】【 点击:1 】 【 发布时间:2017_03_03 08:59:59 】

  如果您需要直接绘制斜线表头的方法,那就得使用VBA的方法,以下内容与此相关,请继续阅读。

  用“控件工具箱”中的“命令按钮”控件,在工作表中绘制一个命令按钮,将“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

  此功能的使用方法如下:

  代码编写好以后,需要插入斜线表头的时候,先选中需要插入斜线表头的单元格(如果选中的单元格超过一个,系统会给出错误提示),单击“直接制作斜线表头”按钮,系统会提示输入表头的行、列标题,分别输入表头的行标题(例如成绩)和列标题(例如班级)即可。

本网站由川南居提供技术支持,fkzxf版权所有 浙ICP备12031891号
淳安分站 淳安分站