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

首頁 > 辦公 > Excel > 正文

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

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

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

  此功能的使用方法如下:

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


發表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發表
主站蜘蛛池模板: 延吉市| 吴旗县| 侯马市| 汝州市| 全州县| 镇沅| 宝丰县| 合作市| 鹤庆县| 天门市| 乌恰县| 丰台区| 中西区| 临洮县| 安新县| 阿合奇县| 铁岭市| 广平县| 武功县| 广水市| 台安县| 万年县| 武川县| 南溪县| 额济纳旗| 噶尔县| 桦川县| 怀化市| 民乐县| 南投市| 麻栗坡县| 辉南县| 黔西县| 茂名市| 连城县| 红河县| 南乐县| 广南县| 德令哈市| 巴东县| 南漳县|