1. Bagaimana untuk menukar nombor kepada huruf besar dan sudut bulat dalam excel?
Jika anda ingin menukar nombor dalam Excel kepada bentuk huruf besar dengan sudut bulat, anda boleh melakukannya dengan mengikuti langkah berikut:
1 Sediakan data: Masukkan nombor yang perlu ditukar dalam Excel .
2 Buka editor VBA: Tekan Alt + F11 untuk membuka editor VBA. 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 "
' 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
' 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)
' Convert the hundreds place.
If Mid(MyNumber, 1, 1) <> "0" Then
Result = GetDigit(Mid(MyNumber, 1, 1)) & " Hundred "
End If
' 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
' Converts a number from 10 to 99 into text.
Function GetTens(TensText)
Dim Result As String
Result = "" ' Null out the temporary function value.
If Val(Left(TensText, 1)) = 1 Then ' 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 ' 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)) ' Retrieve ones place.
End If
GetTens = Result
End Function
' 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 FunctionSalin selepas log masuk
5. 关闭VBA编辑器： 关闭VBA编辑器，回到Excel。
6. 使用自定义函数： 在Excel中使用自定义函数ConvertToWordsWithCents，例如：
=ConvertToWordsWithCents(A1)
Salin selepas log masuk
以上代码会将数字转换成大写形式，并带有圆角分。
二、教你如何制作Excel宏？
制作Excel宏可以通过以下步骤：
1. 打开Excel： 打开包含你要制作宏的工作簿。
2. 打开VBA编辑器： 按下Alt + F11打开VBA编辑器。
3. 插入新模块： 在VBA编辑器中，右键点击左侧项目浏览器中的任意项，选择“插入” > “模块”以插入一个新的VBA模块。
4. 编写宏代码： 在新模块中编写VBA代码。这可以包括对单元格的操作、数据处理、图表生成等。
Sub MyMacro()
' Your VBA code here
Range("A1").Value = "Hello, World!"
End SubSalin selepas log masuk
5. 保存宏： 在VBA编辑器中，点击“文件” > “另存为”，选择文件类型为“Excel宏启用工作簿（*.xlsm）”并保存。
6. 运行宏： 在Excel中，按下Alt + F8
3
Masukkan modul baharu: Dalam editor VBA, klik kanan mana-mana item dalam pelayar projek di sebelah kiri dan pilih "Sisipkan" > "Modul" untuk memasukkan modul VBA baharu.
4
Tulis kod makro: 
Tulis kod VBA dalam modul baharu, contohnya:
rrreee🎜🎜🎜5 🎜Tutup editor VBA: 🎜 Tutup editor VBA dan kembali ke Excel. 🎜🎜🎜🎜6 🎜Gunakan fungsi tersuai: 🎜 Gunakan fungsi tersuai
ConvertToWordsWithCents dalam Excel, contohnya: 🎜rrreee🎜🎜🎜Kod di atas akan menukar nombor kepada huruf besar dengan bulatan Angles. 🎜🎜🎜2. Mengajar anda cara membuat makro Excel? 🎜🎜🎜Untuk mencipta makro Excel, anda boleh mengikuti langkah berikut: 🎜🎜🎜🎜1 🎜Buka Excel: 🎜 Buka buku kerja yang mengandungi makro yang ingin anda buat. 🎜🎜🎜🎜2 🎜Buka editor VBA: 🎜 Tekan Alt + F11 untuk membuka editor VBA. 🎜🎜🎜🎜3 🎜Masukkan modul baharu: 🎜 Dalam editor VBA, klik kanan mana-mana item dalam pelayar projek di sebelah kiri dan pilih "Sisipkan" > "Modul" untuk memasukkan modul VBA baharu. 🎜🎜🎜🎜4. 🎜Menulis kod makro: 🎜 Tulis kod VBA dalam modul baharu. Ini boleh termasuk operasi pada sel, pemprosesan data, penjanaan carta, dsb. 🎜rrreee🎜🎜🎜5 🎜Simpan Makro:🎜 Dalam editor VBA, klik "Fail" > "Simpan Sebagai", pilih jenis fail sebagai "Buku Kerja Didayakan Makro Excel (*.xlsm)" dan simpan. 🎜🎜🎜🎜6 🎜Jalankan Makro: 🎜 Dalam Excel, tekan Alt + F8 untuk membuka kotak dialog Makro, pilih makro anda dan klik "Jalankan". 🎜🎜🎜🎜🎜Ringkasan: 🎜🎜🎜Untuk menukar nombor kepada huruf besar dengan penjuru bulat, anda boleh menulis fungsi tersuai menggunakan VBA dan memanggilnya dalam Excel. Langkah-langkah untuk mencipta makro Excel termasuk membuka editor VBA, memasukkan modul baharu, menulis kod makro, menyimpan makro dan menjalankan makro. Ini membolehkan fungsi tersuai dan automasi. 🎜
🎜🎜🎜Atas ialah kandungan terperinci Buat makro terperinci dengan sudut bulat dalam Excel untuk menukar nombor kepada huruf besar. Untuk maklumat lanjut, sila ikut artikel berkaitan lain di laman web China PHP!
![[Web front-end] Permulaan pantas Node.js](https://img.php.cn/upload/course/000/000/067/662b5d34ba7c0227.png)
