Excel表格怎么樣添加啟動(dòng)畫(huà)面
Excel表格怎么樣添加啟動(dòng)畫(huà)面
你可能曾經(jīng)做過(guò)漂亮的Excel文檔畫(huà)面,在“插入”菜單中,選擇“用戶窗體”;在窗口編輯欄里拖住對(duì)話框的右下角,把窗體拉大;最后的就將是咱們自定義的啟動(dòng)畫(huà)面的大小了。以下是學(xué)習(xí)啦小編為您帶來(lái)的關(guān)于Excel表格添加啟動(dòng)畫(huà)面,希望對(duì)您有所幫助。
Excel表格添加啟動(dòng)畫(huà)面
接下來(lái),將“工具箱”里那個(gè)大大的“A”字圖標(biāo)拖拽到你的窗體上;鼠標(biāo)點(diǎn)住出現(xiàn)的文本框的一角,將它拉大,將框內(nèi)文字替換為之后想要顯示的標(biāo)題內(nèi)容即可。如果此時(shí)VBA編輯器里并沒(méi)有顯示控件屬性欄,請(qǐng)按F4將其調(diào)出,這樣就可以通過(guò)屬性欄中的字體一項(xiàng)更改標(biāo)題字體。這里默認(rèn)的字體是宋體,你也可以點(diǎn)擊它右邊畫(huà)著“…”的小方框,在彈出的對(duì)話框中重新設(shè)置。本文例子里采用的字體是Arial Black Regular,72點(diǎn)。接著將屬性“TextAlign”一欄調(diào)整為“fmTextAlignCenter”,選擇屬性“ForeColor”|“按鈕文本”|“調(diào)色板”,在其中選擇你喜歡的標(biāo)題顏色。
這里需要注意一件事,一個(gè)Label文本框內(nèi)只能有一種字體;所以如果還想在彈出框中建立副標(biāo)題,就還需要在窗體中再添加一個(gè)Label文本框才行。添加完填好文字,設(shè)置方法同之前那個(gè)Label完全相同。
下面我們要為彈出的這個(gè)對(duì)話框添加背景顏色:首先用鼠標(biāo)在窗體內(nèi)沒(méi)有其他控件的地方點(diǎn)一下,在屬性欄選擇“BackColor”|“調(diào)色板”,選擇你中意的顏色即可。
在UserForm里面填入標(biāo)題
你這時(shí)可能也注意到了窗體的左上角顯示著UserForm1。這肯定不是我們希望在它彈出時(shí)顯示的東西。我們需要在屬性欄內(nèi)修改它。首先將最上面“名稱(chēng)”一欄更改為“Intro”,然后選擇“Caption”,將后面的“UserForm1”更改為你喜歡的文字即可(本例中使用的是Intro)。
再添加一個(gè)Label,這個(gè)Label里面我們可以使用與前一個(gè)不同的字體。
接下來(lái)的界面設(shè)計(jì)階段只需要我們擺一擺幾個(gè)Label的位置即可。然后雙擊窗體(也就是剛才那個(gè)UserForm1),在彈出的代碼編輯器里面,選擇右上角下拉菜單中的“Initialize”;在代碼窗口內(nèi)“Private Sub UserForm_Initialize()”和“End Sub”中間添加如下代碼:
Appliation.Ontime Now + TimeValue(“00:00:04”),“ClearForm”
這個(gè)宏可以用來(lái)控制標(biāo)題對(duì)話框顯示時(shí)間。在這個(gè)例子里,我將其設(shè)置為4秒鐘。當(dāng)然你也可以將00:00:04改成任何你想讓啟動(dòng)畫(huà)面停留的時(shí)間。
控制頁(yè)面顯示的時(shí)間
選擇VBA插入菜單中的“模塊”。并在彈出的代碼編輯框內(nèi)填入下面代碼:
Sub ClearForm()
Unload Intro
End Sub
這段代碼中的ClearForm函數(shù)在對(duì)話框顯示4秒后卸載掉該窗體。代碼中的“Intro”就是剛才編輯的窗體名稱(chēng)(還記得之前咱們已經(jīng)將窗體名稱(chēng)更改為“Intro”了嗎?)。
最后在工程資源管理器那里點(diǎn)開(kāi)“ThisWorkBook”;如果你的VBA沒(méi)有顯示這個(gè)管理器,可以用CTRL+R將它調(diào)出;接著在彈出的代碼編輯器里面輸入:
Private Sub Workbook_Open()
Intro.Show
End Sub
按下ALT+F11返回到原來(lái)的Excel工作簿當(dāng)中;保存文件。如果是07版的Excel,請(qǐng)將文件后綴保存為.xlsm,這樣打開(kāi)該文件時(shí)將會(huì)自動(dòng)運(yùn)行文件中定義的宏。如果你按照前面所述一步步完成,下次你再打開(kāi)這個(gè)文件,便會(huì)見(jiàn)到一個(gè)只停留4秒的啟動(dòng)框。
當(dāng)Excel文檔打開(kāi)的時(shí)候,標(biāo)題畫(huà)面會(huì)自動(dòng)彈出。
單元格的巧妙替換
我們假設(shè)遙遠(yuǎn)的地方有個(gè)國(guó)家,這個(gè)國(guó)家的電話號(hào)碼分機(jī)時(shí)常在變,而你又是那個(gè)維護(hù)電話黃頁(yè)的小職員。如果讓你老老實(shí)實(shí)地一個(gè)個(gè)去將所有號(hào)碼改正過(guò)來(lái),你肯定會(huì)叫苦不迭。好在咱們現(xiàn)在有了Excel,巧妙運(yùn)用它自帶的一些函數(shù),可以方便地幫你解決掉這個(gè)問(wèn)題。
首先我們假設(shè)所有開(kāi)頭為0191局的電話都將改為0307局。先設(shè)置A2,B2的單元格的顯示格式,讓其可以顯示出數(shù)值最前面的0。在A2中輸入“0191234567”,在B2中輸入“=SUBSTITUTE(A2,191,307)”
這樣B2格便會(huì)顯示“0307234567”。這里的SUBSTITUE函數(shù)包含三個(gè)參數(shù),分別是:需要做替換的字符串,要被替換的部分,和用來(lái)替換的部分。
Excel還支持多種搜索替換功能。假如我們需要將TelNum這個(gè)欄里面的電話號(hào)碼的0191部分都替換成0307,我們只需在旁邊空列的單元格中鍵入“=IF(LEFT(telnum,4)=“0191”,SUBSTITUE(telnum“0191”,“0307”),“ ”)”。
點(diǎn)擊單元格,向下拖拽這個(gè)單元格的右下角將公式向下復(fù)制。這樣只要旁邊的列中包含0191這個(gè)字符串,在新的這一列中就會(huì)將它改為0307并顯示出來(lái),同時(shí)將原來(lái)那個(gè)單元格清空。
如果你的字符串中多次出現(xiàn)某個(gè)子字符串,你還可以為SUBSTITUE函數(shù)指定替換其中的哪一個(gè)子字符串。我們舉個(gè)例子,假如A2此時(shí)顯示“中國(guó)北京2000”,在B2中鍵入“=SUBSTITUE(A2,“0”,“8”,3)”。
這樣B2中將會(huì)顯示“中國(guó)北京2008”。這個(gè)例子同第一個(gè)例子大部分均相同,唯一不同在于后面第四個(gè)參數(shù)“3”。我們這里正是用這個(gè)參數(shù)來(lái)指示要替換第幾個(gè)重復(fù)出現(xiàn)的字符。
在Excel中還提供了一個(gè)類(lèi)似的REPLACE函數(shù)。這里舉兩個(gè)例子幫助大家熟悉它。
首先假設(shè)我們?cè)贏2中鍵入了一串信用卡號(hào)碼:5123 4567 8901 2345。我們想在B2中顯示這串號(hào)碼,但為了安全起見(jiàn)需要將最后四位以*替換掉。這時(shí)就可以用REPLACE函數(shù)就可以派上用場(chǎng)。只需要在B2中鍵入“=REPLACE(A2,12,4,“****”)”,B2中便會(huì)顯示“512345678901****”。在此處,函數(shù)中的第二個(gè)參數(shù)給出了字符替換起始位,第三個(gè)參數(shù)給定替換個(gè)數(shù),最后那個(gè)參數(shù)給出替換的內(nèi)容。如果你希望遮擋的不是后四位而是前四位,可以在B2中填入“=REPLACE(A2,1,12,“**** **** ****”)”,B2將顯示“**** **** **** 2345”。
如果你只想提取字符串中的某幾位,還可以利用上下面幾個(gè)函數(shù)。這里舉幾個(gè)例子,幫你熟悉它們。假設(shè)A2里面顯示的是London W1T7RJ。如果你在B2中鍵入“=LEFT(A2,6)”,單元格將顯示城市名;如果在C2中鍵入“=RIGHT(A2,7)”,單元格內(nèi)將會(huì)顯示后面的郵編。
如果你從網(wǎng)上粘貼下來(lái)的字符串內(nèi)碰巧出現(xiàn)了幾個(gè)多余的空格。你可以用TRIM函數(shù)將這些多出來(lái)的空格去掉。假設(shè)A2中放的就是這樣一個(gè)字符串,在B2中鍵入“TRIM(A2)”便可得到修改好的字符串書(shū)寫(xiě)的代價(jià)。
猜你喜歡:
3.Excel2010怎么利用數(shù)據(jù)描點(diǎn)畫(huà)圖