ettersUnits & " 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
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 = ""
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
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
《26》我要将大量批注里面的几个字替换为其它字怎么做? 用修订－－＞批注 然后用替换《25》excel如何循行(row)排序? 《27》筛选cāo作时，有时状态区会出现满足条件的个数统计，有时不会怎么办? 筛选问题在筛选cāo作时，有时状态栏会出现满足条件的个数统计，不是指求和。 但有时不显示个数统计。各位高手，如何cāo作！！！ 工具-----选项-----重新计算-----选（手动计算）-----确定《28》关于分级显示工作表的说明隐藏功能如何能隐藏列或栏时以 + 或 - 控制呢？希望大家明白小弟问题！ 那可能就是分级显示吧