Excel word ppt office使用技巧大全(DOC格式)-第32部分
按键盘上方向键 ← 或 → 可快速上下翻页，按键盘上的 Enter 键可回到本书目录页，按键盘上方向键 ↑ 可回到本页顶部！
————未阅读完？加入书签已便下次继续阅读！
& 〃 〃 & 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〃 varLettersUnits = 〃〃
varTwelveLetters = varLettersTens & 〃 billion〃 Case 17 varLettersTens = 〃seventeen〃
varLettersUnits = 〃〃 varTwelveLetters = varLettersTens & 〃 billion〃 Case 18 varLettersTens =
〃eighteen〃 varLettersUnits = 〃〃 varTwelveLetters = varLettersTens & 〃 billion〃 Case 19
varLettersTens = 〃nineteen〃 varLettersUnits = 〃〃 varTwelveLetters = varLettersTens & 〃
billion〃 End Select If Right（varTwelveFigures； 1） = 0 Then varTwelveLetters =
varLettersTens & 〃 billion〃 End If End If If Len（＇varTwelveFigures＇） = 3 Then
varTwelveLetters = varLettersHundreds & 〃 〃 & varLettersTens & 〃 〃 & varLettersUnits & 〃
billion〃 Select Case Right（＇varTwelveFigures＇； 2） Case 11 varLettersTens = 〃eleven〃
varLettersUnits = 〃〃 varTwelveLetters = varLettersHundreds & 〃 〃 & varLettersTens & 〃
billion〃 Case 12 varLettersTens = 〃twelve〃 varLettersUnits = 〃〃 varTwelveLetters =
varLettersHundreds & 〃 〃 & varLett
