萬盛學電腦網

 萬盛學電腦網 >> Excel教程 >> excel綜合 >> 用VBA代碼編寫一鍵插入Excel斜線表頭

用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

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

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

電腦教程

copyright © 萬盛學電腦網 all rights reserved