欧美bbbwbbbw肥妇,免费乱码人妻系列日韩,一级黄片

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

  發(fā)布時(shí)間：2012-10-31 17:00:02   作者：佚名   我要評(píng)論
有的時(shí)候，我們要在Excel中添加斜線表頭，可Excel并沒(méi)有提供制作斜線表頭的功能，每次都要手工畫一條斜線，非常麻煩。
有的時(shí)候，我們要在Excel中添加斜線表頭，可Excel并沒(méi)有提供制作斜線表頭的功能，每次都要手工畫一條斜線，非常麻煩。有沒(méi)有解決方法呢?其實(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í)候，先選中需要插入斜線表頭的單元格(如果選中的單元格超過(guò)一個(gè)，系統(tǒng)會(huì)給出錯(cuò)誤提示)，單擊“一鍵插入斜線表頭”按鈕，系統(tǒng)會(huì)提示輸入表頭的行、列標(biāo)題，分別輸入表頭的行標(biāo)題(例如星期)和列標(biāo)題(例如班級(jí))即可。非常方便。

用VBA代碼編寫一鍵插入Excel斜線表頭 三聯(lián)

相關(guān)文章

  • 怎樣在excel中添加斜線表頭輸入內(nèi)容

    制作 Excel 表格時(shí)，時(shí)不時(shí)的會(huì)用到單斜線多斜線表頭。添加斜線不難，可以直接右擊單元格使用“設(shè)置單元格格式”添加單斜線或使用“插入-形狀-線條”來(lái)手動(dòng)添加多條斜線。
    2012-11-03

  • excel表格中各種斜線的畫法介紹

    今天教大家在excel表格中畫斜線、雙斜線、三斜線、四斜線的方法，下面小編將詳細(xì)的為大家介紹如何在excel表格中畫斜線、雙斜線、三斜線、四斜線的方法
    2012-11-14

  • 在excel表格中如何添加斜線的詳細(xì)圖文步驟

    在我們?nèi)粘?shù)據(jù)的計(jì)算中Excel確實(shí)給我?guī)?lái)非常多的方便快捷，但有時(shí)制作些較復(fù)雜的表格就相形見(jiàn)拙了，就不如word那樣應(yīng)用自如了，例如：在一個(gè)單元格中要制作e畫斜線就沒(méi)wo
    2012-12-05

  • excel斜線怎么打字?excel表格斜線表頭打字教程

    在日常excel工作表格制作時(shí)，經(jīng)常需要制作斜線表頭來(lái)表示二維表的不同內(nèi)容，那么excel斜線怎么打字?下面小編就為大家?guī)?lái)excel表格斜線表頭打字教程，一起來(lái)看看吧
    2014-12-10

  • 微軟Excel2003制作斜線表頭教程

    這篇教程是向腳本之家介紹微軟Excel2003制作斜線表頭方法，不會(huì)的朋友可以跟著教程一起來(lái)學(xué)習(xí)，推薦到腳本之家，喜歡的朋友一起來(lái)學(xué)習(xí)吧
    2015-02-15

  • 視頻:Excel電子表格表頭設(shè)置斜線

    　　1、在Excel表頭設(shè)置斜線：
    2008-10-06

  • 在表格excel中怎么畫斜線并上下打字?

    在表格excel中怎么畫斜線并上下打字?很多朋友還不是很清楚，其實(shí)方法很簡(jiǎn)單的，下面小編就為大家詳細(xì)介紹一下，來(lái)看看吧
    2015-07-01

  • 在Excel表格中怎么畫斜線?

    我們?cè)谥谱鱡xcel表格的時(shí)候?yàn)榱苏f(shuō)明問(wèn)題,我們會(huì)在表首用斜線來(lái)區(qū)別不同的含義,畫斜線的方法不復(fù)雜,下面小編就為大家介紹在Excel表格中怎么畫斜線方法，一起來(lái)看看吧
    2016-03-22

  • excel怎么設(shè)置表頭斜線?excel設(shè)置斜線表頭方法介紹

    excel表格的表頭有時(shí)需要分項(xiàng)目，根據(jù)項(xiàng)目的復(fù)雜程度添加斜線數(shù)量。那么excel怎么設(shè)置表頭斜線？下面小編就為大家詳細(xì)介紹excel設(shè)置斜線表頭方法，一起來(lái)看看吧
    2016-02-18

  • 怎么在excel中表格加斜線 excel中加表格斜線圖文方法

    剛接觸excel表格的朋友不知道怎么加斜線，其實(shí)方法很簡(jiǎn)單，今天小編就為大家?guī)?lái)excel中加表格斜線圖文方法，一起看看吧
    2016-05-06

最新評(píng)論