|
Microsoft a développé une application add-on qui permettra de créer une fonction de chiffres aux mots dans Excel. La fonction convertit la valeur numérique d'une cellule de feuille de calcul dans le texte , par exemple , 1,29 $ apparaîtra comme un dollar et vingt-neuf cents. Pour convertir des nombres en mots dans Excel , la fonction doit être créée manuellement à l'aide de Visual Basic Editor , qui est livré en standard dans toutes les applications Office . Après que la fonction a été créée, elle peut être accessible par la barre d'outils Excel pour convertir des nombres en mots dans un tableur . Instructions
Création de la fonction Numéros aux mots dans Excel
1 Ouvrez le programme Microsoft Excel.
2 Maintenez la touche Alt enfoncée et appuyez sur F11 pour ouvrir Visual Basic Editor .
3 Choisissez " Insertion" de la barre d'outils principale et cliquez sur " Module ".
4 Copiez et collez ou tapez le Microsoft suivant formule dans le module:
Option Explicit'Main FunctionFunction SpellNumber ( ByVal MyNumber ) Dollars Dim , cents, TempDim DecimalPlace , CountReDim place (9 ) Comme StringPlace (2) = place "Mille " (3) = "Million " place ( 4) =" Billion " place ( 5) =" Trillion « représentation String de amount.MyNumber = Trim ( Str ( MyNumber ) ) 'Position de décimales 0 si none.DecimalPlace = InStr ( MyNumber », « . ) » Autre cents et mis à MyNumber dollar s'Ã DecimalPlace > 0 ThenCents = Gettens ( gauche ( Mid ( MyNumber , DecimalPlace + 1) & _ " 00 " , 2)) MyNumber = Trim ( gauche ( MyNumber , DecimalPlace - 1) ) Fin IfCount = 1Do Bien MyNumber <> "" Temp = GetHundreds ( Right ( MyNumber , 3) ) Si Temp < > "" Then Dollars = Temp & Place ( Count) et DollarsIf Len ( MyNumber ElseDollars 3) ElseMyNumber = " " End IfCount = Count + 1LoopSelect DollarsCase de cas "" Dollars = " Pas de Dollars " Case "One" Dollars = " One Dollar " cas = - )> 3 ThenMyNumber = gauche ( MyNumber , Len ( MyNumber ) dollars et " dollars " Fin SelectSelect CentsCase de cas " " Cents = "et sans centimes " cas "un" Cents = "et un cent " ElseCents de cas = "et" & Cents et " Cents " Fin SelectSpellNumber = dollars & CentsEnd Fonction: ' convertit un nombre de 100 à 999 en textFunction GetHundreds ( ByVal MyNumber ) Résultat As StringIf Val ( MyNumber ) = 0 Then Quittez FunctionMyNumber = Right ( "000" et MyNumber , 3) « Autre les centaines place.If Mid ( MyNumber , 1, 1 ) <> "0" ThenResult = GetDigit (Mid ( MyNumber , 1, 1 ) ) & " Hundred " End If ' Convertir les dizaines place.If Mid ( MyNumber , 2, 1 ) <> "0" ThenResult = Résultat & Gettens ( Mid ( MyNumber , 2)) = Résultat ElseResult & GetDigit (Mid ( MyNumber , 3) ) Fin IfGetHundreds = ResultEnd Fonction: ' convertit un nombre de 10 à 99 en text.Function Gettens ( TensText ) Résultat As StringResult = ""' nULL à la fonction temporaire valeur plus Val ( Gauche ( TensText , 1)) = 1 Then ' Si la valeur entre 10-19 ... Select Case Val ( TensText ) cas 10: Résultat = Case " Ten" 11: Résultat = " Eleven " Case 12: Résultat = Case "Douze " 13: Résultat = Case " Thirteen" 14: Résultat = Case " Quatorze " 15: Résultat = Case " Quinze " 16: Résultat = Case " Sixteen " 17: Résultat = " Seventeen" Case 18: Résultat = Case " Eighteen " 19: Résultat = Case " Nineteen " ElseEnd SelectElse ' Si la valeur entre 20-99 ... Select Case Val ( gauche ( TensText , 1)) cas 2: Résultat = Case " Vingt " 3: Résultat = Case " Trente " 4: Résultat = Case " Quarante " 5: Résultat = Case "Fifty " 6: Résultat = Case " Sixty" 7: Résultat = Case " Soixante-dix " 8: Résultat = Case " Quatre-vingt " 9: Résultat = Case " Ninety " ElseEnd SelectResult = Résultat & GetDigit _ ( Right ( TensText , 1) ) « Récupérer ceux place.End IfGetTens = ResultEnd Fonction: ' convertit un nombre de 1 à 9 dans text.Function GetDigit ( chiffres ) Select Case Val ( chiffres ) cas 1: GetDigit = "One" cas 2: GetDigit = " deux " cas 3: GetDigit =" " cas 4: GetDigit = " Trois " cas 5: GetDigit =" Quatre Cinq " Case 6: GetDigit = " Six " cas 7: GetDigit = " Seven " cas 8: GetDigit =" Huit " Case 9: GetDigit = Case "Nine" Else : . GetDigit = " " End Function SelectEnd
5 Choisissez SpellNumber dans le menu déroulant du module
Modification des numéros à mots dans une feuille de calcul
6 Ouvrez une feuille de calcul Excel.
7 Sélectionnez la cellule dans laquelle vous souhaitez convertir des nombres en texte en cliquant sur la cellule.
8 Cliquez sur l'onglet Fonction Coller /Insérer ( fx) .
9 Cliquez sur " User Defined " dans le menu de gauche et cliquez sur " SpellNumber » dans le menu de droite .
10 Type dans le nombre que vous voulez converti en mots.
11 Cliquez sur "OK". Le numéro apparaîtra dans la cellule sous forme de texte .
|
