按键盘上方向键 ← 或 → 可快速上下翻页，按键盘上的 Enter 键可回到本书目录页，按键盘上方向键 ↑ 可回到本页顶部！
————未阅读完？加入书签已便下次继续阅读！
varThreeLetters = varLettersTens & 〃 〃 & varLettersUnits Select Case
Right（＇varThreeFigures＇； 2） Case 11 varLettersTens = 〃eleven〃 varLettersUnits = 〃〃
varThreeLetters = varLettersTens Case 12 varLettersTens = 〃twelve〃 varLettersUnits = 〃〃
varThreeLetters = varLettersTens Case 13 varLettersTens = 〃thirteen〃 varLettersUnits = 〃〃
varThreeLetters = varLettersTens Case 14 varLettersTens = 〃fourteen〃 varLettersUnits = 〃〃
varThreeLetters = varLettersTens Case 15 varLettersTens = 〃fifteen〃
CXCVII
…………………………………………………………Page 198……………………………………………………………
Excel_word_ppt_使用技巧大全（完全版）
varLettersUnits = 〃〃 varThreeLetters = varLettersTens Case 16 varLettersTens = 〃sixteen〃
varLettersUnits = 〃〃 varThreeLetters = varLettersTens Case 17 varLettersTens =
〃seventeen〃 varLettersUnits = 〃〃 varThreeLetters = varLettersTens Case 18 varLettersTens
= 〃eighteen〃 varLettersUnits = 〃〃 varThreeLetters = varLettersTens Case 19 varLettersTens
= 〃nineteen〃 varLettersUnits = 〃〃 varThreeLetters = varLettersTens End Select If
Right（varThreeFigures； 1） = 0 Then varThreeLetters = varLettersTens End If End If If
Len（＇varThreeFigures＇） = 3 Then varThreeLetters = varLettersHundreds & 〃 〃 &
varLettersTens & 〃 〃 & varLettersUnits Select Case Right（＇varThreeFigures＇； 2） Case 11
varLettersTens = 〃eleven〃 varLettersUnits = 〃〃 varThreeLetters = varLettersHundreds & 〃 〃
& varLettersTens Case 12 varLettersTens = 〃twelve〃 varLettersUnits = 〃〃 varThreeLetters =
varLettersHundreds & 〃 〃 & varLettersTens Case 13 varLettersTens = 〃thirteen〃
varLettersUnits = 〃〃 varThreeLetters = varLettersHundreds & 〃 〃 & varLettersTens Case 14
varLettersTens = 〃fourteen〃 varLettersUnits = 〃〃 varThreeLetters = varLettersHundreds & 〃 〃
& varLettersTens
CXCVIII
…………………………………………………………Page 199……………………………………………………………
Excel_word_ppt_使用技巧大全（完全版）
Case 15 varLettersTens = 〃fifteen〃 varLettersUnits = 〃〃 varThreeLetters =
varLettersHundreds & 〃 〃 & varLettersTens Case 16 varLettersTens = 〃sixteen〃
varLettersUnits = 〃〃 varThreeLetters = varLettersHundreds & 〃 〃 & varLettersTens Case 17
varLettersTens = 〃seventeen〃 varLettersUnits = 〃〃 varThreeLetters = varLettersHundreds &
〃 〃 & varLettersTens Case 18 varLettersTens = 〃eighteen〃 varLettersUnits = 〃〃
varThreeLetters = varLettersHundreds & 〃 〃 & varLettersTens Case 19 varLettersTens =
〃nineteen〃 varLettersUnits = 〃〃 varThreeLetters = varLettersHundreds & 〃 〃 &
varLettersTens End Select End If If varThreeFigures = 〃000〃 Then varThreeLetters = 〃〃 GoTo
jumpThousands End If If Right（varThreeFigures； 2） = 〃00〃 Then varThreeLetters =
varLettersHundreds GoTo jumpThousands End If If Left（varThreeFigures； 2） = 〃00〃 Then
varThreeLetters = 〃and 〃 & varLettersUnits GoTo jumpThousands End If If
Left（varThreeFigures； 1） = 〃0〃 Then varThreeLetters = 〃and 〃 & varLettersTens & 〃 〃 &
varLettersUnits End If If Left（varThreeFigures； 1） = 〃0〃 And Right（varThreeFigures； 1） = 〃0〃
Then
CXCIX
…………………………………………………………Page 200……………………………………………………………
Excel_word_ppt_使用技巧大全（完全版）
varThreeLetters = 〃and 〃 & varLettersTens GoTo jumpThousands End If '''
**************************************************************************
********************* ''Thousands jumpThousands： If varLenghtNumber 》 3 Then
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（varSixFigure