按键盘上方向键 ← 或 → 可快速上下翻页，按键盘上的 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
C