Excel word ppt office使用技巧大全(DOC格式)-第29部分

快捷操作: 按键盘上方向键 ← 或 → 可快速上下翻页 按键盘上的 Enter 键可回到本书目录页 按键盘上方向键 ↑ 可回到本页顶部! 如果本书没有阅读完，想下次继续接着阅读，可使用上方 "收藏到我的浏览器" 功能 和 "加入书签" 功能！


varLettersUnits　　　　　　　　=　　　　　　varUnits（Right（＇varSixFigures＇；　　　　　　　　　　1））　　　　　　varLettersTens　　　　　　　　=　　

varTens（Left（Right（＇varSixFigures＇；　　　　　　　　　　　　　2）；　　　　　　　　　1））　　　　　　　　　varLettersHundreds　　　　　　　　　　　　=　　

varHundreds（Left（Right（＇varSixFigures＇；　　　　　　　　　3）；　　　1））　　　If　　Len（＇varSixFigures＇）　　　　　　=　　　1　　　Then　　

varSixLetters　　=　　varLettersUnits　　&　　〃　　thousand〃　　End　　If　　If　　Len（＇varSixFigures＇）　　=　　2　　Then　　

varSixLetters　　=　　varLettersTens　　&　　〃　　〃　　&　　varLettersUnits　　&　　〃　　thousand〃　　Select　　Case　　

Right（＇varSixFigures＇；　　　2）　　　Case　　　11　　　varLettersTens　　　=　　　〃eleven〃　　　varLettersUnits　　　=　　　〃〃　　

varSixLetters　　　=　　　varLettersTens　　　&　　　〃　　　thousand〃　　　Case　　　12　　　varLettersTens　　　=　　　〃twelve〃　　

varLettersUnits　=　〃〃　varSixLetters　=　varLettersTens　&　〃　thousand〃　Case　13　varLettersTens　=　　

〃thirteen〃　　varLettersUnits　　=　　〃〃　　varSixLetters　　=　　varLettersTens　　&　　〃　　thousand〃　　Case　　14　　

varLettersTens　　=　　〃fourteen〃　　varLettersUnits　　=　　〃〃　　varSixLetters　　=　　varLettersTens　　&　　〃　　

thousand〃　　Case　　15　　varLettersTens　　=　　〃fifteen〃　　varLettersUnits　　=　　〃〃　　varSixLetters　　=　　

varLettersTens　&　〃　thousand〃　　　　



　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　CC　　


…………………………………………………………Page　201……………………………………………………………

　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　Excel_word_ppt_使用技巧大全（完全版）　　



Case　16　varLettersTens　=　〃sixteen〃　varLettersUnits　=　〃〃　varSixLetters　=　varLettersTens　&　〃　　

thousand〃　　Case　　17　　varLettersTens　　=　　〃seventeen〃　　varLettersUnits　　=　　〃〃　　varSixLetters　　=　　

varLettersTens　&　〃　thousand〃　Case　18　varLettersTens　=　　〃eighteen〃　　varLettersUnits　=　　〃〃　　

varSixLetters　　=　　varLettersTens　　&　　〃　　thousand〃　　Case　　19　　varLettersTens　　=　　〃nineteen〃　　

varLettersUnits　　　=　　　〃〃　　　varSixLetters　　　=　　　varLettersTens　　　&　　　〃　　　thousand〃　　　End　　　Select　　　If　　

Right（varSixFigures；　1）　=　0　Then　varSixLetters　=　varLettersTens　&　〃　thousand〃　End　If　End　If　　

If　Len（＇varSixFigures＇）　=　3　Then　varSixLetters　=　varLettersHundreds　&　〃　〃　&　varLettersTens　　

&　　〃　　〃　　&　　varLettersUnits　　&　　〃　　thousand〃　　Select　　Case　　Right（＇varSixFigures＇；　　2）　　Case　　11　　

varLettersTens　=　〃eleven〃　varLettersUnits　=　〃〃　varSixLetters　=　varLetters　Hundreds　&　〃　〃　&　　

varLettersTens　　&　　〃　　thousand〃　　Case　　12　　varLettersTens　　=　　〃twelve〃　　varLettersUnits　　=　　〃〃　　

varSixLetters　　=　　varLettersHundreds　　&　　〃　　〃　　&　　varLettersTens　　&　　〃　　thousand〃　　Case　　13　　

varLettersTens　=　〃thirteen〃　varLettersUnits　=　〃〃　varSixLetters　=　varLetters　Hundreds　&　〃　〃　&　　

varLettersTens　　&　　〃　　thousand〃　　Case　　14　　varLettersTens　　=　　〃fourteen〃　　varLettersUnits　　=　　〃〃　　

varSixLetters　　=　　varLettersHundreds　　&　　〃　　〃　　&　　varLettersTens　　&　　〃　　thousand〃　　Case　　15　　

varLettersTens　=　〃fifteen〃　　　　



　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　CCI　　


…………………………………………………………Page　202……………………………………………………………

　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　Excel_word_ppt_使用技巧大全（完全版）　　



varLettersUnits　　=　　〃〃　　varSixLetters　　=　　varLettersHundreds　　&　　〃　　〃　　&　　varLettersTens　　&　　〃　　

thousand〃　　Case　　16　　varLettersTens　　=　　〃sixteen〃　　varLettersUnits　　=　　〃〃　　varSixLetters　　=　　

varLettersHundreds　　&　　〃　　〃　　&　　varLettersTens　　&　　〃　　thousand〃　　Case　　17　　varLettersTens　　=　　

〃seventeen〃　varLettersUnits　=　〃〃　varSixLetters　=　varLettersHundreds　&　〃　〃　&　varLettersTens　　

&　〃　thousand〃　Case　18　varLettersTens　=　〃eighteen〃　varLettersUnits　=　〃〃　varSixLetters　=　　

varLettersHundreds　　&　　〃　　〃　　&　　varLettersTens　　&　　〃　　thousand〃　　Case　　19　　varLettersTens　　=　　

〃nineteen〃　varLettersUnits　=　〃〃　varSixLetters　=　varLettersHundreds　&　〃　〃　&　varLettersTens　&　　

〃　　　thousand〃　　　　　　End　　　　　Select　　　　If　　Right（varSixFigures；　　　　　　　　1）　　　=　　　　0　　　Then　　　　　varSixLetters　　　　　=　　

varLettersHundreds　&　〃　〃　&　varLettersTens　&　〃　thousand〃　End　If　If　Right（Left（＇varSixFigures＇；　　

2）；　1）　=　0　Then　varSixLetters　=　varLettersHundreds　&　〃　〃　&　varLettersUnits　&　〃　thousand〃　　

End　If　End　If　If　varSixFigures　=　〃000〃　Then　varSixLetters　=　〃〃　GoTo　jumpMillions　End　If　If　　

Right（varSixFigures；　2）　=　〃00〃　Then　varSixLetters　=　varLettersHundreds　&　〃　〃　&　〃　thousands〃　　

GoTo　　　jumpMillions　　　End　　　If　　　If　　　Left（varSixFigures；　　　2）　　　=　　　〃00〃　　　Then　　　varSixLetters　　　=　　

varLettersUnits　&　〃　〃　&　〃　thousands〃　GoTo　jumpMillions　End　If　　　　



　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　CCII　　


…………………………………………………………Page　203……………………………………………………………

　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　Excel_word_ppt_使用技巧大全（完全版）　　



If　Left（varSixFigures；　1）　=　〃0〃　Then　varSixLetters　=　varLettersTens　&　〃　〃　&　varLettersUnits　&　　

〃　〃　&　〃　thousands〃　End　If　If　Left（varSixFigures；　1）　　=　〃0〃　And　Right（varSixFigures；　1）　=　〃0〃　　

Then　varSixLetters　=　varLettersTens　&　〃　〃　&　〃　thousands〃　GoTo　jumpMillions　End　If　End　If　'''　　

**************************************************************************　

*********************　　　'''Million　　　'　　　jumpMillions：　　　　　　　　　　　　　　　If　　　varLenghtNumber　　　》　　　6　　　Then　　

varLettersUnits　　　　　　　　　=　　　　　　　varUnits（Right（＇varNineFigures＇；　　　　　　　　　　　　　　1））　　　　　　varLettersTens　　　　　　　　　　=　　

varTens（Left（Right（＇varNineFigures＇；　　　　　　　　　　　　　　　　　　2）；　　　　　　　　　1））　　　　　　　　　varLettersHundreds　　　　　　　　　　　　　　　=　　

varHundreds（Left（Right（＇varNineFigures＇；　　　3）；　　　1））　　　If　　　Len（＇varNineFigures＇）　　　=　　　1　　　Then　　

varNineLetters　　=　　varLettersUnits　　&　　〃　　million〃　　End　　If　　If　　Len（＇varNineFigures＇）　　=　　2　　Then　　

varNineLetters　　=　　varLettersTens　　&　　〃　　〃　　&　　varLettersUnits　　&　　〃　　million〃　　Select　　Case　　

Right（＇varNineFigures＇；　　2）　　Case　　11　　varLettersTens　　=　　〃eleven〃　　varLettersUnits　　=　　〃〃　　

varNineLetters　　　=　　　varLettersTens　　　&　　　〃　　　million〃　　　Case　　　12　　　varLettersTens　　　=　　　〃twelve〃　　

varLettersUnits　=　〃〃　varNineLetters　=　varLettersTens　&　〃　million〃　Case　13　varLettersTens　=　　

〃thirteen〃　varLettersUnits　=　〃〃　varNineLetters　=　varLettersTens　&　〃　million〃　　　　



　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　CCIII　　


…………………………………………………………Page　204……………………………………………………………

　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　Excel_word_ppt_使用技巧大全（完全版）　　



Case　14　varLettersTens　=　〃fourteen〃　varLettersUnits　=　〃〃　varNineLetters　=　varLettersTens　&　　

〃　　million〃　　Case　　15　　varLettersTens　　=　　〃fifteen〃　　varLettersUnits　　=　　〃〃　　varNineLetters　　=　　

varLettersTens　　&　　〃　　million〃　　Case　　16　　varLettersTens　　=　　〃sixteen〃　　varLettersUnits　　=　　〃〃　　

varNineLetters　　=　　varLettersTens　　&　　〃　　million〃　　Case　　17　　varLettersTens　　=　　〃seventeen〃　　

varLettersUnits　=　〃〃　varNineLetters　=　varLettersTens　&　〃　million〃　Case　18　varLettersTens　=　　

〃eighteen〃　　varLettersUnits　　=　　〃〃　　varNineLetters　　=　　varLettersTens　　&　　〃　　million〃　　Case　　19　　

varLettersTens　　=　　〃nineteen〃　　varLettersUnits　　=　　〃〃　　varNineLetters　　=　　varLettersTens　　&　　〃　　

million〃　End　Select　If　Right（varNineFigures；　1）　=　0　Then　varNineLetters　=　varLettersTens　&　〃　　

million〃　　　End　　　　If　　End　　　　If　　　If　　Len（＇varNineFigures＇）　　　　　　　=　　　3　　　Then　　　　varNineLetters　　　　　=　　

varLettersHundreds　&　〃　〃　&　varLettersTens　&　〃　〃　&　varLettersUnits　&　〃　million〃　Select　Case　　

Right（＇varNineFigures＇；　　2）　　Case　　11　　varLettersTens　　=　　〃eleven〃　　varLettersUnits　　=　　〃〃　　

varNineLetters　　=　　varLettersHundreds　　&　　〃　　〃　　&　　varLettersTens　　&　　〃　　million〃　　Case　　12　　

varLettersTens　=　〃twelve〃　varLettersUnits　=　〃〃　varNineLetters　=　varLettersHundreds　&　〃　〃　&　　

varLettersTens　&　〃　million〃　Case　13　varLettersTens　=　〃thirteen〃　　　　



　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　CCIV　　


…………………………………………………………Page　205……………………………………………………………

　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　Excel_word_ppt_使用技巧大全（完全版）　　



varLettersUnits　=　〃〃　varNineLetters　=　varLettersHundreds　&　〃　〃　&　varLettersTens　&　〃　million〃　　

Case　　　　14　　　varLettersTens　　　　　=　　　〃fourteen〃　　　　varLettersUnits　　　=　　　　〃〃　　varNineLetters　　　　=　　

varLettersHundreds　&　〃　〃　&　varLettersTens　&　〃　million〃　Case　15　varLettersTens　=　〃fifteen〃　　

varLettersUnits　=　〃〃　varNineLetters　=　varLettersHundreds　&　〃　〃　&　varLettersTens　&　〃　million〃　　

Case　　　　16　　　varLettersTens　　　　　=　　　　〃sixteen〃　　　varLettersUnits　　　　=　　　〃〃　　　varNineLetters　　　　=　　

varLettersHundreds　　&　　〃　　〃　　&　　varLettersTens　　&　　〃　　million〃　　Case　　17　　varLettersTens　　=　　

〃seventeen〃　　　varLettersUnits　　　=　　　〃〃　　　varNineLetters　　　=　　　varLettersHundreds　　　&　　　〃　　　〃　　　&　　

varLettersTens　　&　　〃　　million〃　　Case　　18　　varLettersTens　　=　　〃eighteen〃　　varLettersUnits　　=　　〃〃　　

varNineLetters　　=　　varLettersHundreds　　&　　〃　　〃　　&　　varLettersTens　　&　　〃　　million〃　　Case　　19　　

varLettersTens　=　〃nineteen〃　varLettersUnits　=　〃〃　varNineLetters　=　varLettersHundreds　&　〃　〃　　

&　　varLettersTens　　&　　〃　　million〃　　End　　Select　　End　　If　　If　　varNineFigures　　=　　〃000〃　　Then　　

varNineLetters　　=　　〃〃　　GoTo　　jumpBillions　　End　　If　　If　　Right（varNineFigures；　　2）　　=　　〃00〃　　Then　　

varNineLetters　　=　　varLettersHundreds　　&　　〃　　〃　　&　　〃　　millions〃　　GoTo　　jumpBillions　　End　　If　　If　　

Left（varNineFigures；　2）　=　〃00〃　Then　varNineLetters　=　varLettersUnits　&　〃　〃　&　〃　millions〃　　

GoTo　jumpBillions　End　If　　　　



　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　CCV　　


…………………………………………………………Page　206……………………………………………………………

　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　Excel_word_ppt_使用技巧大全（完全版）　　



If　　　Left（varNineFigures；　　　1）　　　=　　　〃0〃　　　Then　　　varNineLetters　　　=　　　varLettersTens　　　&　　　〃　　　〃　　　&　　

varLettersUnits　　&　　〃　　〃　　&　　〃　　millions〃　　End　　If　　If　　Left（varNineFigures；　　1）　　=　　〃0〃　　And　　

Right（varNineFigures；　1）　=　〃0〃　Then　varNineLetters　=　varLettersTens　&　〃　〃　&　〃　millions〃　GoTo　　

jumpBillions　　　　　　　　　　　　　　End　　　　　　　　　　　　　　If　　　　　　　　　　　　　End　　　　　　　　　　　　　　If　　　　　　　　　　　　''　　　　　　　　　　　　''''　　

**************************************************************************　

*********************　　　''''Billions　　　''　　　jumpBillions：　　　If　　　varLenghtNumber　　　》　　　9　　　Then　　

varLettersUnits　　　　　　　=　　　　　　varUnits（Right（＇varTwelveFigures＇；　　　　　　　　　　1））　　　　　　varLettersTens　　　　　　　=　　

varTens（Left（Right（＇varTwelveFigures＇；　　　　　　　　　　　　　　2）；　　　　　　　　1））　　　　　　　varLettersHundreds　　　　　　　　　　　　=　　

varHundreds（Left（Right（＇varTwelveFigures＇；　　3）；　　1））　　If　　Len（＇varTwelveFigures＇）　　=　　1　　Then　　

varTwelveLetters　=　varLettersUnits　&　〃　billion〃　End　If　If　Len（＇varTwelveFigures＇）　=　2　Then　　

varTwelveLetters　　=　　varLettersTens　　&　　〃　　〃　　&　　varLettersUnits　　&　　〃　　billion〃　　Select　　Case　　

Right（＇varTwelveFigures＇；　　2）　　Case　　11　　varLettersTens　　=　　〃eleven〃　　varLettersUnits　　=　　〃〃　　

varTwelveLetters　　=　　varLettersTens　　&　　〃　　billion〃　　Case　　12　　varLettersTens　　=　　〃twelve〃　　

varLettersUnits　=　〃〃　varTwelveLetters　=　varLettersTens　&　〃　billion〃　Case　13　varLettersTens　=　　

〃thirteen〃　varLettersUnits　=　〃〃　varTwelveLetters　=　varLettersTens　&　〃　billion〃　Case　14　　　　



　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　CCVI　　


…………………………………………………………Page　207……………………………………………………………

　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　Excel_word_ppt_使用技巧大全（完全版）　　



varLettersTens　=　　〃fourteen〃　　varLettersUnits　=　　〃〃　varTwelveLetters　=　　varLettersTens　&　〃　　

billion〃　　Case　　15　　varLettersTens　　=　　〃fifteen〃　　varLettersUnits　　=　　〃〃　　varTwelveLetters　　=　　

varLettersTens　　&　　〃　　billion〃　　Case　　16　　varLettersTens　　=　　〃sixteen〃　　varLettersUn