有的時(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("請(qǐng)輸入斜線單元格的行標(biāo)題"， 行標(biāo)題)

　　irow=InputBox("請(qǐng)輸入斜線單元格的列標(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 ("請(qǐng)選擇一個(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)題(例如班級(jí))即可。非常方便。

電腦教程