用VBA程式碼編寫一鍵插入Excel斜線表頭

clown_發表於2016-09-29

  有的時候,我們要在excel中新增斜線表頭,可Excel並沒有提供製作斜線表頭的功能,每次都要手工畫一條斜線,非常麻煩。有沒有解決方法呢?其實,我們可以利用VBA程式碼可以編寫一個功能,一鍵插入Excel斜線表頭。

  用“控制元件工具箱”中的“命令按鈕”控制元件,在工作表中繪製一個命令按鈕,將“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

  程式碼編寫好以後,需要插入斜線表頭的時候,先選中需要插入斜線表頭的單元格(如果選中的單元格超過一個,系統會給出錯誤提示),單擊“一鍵插入斜線表頭”按鈕,系統會提示輸入表頭的行、列標題,分別輸入表頭的行標題(例如星期)和列標題(例如班級)即可。非常方便。

用VBA程式碼編寫一鍵插入Excel斜線表頭 三聯

電腦教程

相關文章