Créez une macro détaillée avec des coins arrondis dans Excel pour convertir les nombres en majuscules

1. Comment convertir des nombres en majuscules et en coins arrondis dans Excel ?

Si vous souhaitez convertir les nombres dans Excel en majuscules avec des coins arrondis, vous pouvez le faire en suivant les étapes :

1. 1 Préparez les données : Saisissez les nombres à convertir dans Excel. .

2. 2. Ouvrez l'éditeur VBA : Appuyez sur Alt + F11 pour ouvrir l'éditeur VBA. Alt + F11打开VBA编辑器。

3. 3. 插入新模块： 在VBA编辑器中，右键点击左侧项目浏览器中的任意项，选择“插入” > “模块”以插入一个新的VBA模块。

4. 4. 编写宏代码： 在新模块中编写VBA代码，例如：

   Function ConvertToWordsWithCents(ByVal MyNumber)
       Dim Temp
       Dim DecimalPlace, Count
       ReDim Place(9) As String
       Place(2) = " Thousand "
       Place(3) = " Million "
       Place(4) = " Billion "
       Place(5) = " Trillion "
   
       ' Convert MyNumber to STRING
       MyNumber = Trim(CStr(MyNumber))
   
       ' If MyNumber is blank then we're done
       If MyNumber = "" Then Exit Function
   
       ' If MyNumber is 0 then we're done
       If Val(MyNumber) = 0 Then Exit Function
   
       ' Convert MyNumber to hopper
       DecimalPlace = InStr(MyNumber, ".")
       If DecimalPlace > 0 Then
           Temp = GetTens(Left(Mid(MyNumber, DecimalPlace + 1) & "00", 2))
           MyNumber = Trim(Left(MyNumber, DecimalPlace - 1))
       End If
   
       Count = 1
       Do While MyNumber <> ""
           Temp = GetHundreds(Right(MyNumber, 3))
           If Temp <> "" Then OutF = Temp & Place(Count) & OutF
           If Len(MyNumber) > 3 Then
               MyNumber = Left(MyNumber, Len(MyNumber) - 3)
           Else
               MyNumber = ""
           End If
           Count = Count + 1
       Loop
   
       Select Case DecimalPlace
           Case 0
               ConvNumToWordsWithCents = " Dollar " & OutF & "Only"
           Case 1
               ConvNumToWordsWithCents = " Dollar " & OutF & "and " & GetTens(Left(Mid(MyNumber & "00", 2), 2)) & " Cents Only"
           Case 2
               ConvNumToWordsWithCents = " Dollar " & OutF & GetTens(Left(Mid(MyNumber & "00", 2), 2)) & " Cents Only"
       End Select
   End Function
   
   &#39; Converts a number from 100-999 into text
   Function GetHundreds(ByVal MyNumber)
       Dim Result As String
       If Val(MyNumber) = 0 Then Exit Function
       MyNumber = Right("000" & MyNumber, 3)
       &#39; Convert the hundreds place.
       If Mid(MyNumber, 1, 1) <> "0" Then
           Result = GetDigit(Mid(MyNumber, 1, 1)) & " Hundred "
       End If
       &#39; Convert the tens and ones place.
       If Mid(MyNumber, 2, 1) <> "0" Then
           Result = Result & GetTens(Mid(MyNumber, 2))
       Else
           Result = Result & GetDigit(Mid(MyNumber, 3))
       End If
       GetHundreds = Result
   End Function
   
   &#39; Converts a number from 10 to 99 into text.
   Function GetTens(TensText)
       Dim Result As String
       Result = ""           &#39; Null out the temporary function value.
       If Val(Left(TensText, 1)) = 1 Then   &#39; If value between 10-19...
           Select Case Val(TensText)
               Case 10: Result = "Ten"
               Case 11: Result = "Eleven"
               Case 12: Result = "Twelve"
               Case 13: Result = "Thirteen"
               Case 14: Result = "Fourteen"
               Case 15: Result = "Fifteen"
               Case 16: Result = "Sixteen"
               Case 17: Result = "Seventeen"
               Case 18: Result = "Eighteen"
               Case 19: Result = "Nineteen"
               Case Else
           End Select
       Else                                 &#39; If value between 20-99...
           Select Case Val(Left(TensText, 1))
               Case 2: Result = "Twenty "
               Case 3: Result = "Thirty "
               Case 4: Result = "Forty "
               Case 5: Result = "Fifty "
               Case 6: Result = "Sixty "
               Case 7: Result = "Seventy "
               Case 8: Result = "Eighty "
               Case 9: Result = "Ninety "
               Case Else
           End Select
           Result = Result & GetDigit _
               (Right(TensText, 1))   &#39; Retrieve ones place.
       End If
       GetTens = Result
   End Function
   
   &#39; Converts a number from 1 to 9 into text.
   Function GetDigit(Digit)
       Select Case Val(Digit)
           Case 1: GetDigit = "One"
           Case 2: GetDigit = "Two"
           Case 3: GetDigit = "Three"
           Case 4: GetDigit = "Four"
           Case 5: GetDigit = "Five"
           Case 6: GetDigit = "Six"
           Case 7: GetDigit = "Seven"
           Case 8: GetDigit = "Eight"
           Case 9: GetDigit = "Nine"
           Case Else: GetDigit = ""
       End Select
   End Function

5. 5. 关闭VBA编辑器： 关闭VBA编辑器，回到Excel。

6. 6. 使用自定义函数： 在Excel中使用自定义函数ConvertToWordsWithCents，例如：

   =ConvertToWordsWithCents(A1)

以上代码会将数字转换成大写形式，并带有圆角分。

二、教你如何制作Excel宏？

制作Excel宏可以通过以下步骤：

1. 1. 打开Excel： 打开包含你要制作宏的工作簿。

2. 2. 打开VBA编辑器： 按下Alt + F11打开VBA编辑器。

3. 3. 插入新模块： 在VBA编辑器中，右键点击左侧项目浏览器中的任意项，选择“插入” > “模块”以插入一个新的VBA模块。

4. 4. 编写宏代码： 在新模块中编写VBA代码。这可以包括对单元格的操作、数据处理、图表生成等。

   Sub MyMacro()
       ' Your VBA code here
       Range("A1").Value = "Hello, World!"
   End Sub

5. 5. 保存宏： 在VBA编辑器中，点击“文件” > “另存为”，选择文件类型为“Excel宏启用工作簿（*.xlsm）”并保存。

6. 6. 运行宏： 在Excel中，按下Alt + F8

3.

Insérer un nouveau module : Dans l'éditeur VBA, cliquez avec le bouton droit sur n'importe quel élément du navigateur de projet à gauche et sélectionnez "Insérer" > "Module" pour insérer un nouveau module VBA.

4.

Écrivez le code de la macro : Écrivez le code VBA dans un nouveau module, par exemple :

rrreee🎜🎜🎜5 🎜Fermez l'éditeur VBA : 🎜 Fermez l'éditeur VBA et revenez à Excel. 🎜🎜🎜🎜6. 🎜Utilisez la fonction personnalisée : 🎜 Utilisez la fonction personnalisée ConvertToWordsWithCents dans Excel, par exemple : 🎜rrreee🎜🎜🎜Le code ci-dessus convertira le nombre en majuscules avec des cercles et des angles. 🎜🎜🎜2. Vous apprendre à créer une macro Excel ? 🎜🎜🎜Pour créer une macro Excel, vous pouvez suivre les étapes suivantes : 🎜🎜🎜🎜1 🎜Ouvrir Excel : 🎜 Ouvrez le classeur qui contient la macro que vous souhaitez créer. 🎜🎜🎜🎜2. 🎜Ouvrez l'éditeur VBA : 🎜 Appuyez sur Alt + F11 pour ouvrir l'éditeur VBA. 🎜🎜🎜🎜3. 🎜Insérer un nouveau module : 🎜 Dans l'éditeur VBA, cliquez avec le bouton droit sur n'importe quel élément du navigateur de projet à gauche et sélectionnez "Insérer" > "Module" pour insérer un nouveau module VBA. 🎜🎜🎜🎜4. 🎜Écrire du code macro : 🎜 Écrivez du code VBA dans le nouveau module. Cela peut inclure des opérations sur les cellules, le traitement des données, la génération de graphiques, etc. 🎜rrreee🎜🎜🎜5. 🎜Enregistrer la macro :🎜 Dans l'éditeur VBA, cliquez sur "Fichier" > "Enregistrer sous", sélectionnez le type de fichier "Classeur compatible avec les macros Excel (*.xlsm)" et enregistrez. 🎜🎜🎜🎜6. 🎜Exécuter la macro : 🎜 Dans Excel, appuyez sur Alt + F8 pour ouvrir la boîte de dialogue Macro, sélectionnez votre macro et cliquez sur "Exécuter". 🎜🎜🎜🎜🎜Résumé : 🎜🎜🎜Pour convertir des nombres en majuscules avec des coins arrondis, vous pouvez écrire une fonction personnalisée à l'aide de VBA et l'appeler dans Excel. Les étapes pour créer une macro Excel incluent l'ouverture de l'éditeur VBA, l'insertion d'un nouveau module, l'écriture du code de la macro, l'enregistrement de la macro et l'exécution de la macro. Cela permet des fonctionnalités personnalisées et une automatisation. 🎜 🎜🎜🎜

Ce qui précède est le contenu détaillé de. pour plus d'informations, suivez d'autres articles connexes sur le site Web de PHP en chinois!