目录:
视频: NYSTV - The Book of Enoch and Warning for The Final Generation (Is that us?) - Multi - Language 2024
如果您需要显示一个以文本形式写出的数字，您可能发现Excel不提供这样的功能。当Excel无法交付时，通常可以通过使用VBA来纠正缺陷。这是一个名为SPELLDOLLARS的VBA函数，可以在工作表公式中使用。
Excel示例
以下是SPELLDOLLARS的一些示例。
VBA代码
要使用此代码，请按Alt + F11激活Visual Basic编辑器。然后选择插入→模块来插入一个新的VBA模块。复制代码并将其粘贴到新模块中。
函数SPELLDOLLARS（单元格）作为Variant'返回一个值，拼出单词Dim Dollars As String，Cents As String Dim TextLen As Long，Pos As Long Dim Temp As String Dim iHundreds As Long，iTens As Long，iOnes As长变暗作为变种，青少年作为变种，十变种变暗单位（2至5）作为字符串昏暗bHit作为布尔值，NegFlag作为布尔“它是一个非数字或空单元？如果不是IsNumeric（cell）或cell =“”则SPELLDOLLARS = CVErr（xlErrValue）退出函数结束如果是否为负值？如果单元格15，那么SPELLDOLLARS = CVErr（xlErrNum）退出函数结束如果'做美分零分=右（美元，2）&“/ 100美元”如果单元= Pos - 2然后bHit = False如果TextLen> = Pos然后iHundreds如果iHundreds> 0 Then Temp = Temp&“”&Ones（iHundreds）&“Hundred”bHit = True End If If iTens = 0 iOnes =（如果iHundreds> 0） = 0如果TextLen> = Pos - 1 Then iTens = Asc（Mid $（Dollars，TextLen - Pos + 2，1）） - 48 End If If TextLen> = Pos - 2 Then iOnes = Asc（Mid $（Dollars，TextLen - Pos + 3，1）） - 48 End if If iTens = 1 Then Temp = Temp&“”&Teens（iOnes）bHit = True Else If iTens> = 2 Then Temp = Temp&“”&Tens（iTens）bHit = True结束如果iOnes> 0然后如果iTens> = 2那么Temp = Temp&“ - ”Else Temp = Temp&“”End If Temp = Temp&Ones（iOnes）bHit = True End If If If bHit and Pos > 3 Then Temp = Temp&“”&Units（Pos 3）End If End If Next Pos SPELLDOLLARS = Trim（Temp）&“and”&Cents If NegFlag Then SPELLDO LLARS =“（”&SPELLDOLLARS&“）”End Function
