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

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

相關文章
- 制作 Excel 表格時,時不時的會用到單斜線多斜線表頭。添加斜線不難,可以直接右擊單元格使用“設置單元格格式”添加單斜線或使用“插入-形狀-線條”來手動添加多條斜線。2012-11-03
- 今天教大家在excel表格中畫斜線、雙斜線、三斜線、四斜線的方法,下面小編將詳細的為大家介紹如何在excel表格中畫斜線、雙斜線、三斜線、四斜線的方法2012-11-14
- 在我們?nèi)粘?shù)據(jù)的計算中Excel確實給我?guī)矸浅6嗟姆奖憧旖?,但有時制作些較復雜的表格就相形見拙了,就不如word那樣應用自如了,例如:在一個單元格中要制作e畫斜線就沒wo2012-12-05
- 在日常excel工作表格制作時,經(jīng)常需要制作斜線表頭來表示二維表的不同內(nèi)容,那么excel斜線怎么打字?下面小編就為大家?guī)韊xcel表格斜線表頭打字教程,一起來看看吧2014-12-10
- 這篇教程是向腳本之家介紹微軟Excel2003制作斜線表頭方法,不會的朋友可以跟著教程一起來學習,推薦到腳本之家,喜歡的朋友一起來學習吧2015-02-15
- 1、在Excel表頭設置斜線:2008-10-06
- 在表格excel中怎么畫斜線并上下打字?很多朋友還不是很清楚,其實方法很簡單的,下面小編就為大家詳細介紹一下,來看看吧2015-07-01
- 我們在制作excel表格的時候為了說明問題,我們會在表首用斜線來區(qū)別不同的含義,畫斜線的方法不復雜,下面小編就為大家介紹在Excel表格中怎么畫斜線方法,一起來看看吧2016-03-22
- excel表格的表頭有時需要分項目,根據(jù)項目的復雜程度添加斜線數(shù)量。那么excel怎么設置表頭斜線?下面小編就為大家詳細介紹excel設置斜線表頭方法,一起來看看吧2016-02-18
怎么在excel中表格加斜線 excel中加表格斜線圖文方法
剛接觸excel表格的朋友不知道怎么加斜線,其實方法很簡單,今天小編就為大家?guī)韊xcel中加表格斜線圖文方法,一起看看吧2016-05-06