Excel word ppt office使用技巧大全(DOC格式)-第31部分
按键盘上方向键 ← 或 → 可快速上下翻页，按键盘上的 Enter 键可回到本书目录页，按键盘上方向键 ↑ 可回到本页顶部！
————未阅读完？加入书签已便下次继续阅读！
Select Case Val（MyDigit）
Case 1： ConvertDigit = 〃One〃
Case 2： ConvertDigit = 〃Two〃
Case 3： ConvertDigit = 〃Three〃
Case 4： ConvertDigit = 〃Four〃
Case 5： ConvertDigit = 〃Five〃
Case 6： ConvertDigit = 〃Six〃
Case 7： ConvertDigit = 〃Seven〃
Case 8： ConvertDigit = 〃Eight〃
Case 9： ConvertDigit = 〃Nine〃
Case Else： ConvertDigit = 〃〃
End Select
End Function
===
《23》转英文（另一篇） EXCEL中如何将数字转换为英文在EXCEL中通过格式和TEXT函数可以
将数字表示为中文大写格式，现在我需要将数字转示为英文文字格式，如将220转换为two
hundred and twenty，请问有什么办法实现。
===
Function fctNumbersLetters（NumberFigures） Dim varLenghtNumber As Integer Dim
varThreeLetters As String Dim varThreeFigures As String Dim varSixLetters As String Dim
varSixFigures As String Dim varNineLetters As String Dim varNineFigures As String Dim
varTwelveLetters As String Dim varTwelveFigures As String Dim varLettersUnits As String
Dim varLettersTens As String
CXCV
…………………………………………………………Page 196……………………………………………………………
Excel_word_ppt_使用技巧大全（完全版）
Dim varLettersHundreds As String Dim varUnits（9） As String Dim varTens（9） As String Dim
varHundreds（9） As String Dim varPremiereLettre As String NumberFigures =
Int（Val（NumberFigures）） varLenghtNumber = Len（NumberFigures） varThreeFigures =
Right（NumberFigures； 3） If varLenghtNumber 》 3 And varLenghtNumber 《 7 Then
varSixFigures = Right（Left（NumberFigures； Len（NumberFigures） 3）； 3） End If If
varLenghtNumber 》 6 And varLenghtNumber 《 10 Then varSixFigures =
Right（Left（NumberFigures； Len（NumberFigures） 3）； 3） varNineFigures =
Right（Left（NumberFigures； Len（NumberFigures） 6）； 3） End If If varLenghtNumber 》 9 And
varLenghtNumber 《 13 Then varSixFigures = Right（Left（NumberFigures；
Len（NumberFigures） 3）； 3） varNineFigures = Right（Left（NumberFigures；
Len（NumberFigures） 6）； 3） varTwelveFigures = Right（Left（NumberFigures；
Len（NumberFigures） 9）； 3） End If '
**********************************************************************
varUnits（0） = 〃0〃 varUnits（1） = 〃one〃 varUnits（2） = 〃two〃 varUnits（3） = 〃three〃 varUnits（4）
= 〃four〃 varUnits（5） = 〃five〃 varUnits（6） = 〃six〃 varUnits（7） = 〃seven〃 varUnits（8） = 〃eight〃
varUnits（9） = 〃nine〃 varTens（0） = 〃0〃 varTens（1） = 〃ten〃 varTens（2） = 〃twenty〃 varTens（3）
= 〃thirty〃 varTens（4） = 〃forty〃 varTens（5） = 〃fifty〃 varTens（6） = 〃sixty〃 varTens（7） =
〃seventy〃 varTens（8） = 〃eighty〃 varTens（9） = 〃ninety〃
CXCVI
…………………………………………………………Page 197……………………………………………………………
Excel_word_ppt_使用技巧大全（完全版）
varHundreds（0） = 〃0〃 varHundreds（1） = 〃one hundred〃 varHundreds（2） = 〃two hundred〃
varHundreds（3） = 〃three hundred〃 varHundreds（4） = 〃four hundred〃 varHundreds（5） = 〃five
hundred〃 varHundreds（6） = 〃six hundred〃 varHundreds（7） = 〃seven hundred〃
varHundreds（8） = 〃eight hundred〃 varHundreds（9） = 〃nine hundred〃 '
********************************************************************** '
Hundreds； Tens； Units varLettersUnits = varUnits（Right（＇varThreeFigures＇； 1））
varLettersTens = varTens（Left（Right（＇varThreeFigures＇； 2）； 1）） varLettersHundreds =
varHundreds（Left（Right（＇varThreeFigures＇； 3）； 1）） If Len（＇varThreeFigures＇） = 1 Then
varThreeLetters = varLettersUnits End If If Len（＇varThreeFigures＇） = 2 Then
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
varLettersT
