前些天收到朋友一個(gè)短信，將一段祝福的話(huà)倒序發(fā)了過(guò)來(lái)。雖然讀起來(lái)挺費(fèi)勁，但是卻十分個(gè)性化。在這個(gè)短信的啟發(fā)下，咱也想個(gè)性化一把，把寫(xiě)好的郵件也給“倒”過(guò)來(lái)，想來(lái)發(fā)出去必也有好的效果。不過(guò)，如果是倒序錄入漢字的話(huà)，估計(jì)咱無(wú)論使用哪種輸入法都不會(huì)有太高的效率，咱還是先按正常的順序錄入，再把它的次序給顛倒過(guò)來(lái)吧。

一、使用開(kāi)發(fā)工具
　　原以為這事兒會(huì)挺簡(jiǎn)單，但忙活了半天也沒(méi)什么結(jié)果，最后，還是在Excel中借助于自定義函數(shù)才使這個(gè)問(wèn)題最終得到解決。解決的辦法如下：
　　先在A1、A2單元格中按正常的順序錄入短信內(nèi)容。點(diǎn)擊功能區(qū)“開(kāi)發(fā)工具”選項(xiàng)卡的“代碼”功能組中的“Visual Basic”按鈕，打開(kāi)VBA代碼編輯窗口。如果您的Excel功能區(qū)中沒(méi)有“開(kāi)發(fā)工具”選項(xiàng)卡，那么可以點(diǎn)擊左上角“Office”按鈕，點(diǎn)擊打開(kāi)的對(duì)話(huà)框右下角的“Excel選項(xiàng)”按鈕，在打開(kāi)的對(duì)話(huà)框中，點(diǎn)擊左側(cè)的“常用”項(xiàng)目，并選中右側(cè)“在功能區(qū)顯示“開(kāi)發(fā)工具”選項(xiàng)卡”復(fù)選項(xiàng)，這樣就可以將“開(kāi)發(fā)工具”選項(xiàng)卡添加到功能區(qū)中了。
　　在VBA代碼編輯窗口中，點(diǎn)擊菜單命令“插入→模塊”，得到“模塊1”編輯窗口， 在其中輸入如下自定義函數(shù)的代碼，如圖1所示。
　　Function daodu(dy)
　　 a = Len(dy)
　　 For i = a To 1 Step -1
　　 b = Mid(dy, i, 1)
　　 daodu = daodu & b
　　 Next i
　　End Function

圖1 VBA代碼編輯窗口
　　完成后，選擇菜單“文件→關(guān)閉并返回到Microsoft Excel”命令，返回到Excel工作表窗口。

　　現(xiàn)在，在B1單元格輸入公式“=daodu(A1)”，回車(chē)后就可以看到結(jié)果了。拖動(dòng)B1單元格的填充句柄向下復(fù)制公式，則可以輕松地得到所需要的結(jié)果，如圖2所示。

圖2
二、Excel中加載宏
　　函數(shù)“Daodu”是我們自定義的函數(shù)，它可以象Excel本身自帶的函數(shù)一樣使用。但是在默認(rèn)的情況下它只能在當(dāng)前工作薄使用。如果我們需要經(jīng)常在其它工作薄中使用該函數(shù)，則點(diǎn)擊“Office按鈕”，在彈出的菜單中點(diǎn)擊“另存為→其它格式”命令，打開(kāi)“另存為”對(duì)話(huà)框，在“保存類(lèi)型”下拉列表中選擇“Excel加載宏”，然后輸入一個(gè)文件名，如“daodu”，如圖3所示。單擊“確定”后文件就被保存為加載宏。

圖3 Excel加載宏

　　再點(diǎn)擊“Office按鈕”，點(diǎn)擊右下角的“Excel選項(xiàng)”按鈕，打開(kāi)“Excel選項(xiàng)”對(duì)話(huà)框，點(diǎn)擊左側(cè)的“加載項(xiàng)”項(xiàng)目，然后右側(cè)“管理”下拉列表中選擇“Excel加載項(xiàng)”，單擊其右側(cè)的“轉(zhuǎn)到”按鈕。打開(kāi)“加載宏”對(duì)話(huà)框，勾選“可用加載宏”列表框中的“daodu”復(fù)選框，如圖4所示，單擊“確定”按鈕后，就可以在本機(jī)上的所有工作薄中使用該自定義函數(shù)了。

圖4 Excel中加載宏
　　如果您在這個(gè)對(duì)話(huà)框中看不到“Daodu”復(fù)選項(xiàng)，可以點(diǎn)擊“瀏覽”按鈕查找。我們所保存的“Daodu”加載宏會(huì)保存在“C:\Documents and Settings\用戶(hù)名\Application Data\Microsoft\AddIns”文件夾中。如果我們想在其它的機(jī)器中使用此自定義函數(shù)，那么也需要將加載宏文件保存到其它機(jī)器中相應(yīng)的文件夾中。

最新評(píng)論