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

　　有的時候，我們要在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

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

電腦教程