国产探花免费观看_亚洲丰满少妇自慰呻吟_97日韩有码在线_资源在线日韩欧美_一区二区精品毛片,辰东完美世界有声小说,欢乐颂第一季,yy玄幻小说排行榜完本

首頁 > 辦公 > Excel > 正文

VBA動態設置Excel斜線表頭的方法

2019-10-25 20:23:01
字體:
來源:轉載
供稿:網友

  如果您需要直接繪制斜線表頭的方法,那就得使用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

  此功能的使用方法如下:

  代碼編寫好以后,需要插入斜線表頭的時候,先選中需要插入斜線表頭的單元格(如果選中的單元格超過一個,系統會給出錯誤提示),單擊“直接制作斜線表頭”按鈕,系統會提示輸入表頭的行、列標題,分別輸入表頭的行標題(例如成績)和列標題(例如班級)即可。


發表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發表
主站蜘蛛池模板: 兴宁市| 东莞市| 盐城市| 绥江县| 邛崃市| 阿拉善盟| 遂平县| 黄大仙区| 平陆县| 广汉市| 富顺县| 三门县| 鄂伦春自治旗| 重庆市| 兴仁县| 井研县| 中阳县| 博湖县| 宜都市| 文化| 信阳市| 正蓝旗| 沅陵县| 左云县| 孝昌县| 拉萨市| 海兴县| 利辛县| 万盛区| 若尔盖县| 广平县| 隆尧县| 察雅县| 和平县| 嵊州市| 江源县| 沙坪坝区| 清河县| 鄂州市| 乐山市| 伊通|