目次:
ビデオ: Excel応用 #07 文字にふりがなをふる方法 2024
テキストとして書き出された数値を表示する必要がある場合は、おそらくExcelがそのような機能を提供していないことがわかりました。 Excelが配信に失敗した場合、VBAを使用して不具合を修正することは可能です。ここでは、ワークシート式で使用できるVBA関数SPELLDOLLARSを示します。
Excelの例
SPELLDOLLARSの例をいくつか示します。
VBAコード
このコードを使用するには、Alt + F11キーを押してVisual Basic Editorをアクティブにします。次に、Insert→Moduleを選択して、新しいVBAモジュールを挿入します。コードをコピーして、新しいモジュールに貼り付けます。
関数SPELLDOLLARS（セル）Variantとして単語で指定された値を返します。Dim Dollars As String、Cents As String Dim TextLen As Long型Temp As String型、 （2〜5）文字列として淡色にbHit As Boolean、NegFlag As Boolean 'は数字でないか空のセルですか？ Not IsNumeric（セル）またはcell = "" Then SPELLDOLLARS = CVErr（xlErrValue）Exit Function End If 'それは否定ですか？ If cell = Pos - 2 Then bHit = False If TextLen> = Pos Then iHundreds（1）と入力します。もしiHundreds> 0ならばTemp = Temp& ""&Ones（iHundreds）& "Hundred" bHit = True End If If If End If iTens = 0 iOnes（$ $、 = 0 If TextLen> = Pos - 1 Then iTens = Asc（Mid $（ドル、テキストレン - ポジ+2,1）） - 48 End If If TextLen> = Pos - 2次に、iOnes = Asc（Mid $（Dollars、TextLenもしiTens> = 2ならば、Temp = Temp& ""&Tens（iTens）bHit（+ Pos + 3,1）） - 48 End If If iTens = 1 Then Temp = Temp& = True End if If iOnes> 0 Then If iTens> = 2次にTemp = Temp& " - " Else Temp = Temp& "" End If Temp = Temp&Ones（iOnes）bHit = True End If If If If bHit And Pos > 3 Then Temp = Temp& ""&Units（Pos 3）End If次のポジション終了SPELLDOLLARS =トリム（Temp）& "and"&Cents If NegFlag Then SPELLDO LLARS = "（"&SPELLDOLLARS& "）"終了機能
