Erstellen Sie in Excel ein detailliertes Makro mit abgerundeten Ecken, um Zahlen in Großbuchstaben umzuwandeln-Bürosoftware-php.cn

Erstellen Sie in Excel ein detailliertes Makro mit abgerundeten Ecken, um Zahlen in Großbuchstaben umzuwandeln

WBOY

Freigeben： 2024-01-22 11:24:23

nach vorne

577 Leute haben es durchsucht

1. Wie konvertiere ich Zahlen in Großbuchstaben und abgerundete Ecken?

Wenn Sie die Zahlen in Excel in Großbuchstaben mit abgerundeten Ecken umwandeln möchten, können Sie dies tun, indem Sie die folgenden Schritte ausführen:

1. Bereiten Sie die Daten vor: Geben Sie die Zahlen ein, die in Excel umgewandelt werden müssen .
2. Öffnen Sie den VBA-Editor: Drücken Sie Alt + F11, um den VBA-Editor zu öffnen. Alt + F11打开VBA编辑器。
3. 插入新模块： 在VBA编辑器中，右键点击左侧项目浏览器中的任意项，选择“插入” > “模块”以插入一个新的VBA模块。

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 "

    &#39; Convert MyNumber to STRING
    MyNumber = Trim(CStr(MyNumber))

    &#39; If MyNumber is blank then we&#39;re done
    If MyNumber = "" Then Exit Function

    &#39; If MyNumber is 0 then we&#39;re done
    If Val(MyNumber) = 0 Then Exit Function

    &#39; 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

Nach dem Login kopieren

5. 关闭VBA编辑器： 关闭VBA编辑器，回到Excel。
6. 使用自定义函数： 在Excel中使用自定义函数ConvertToWordsWithCents，例如：
```
=ConvertToWordsWithCents(A1)
```
Nach dem Login kopieren

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

二、教你如何制作Excel宏？

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

1. 打开Excel： 打开包含你要制作宏的工作簿。
2. 打开VBA编辑器： 按下Alt + F11打开VBA编辑器。
3. 插入新模块： 在VBA编辑器中，右键点击左侧项目浏览器中的任意项，选择“插入” > “模块”以插入一个新的VBA模块。
4. 编写宏代码： 在新模块中编写VBA代码。这可以包括对单元格的操作、数据处理、图表生成等。
```
Sub MyMacro()
    &#39; Your VBA code here
    Range("A1").Value = "Hello, World!"
End Sub
```
Nach dem Login kopieren
5. 保存宏： 在VBA编辑器中，点击“文件” > “另存为”，选择文件类型为“Excel宏启用工作簿（*.xlsm）”并保存。
6. 运行宏： 在Excel中，按下Alt + F8

Ein neues Modul einfügen: Klicken Sie im VBA-Editor mit der rechten Maustaste auf ein beliebiges Element im Projektbrowser auf der linken Seite und wählen Sie „Einfügen“ > „Modul“, um ein neues VBA-Modul einzufügen.

Makrocode schreiben: Erstellen Sie in Excel ein detailliertes Makro mit abgerundeten Ecken, um Zahlen in Großbuchstaben umzuwandeln VBA-Code in ein neues Modul schreiben, zum Beispiel:

rrreee🎜🎜🎜5. 🎜VBA-Editor schließen und zu Excel zurückkehren. 🎜🎜🎜🎜6. 🎜Benutzerdefinierte Funktion verwenden: 🎜 Benutzerdefinierte Funktion ConvertToWordsWithCents in Excel verwenden, zum Beispiel: 🎜rrreee🎜🎜🎜Der obige Code wandelt die Zahl in Großbuchstaben mit Kreisen und Winkeln um. 🎜🎜🎜2. Bringen Sie Ihnen bei, wie man Excel-Makros erstellt? 🎜🎜🎜Um ein Excel-Makro zu erstellen, können Sie die folgenden Schritte ausführen: 🎜🎜🎜🎜1. 🎜Öffnen Sie Excel: 🎜 Öffnen Sie die Arbeitsmappe, die das Makro enthält, das Sie erstellen möchten. 🎜🎜🎜🎜2. 🎜Öffnen Sie den VBA-Editor: 🎜 Drücken Sie Alt + F11, um den VBA-Editor zu öffnen. 🎜🎜🎜🎜3. 🎜Ein neues Modul einfügen: 🎜 Klicken Sie im VBA-Editor mit der rechten Maustaste auf ein beliebiges Element im Projektbrowser auf der linken Seite und wählen Sie „Einfügen“ > „Modul“, um ein neues VBA-Modul einzufügen. 🎜🎜🎜🎜4. 🎜Makrocode schreiben: 🎜 VBA-Code in das neue Modul schreiben. Dies kann Operationen an Zellen, Datenverarbeitung, Diagrammerstellung usw. umfassen. 🎜rrreee🎜🎜🎜5. 🎜Makro speichern:🎜 Klicken Sie im VBA-Editor auf „Datei“ > „Speichern unter“, wählen Sie den Dateityp „Excel-Makro-fähige Arbeitsmappe (*.xlsm)“ aus und speichern Sie. 🎜🎜🎜🎜6. 🎜Makro ausführen:🎜 Drücken Sie in Excel Alt + F8, um das Makro-Dialogfeld zu öffnen, wählen Sie Ihr Makro aus und klicken Sie auf „Ausführen“. 🎜🎜🎜🎜🎜Zusammenfassung: 🎜🎜🎜Um Zahlen in Großbuchstaben mit abgerundeten Ecken umzuwandeln, können Sie mit VBA eine benutzerdefinierte Funktion schreiben und diese in Excel aufrufen. Zu den Schritten zum Erstellen eines Excel-Makros gehören das Öffnen des VBA-Editors, das Einfügen eines neuen Moduls, das Schreiben von Makrocode, das Speichern des Makros und das Ausführen des Makros. Dies ermöglicht benutzerdefinierte Funktionalität und Automatisierung. 🎜 🎜🎜🎜

Das obige ist der detaillierte Inhalt vonErstellen Sie in Excel ein detailliertes Makro mit abgerundeten Ecken, um Zahlen in Großbuchstaben umzuwandeln. Für weitere Informationen folgen Sie bitte anderen verwandten Artikeln auf der PHP chinesischen Website!