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

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

　　此功能的使用方法如下：

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