有的時(shí)候，我們要在Excel中添加斜線表頭，可Excel并沒有提供制作斜線表頭的功能，每次都要手工畫一條斜線，非常麻煩。有沒有解決方法呢?其實(shí)，我們可以利用VBA代碼可以編寫一個(gè)功能，一鍵插入Excel斜線表頭。
用“控件工具箱”中的“命令按鈕”控件，在工作表中繪制一個(gè)命令按鈕，將“Caption”屬性改為“一鍵插入斜線表頭”，雙擊該按鈕，在“Click”事件中編寫代碼，其中關(guān)鍵代碼如下。
關(guān)鍵代碼：
'獲取行標(biāo)題和列標(biāo)題
Dim icol， irow As String
icol=InputBox("請輸入斜線單元格的行標(biāo)題"， 行標(biāo)題)
irow=InputBox("請輸入斜線單元格的列標(biāo)題"， 列標(biāo)題)
Selection.Value = icol + " " + irow
'判斷字符串是否符合規(guī)定
If Len(icol) = 0 or Len(irow) = 0 Then
MsgBox ("輸入的標(biāo)題為空!")
Exit Sub
End If
'判斷選區(qū)是否只有一個(gè)單元格
If Selection.Count <> 1 Then
MsgBox ("請選擇一個(gè)單元格再執(zhí)行此操作!")
Exit Sub
End If
'設(shè)置左上至右下的斜線
With Selection.Borders(xlDiagonalDown)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
代碼編寫好以后，需要插入斜線表頭的時(shí)候，先選中需要插入斜線表頭的單元格(如果選中的單元格超過一個(gè)，系統(tǒng)會(huì)給出錯(cuò)誤提示)，單擊“一鍵插入斜線表頭”按鈕，系統(tǒng)會(huì)提示輸入表頭的行、列標(biāo)題，分別輸入表頭的行標(biāo)題(例如星期)和列標(biāo)題(例如班級)即可。非常方便。
