欧美bbbwbbbw肥妇,免费乱码人妻系列日韩,一级黄片

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

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

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

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

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

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

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

圖2

相關(guān)文章

最新評(píng)論