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

首頁 > 辦公 > Excel > 正文

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

2024-08-23 19:28:17
字體:
來源:轉載
供稿:網友

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

  此功能的使用方法如下:

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

發表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發表
主站蜘蛛池模板: 宣恩县| 彭州市| 明溪县| 墨玉县| 承德市| 锡林浩特市| 博爱县| 安国市| 称多县| 大邑县| 威宁| 奉化市| 许昌县| 洛宁县| 鹤庆县| 饶阳县| 昌吉市| 攀枝花市| 迭部县| 大悟县| 镇江市| 济源市| 酒泉市| 信阳市| 定日县| 平陆县| 宁明县| 阿图什市| 师宗县| 庄河市| 上蔡县| 修文县| 山阳县| 益阳市| 瓦房店市| 普兰店市| 兴国县| 枣强县| 远安县| 璧山县| 平山县|