按键盘上方向键 ← 或 → 可快速上下翻页，按键盘上的 Enter 键可回到本书目录页，按键盘上方向键 ↑ 可回到本页顶部！
————未阅读完？加入书签已便下次继续阅读！
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 & 〃 〃 & varLettersTens & 〃 billion〃 Case 13 varLettersTens = 〃thirteen〃
varLettersUnits = 〃〃
CCVII
…………………………………………………………Page 208……………………………………………………………
Excel_word_ppt_使用技巧大全（完全版）
varTwelveLetters = varLettersHundreds & 〃 〃 & varLettersTens & 〃 billion〃 Case 14
varLettersTens = 〃fourteen〃 varLettersUnits = 〃〃 varTwelveLetters = varLettersHundreds & 〃
〃 & varLettersTens & 〃 billion〃 Case 15 varLettersTens = 〃fifteen〃 varLettersUnits = 〃〃
varTwelveLetters = varLettersHundreds & 〃 〃 & varLettersTens & 〃 billion〃 Case 16
varLettersTens = 〃sixteen〃 varLettersUnits = 〃〃 varTwelveLetters = varLettersHundreds & 〃 〃
& varLettersTens & 〃 billion〃 Case 17 varLettersTens = 〃seventeen〃 varLettersUnits = 〃〃
varTwelveLetters = varLettersHundreds & 〃 〃 & varLettersTens & 〃 billion〃 Case 18
varLettersTens = 〃eighteen〃 varLettersUnits = 〃〃 varTwelveLetters = varLettersHundreds & 〃
〃 & varLettersTens & 〃 billion〃 Case 19 varLettersTens = 〃nineteen〃 varLettersUnits = 〃〃
varTwelveLetters = varLettersHundreds & 〃 〃 & varLettersTens & 〃 billion〃 End Select If
Right（varTwelveFigures； 1） = 0 Then varTwelveLetters = varLettersHundreds & 〃 〃 &
varLettersTens & 〃 billion〃 End If If Right（Left（＇varTwelveFigures＇； 2）； 1） = 0 Then
varTwelveLetters = varLettersHundreds & 〃 〃 & varLettersUnits & 〃 billion〃 End If End If If
Right（varNineFigures； 2） = 〃00〃 Then varNineLetters = varLettersHundreds & 〃 〃 & 〃 billions〃
GoTo jumpFinish End If
CCVIII
…………………………………………………………Page 209……………………………………………………………
Excel_word_ppt_使用技巧大全（完全版）
End If ''''
**************************************************************************
********************* ' jumpFinish： If varLenghtNumber 《 4 Then fctNumbersLetters =
varThreeLetters End If If varLenghtNumber 》 3 And varLenghtNumber 《 7 Then
fctNumbersLetters = varSixLetters & 〃 〃 & varThreeLetters End If If varLenghtNumber 》 6
And varLenghtNumber 《 10 Then fctNumbersLetters = varNineLetters & 〃 〃 & varSixLetters
& 〃 〃 & varThreeLetters If varSixFigures = 0 Then fctNumbersLetters = varNineLetters & 〃 〃
& varThreeLetters End If End If If varLenghtNumber 》 9 And varLenghtNumber 《 13 Then
fctNumbersLetters = varTwelveLetters & 〃 〃 & varNineLetters & 〃 〃 & varSixLetters & 〃 〃 &
varThreeLetters If varSixFigures = 0 Then fctNumbersLetters = varTwelveLetters & 〃 〃 &
varNineLetters & 〃 〃 & varThreeLetters End If If varSixFigures = 0 And varNineFigures = 0
Then fctNumbersLetters = varTwelveLetters & 〃 〃 & varThreeLetters End If End If
varPremiereLettre = UCase（Left（fctNumbersLetters； 1）） fctNumbersLetters =
varPremiereLettre & Right（fctNumbersLetters； Len（fctNumbersLetters） 1） End Function
《24》如何让单元格为0时显示为 格式，单元格，数字，会计专用
当单元格为〃0〃时；也可以点选工具栏上的〃千分位分隔符〃；即〃逗号图标〃。
选中表格范围 编辑/定位/空单元格然后输入 按c＋enter 定位后，将鼠标在公式编辑栏中点
一下，然后直接输入“…〃；然后按Ctrl＋Enter
CCIX
…………………………………………………………Page 210……………………………………………………………
Excel_word_ppt_使用技巧大全（完全版）
《26》我要将大量批注里面的几个字替换为其它字怎么做？ 用修订－－＞批注 然后用替换
《25》excel如何循行（row）排序？ 《27》筛选操作时，有时状态区会出现满足条件的个数统计，
有时不会怎么办？ 筛选问题在筛选操作时，有时状态栏会出现满足条件的个数统计，不是指求
和。 但有时不显示个数统计。各位高手，如何操作！！！ 工具……………选项……………重新计算……………选
（手动计算）……………确定《28》关于分级显示工作表的说明隐藏功能如何能隐藏列或栏时以 ＋