1. 首頁 > 生活百科 > >

關于Excel宏的小竅門圖文攻略教程

excel電腦知識

你可能曾經做過很多漂亮有趣的Excel文檔 ， 但我敢打賭你還希望為這些文檔再添加些更酷的效果畫龍點睛一下 。 在本文中我將為你介紹一些關于Excel宏的小竅門 ， 希望能助你一臂之力 。
首先在Excel中鍵入ALT+F11打開VBA編輯器；在“插入”菜單中 ， 選擇“用戶窗體”；在窗口編輯欄里拖住對話框的右下角 ， 把窗體拉大；最后的大小就將是咱們自定義的啟動畫面的大小了 。
接下來 ， 將“工具箱”里那個大大的“A”字圖標拖拽到你的窗體上；鼠標點住出現的文本框的一角 ， 將它拉大 ， 將框內文字替換為之后想要顯示的標題內容即可 。 如果此時VBA編輯器里并沒有顯示控件屬性欄 ， 請按F4將其調出 ， 這樣就可以通過屬性欄中的字體一項更改標題字體 。 這里默認的字體是宋體 ， 你也可以點擊它右邊畫著“…”的小方框 ， 在彈出的對話框中重新設置 。 本文例子里采用的字體是Arial Black Regular ， 72點 。 接著將屬性“TextAlign”一欄調整為“fmTextAlignCenter” ， 選擇屬性“ForeColor”　“按鈕文本”　“調色板” ， 在其中選擇你喜歡的標題顏色 。

關于Excel宏的小竅門圖文攻略教程

文章插圖

這里需要注意一件事 ， 一個Label文本框內只能有一種字體；所以如果還想在彈出框中建立副標題 ， 就還需要在窗體中再添加一個Label文本框才行 。 添加完填好文字 ， 設置方法同之前那個Label完全相同 。
下面我們要為彈出的這個對話框添加背景顏色：首先用鼠標在窗體內沒有其他控件的地方點一下 ， 在屬性欄選擇“BackColor”　“調色板” ， 選擇你中意的顏色即可 。

關于Excel宏的小竅門圖文攻略教程

文章插圖

你這時可能也注意到了窗體的左上角顯示著UserForm1 。 這肯定不是我們希望在它彈出時顯示的東西 。 我們需要在屬性欄內修改它 。 首先將最上面“名稱”一欄更改為“Intro” ， 然后選擇“Caption” ， 將后面的“UserForm1”更改為你喜歡的文字即可（本例中使用的是Intro） 。

關于Excel宏的小竅門圖文攻略教程

文章插圖

再添加一個Label ， 這個Label里面我們可以使用與前一個不同的字體 。
接下來的界面設計階段只需要我們擺一擺幾個Label的位置即可 。 然后雙擊窗體（也就是剛才那個UserForm1） ， 在彈出的代碼編輯器里面 ， 選擇右上角下拉菜單中的“Initialize”；在代碼窗口內“Private Sub UserForm_Initialize()”和“End Sub”中間添加如下代碼：
Appliation.Ontime Now + TimeValue(“00:00:04”),“ClearForm”
這個宏可以用來控制標題對話框顯示時間 。 在這個例子里 ， 我將其設置為4秒鐘 。 當然你也可以將00:00:04改成任何你想讓啟動畫面停留的時間 。

關于Excel宏的小竅門圖文攻略教程

文章插圖

選擇VBA插入菜單中的“模塊” 。 并在彈出的代碼編輯框內填入下面代碼：
Sub ClearForm()
Unload Intro
End Sub
這段代碼中的ClearForm函數在對話框顯示4秒后卸載掉該窗體 。 代碼中的“Intro”就是剛才編輯的窗體名稱（還記得之前咱們已經將窗體名稱更改為“Intro”了嗎？） 。
最后在工程資源管理器那里點開“ThisWorkBook”；如果你的VBA沒有顯示這個管理器 ， 可以用CTRL+R將它調出；接著在彈出的代碼編輯器里面輸入：
Private Sub Workbook_Open()
Intro.Show
End Sub
按下ALT+F11返回到原來的Excel工作簿當中；保存文件 。 如果是07版的Excel ， 請將文件后綴保存為.xlsm ， 這樣打開該文件時將會自動運行文件中定義的宏 。 如果你按照前面所述一步步完成 ， 下次你再打開這個文件 ， 便會見到一個只停留4秒的啟動框 。
　單元格的巧妙替換
我們假設遙遠的地方有個國家 ， 這個國家的電話號碼分機時常在變 ， 而你又是那個維護電話黃頁的小職員 。 如果讓你老老實實地一個個去將所有號碼改正過來 ， 你肯定會叫苦不迭 。 好在咱們現在有了Excel ， 巧妙運用它自帶的一些函數 ， 可以方便地幫你解決掉這個問題 。
首先我們假設所有開頭為0191局的電話都將改為0307局 。 先設置A2 ， B2的單元格的顯示格式 ， 讓其可以顯示出數值最前面的0 。 在A2中輸入“0191234567” ， 在B2中輸入“=SUBSTITUTE
2,191,307)”
這樣B2格便會顯示“0307234567” 。 這里的SUBSTITUE函數包含三個參數 ， 分別是：需要做替換的字符串 ， 要被替換的部分 ， 和用來替換的部分 。

推薦閱讀