Excel에서 모서리가 둥근 상세한 매크로를 만들어 숫자를 대문자로 변환하세요.

1. Excel에서 숫자를 대문자와 둥근 모서리로 변환하는 방법은 무엇입니까?

Excel의 숫자를 모서리가 둥근 대문자 형식으로 변환하려면 다음 단계를 따르세요.

1. 1. 데이터 준비: Excel에서 변환해야 하는 숫자를 입력하세요. .

2. 2. VBA 편집기 열기: Alt + F11를 눌러 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.

새 모듈 삽입: VBA 편집기에서 왼쪽 프로젝트 브라우저의 항목을 마우스 오른쪽 버튼으로 클릭하고 "삽입" > "모듈"을 선택하여 새 VBA 모듈을 삽입합니다.

4.

매크로 코드 작성: 새 모듈에 VBA 코드 작성(예:

rrreee🎜🎜🎜5) 🎜VBA 편집기 닫기: 🎜 VBA 편집기를 닫고 Excel로 돌아갑니다. 🎜🎜🎜🎜6. 🎜사용자 정의 함수 사용: 🎜 Excel에서 사용자 정의 함수 ConvertToWordsWithCents를 사용합니다. 예: 🎜rrreee🎜🎜🎜위 코드는 숫자를 원 각도로 대문자로 변환합니다. 🎜🎜🎜2. 엑셀 매크로 만드는 법을 가르쳐 주시나요? 🎜🎜🎜Excel 매크로를 만들려면 다음 단계를 따르세요. 🎜🎜🎜🎜1. 🎜Excel 열기: 🎜 만들려는 매크로가 포함된 통합 문서를 엽니다. 🎜🎜🎜🎜2. 🎜VBA 편집기 열기: 🎜 Alt + F11를 눌러 VBA 편집기를 엽니다. 🎜🎜🎜🎜3. 🎜새 모듈 삽입: 🎜 VBA 편집기에서 왼쪽 프로젝트 브라우저의 항목을 마우스 오른쪽 버튼으로 클릭하고 "삽입" > "모듈"을 선택하여 새 VBA 모듈을 삽입합니다. 🎜🎜🎜🎜4. 🎜매크로 코드 작성: 🎜 새 모듈에 VBA 코드를 작성합니다. 여기에는 셀 작업, 데이터 처리, 차트 생성 등이 포함될 수 있습니다. 🎜rrreee🎜🎜🎜5. 🎜매크로 저장:🎜 VBA 편집기에서 "파일" > "다른 이름으로 저장"을 클릭하고 파일 형식을 "Excel 매크로 사용 통합 문서(*.xlsm)"로 선택한 후 저장합니다. 🎜🎜🎜🎜6. 🎜매크로 실행: 🎜 Excel에서 Alt + F8을 눌러 매크로 대화 상자를 열고 매크로를 선택한 다음 "실행"을 클릭하세요. 🎜🎜🎜🎜🎜요약: 🎜🎜🎜숫자를 모서리가 둥근 대문자로 변환하려면 VBA를 사용하여 사용자 정의 함수를 작성하고 Excel에서 호출할 수 있습니다. Excel 매크로를 만드는 단계에는 VBA 편집기 열기, 새 모듈 삽입, 매크로 코드 작성, 매크로 저장 및 매크로 실행이 포함됩니다. 이를 통해 맞춤형 기능과 자동화가 가능해집니다. 🎜 🎜🎜🎜

위 내용은 Excel에서 모서리가 둥근 상세한 매크로를 만들어 숫자를 대문자로 변환하세요.의 상세 내용입니다. 자세한 내용은 PHP 중국어 웹사이트의 기타 관련 기사를 참조하세요!