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