最新国产好看的视频,伊人天堂AV在线,国产Aaaaaa视频,蜜臀视频在线观看一区,人妻av色图,密臀久久久精品影片,青青视频免费观看毛片,久草在线观看视,国产三级精品色情在线

Excel用自定義函數(shù)倒讀單元格文本

互聯(lián)網(wǎng)   發(fā)布時間:2008-10-06 15:21:54   作者:佚名   我要評論
  前些天收到朋友一個短信,將一段祝福的話倒序發(fā)了過來。雖然讀起來挺費勁,但是卻十分個性化。在這個短信的啟發(fā)下,咱也想個性化一把,把寫好的郵件也給“倒”過來,想來發(fā)出去必也有好的效果。不過,如果是倒序錄入漢字的話,估計咱無論使用哪種輸入法都不會
  前些天收到朋友一個短信,將一段祝福的話倒序發(fā)了過來。雖然讀起來挺費勁,但是卻十分個性化。在這個短信的啟發(fā)下,咱也想個性化一把,把寫好的郵件也給“倒”過來,想來發(fā)出去必也有好的效果。不過,如果是倒序錄入漢字的話,估計咱無論使用哪種輸入法都不會有太高的效率,咱還是先按正常的順序錄入,再把它的次序給顛倒過來吧。

一、使用開發(fā)工具
  原以為這事兒會挺簡單,但忙活了半天也沒什么結(jié)果,最后,還是在Excel中借助于自定義函數(shù)才使這個問題最終得到解決。解決的辦法如下:
  先在A1、A2單元格中按正常的順序錄入短信內(nèi)容。點擊功能區(qū)“開發(fā)工具”選項卡的“代碼”功能組中的“Visual Basic”按鈕,打開VBA代碼編輯窗口。如果您的Excel功能區(qū)中沒有“開發(fā)工具”選項卡,那么可以點擊左上角“Office”按鈕,點擊打開的對話框右下角的“Excel選項”按鈕,在打開的對話框中,點擊左側(cè)的“常用”項目,并選中右側(cè)“在功能區(qū)顯示“開發(fā)工具”選項卡”復選項,這樣就可以將“開發(fā)工具”選項卡添加到功能區(qū)中了。
  在VBA代碼編輯窗口中,點擊菜單命令“插入→模塊”,得到“模塊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

Excel用自定義函數(shù)倒讀單元格文本_腳本之家jb51.net整理

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

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

Excel用自定義函數(shù)倒讀單元格文本_腳本之家jb51.net整理

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


Excel用自定義函數(shù)倒讀單元格文本_腳本之家jb51.net整理

圖3 Excel加載宏

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

Excel用自定義函數(shù)倒讀單元格文本_腳本之家jb51.net整理

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

相關(guān)文章

最新評論

扬州市| 龙岩市| 美姑县| 十堰市| 城口县| 湖州市| 颍上县| 买车| 湟源县| 衡水市| 全南县| 图木舒克市| 灵宝市| 保康县| 黔江区| 临猗县| 青州市| 会宁县| 梅河口市| 安岳县| 牟定县| 自贡市| 大埔县| 吉安市| 廊坊市| 乌苏市| 年辖:市辖区| 闵行区| 德惠市| 潼关县| 洪湖市| 根河市| 金阳县| 宁德市| 大足县| 兴城市| 冕宁县| 龙游县| 泗水县| 神农架林区| 和林格尔县|