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