เมื่อคุณทำงานกับตัวเลขใน Excel บางครั้งคุณจำเป็นต้องแสดงทั้งตัวเลขและตัวอักษรสำหรับเอกสารทางการหรือเพื่อความชัดเจน แต่ Excel ไม่มีวิธีในตัวสำหรับทำสิ่งนี้ โดยเฉพาะกับรูปีอินเดีย ดังนั้นคุณอาจต้องใช้สูตรที่ซับซ้อน เครื่องมือภายนอก หรือทำด้วยตนเอง
ในคู่มือนี้ เราจะสอนวิธีง่ายๆ ทีละขั้นตอนในการแปลงตัวเลขเป็นตัวอักษรสำหรับรูปีอินเดียโดยใช้ Excel
2 วิธีง่ายๆ ในการแปลงตัวเลขเป็นตัวอักษรเป็นรูปีอินเดียใน Excel:
แน่นอนว่าเหนือสิ่งอื่นใด คุณต้องมีการดาวน์โหลด Microsoft Excel ที่เหมาะสมก่อน!
วิธีที่ 1: แปลงตัวเลขเป็นตัวอักษรในสกุลเงินรูปีอินเดียด้วยรหัส VBA
ก่อนที่จะแปลงตัวเลขเป็นตัวอักษรในสกุลเงินรูปีอินเดียโดยใช้รหัส VBA คุณอาจต้องเพิ่มแท็บนักพัฒนาใน Ribbon ของคุณเพื่อเปิดฟังก์ชัน VBA
นี่คือขั้นตอนในการเปิดใช้งานแท็บนักพัฒนาใน Excel:
ขั้นตอนที่ 1: เปิดสเปรดชีต Excel ที่มีตัวเลขที่คุณต้องการแปลง

ขั้นตอนที่ 2: คลิกที่ File แล้วเลือก Option ในรายการ

ขั้นตอนที่ 3: ใน Excel Options เลือก Customize Ribbon

ขั้นตอนที่ 4: เลือก All Tabs ในตัวเลือก Choose commands from

ขั้นตอนที่ 5: ค้นหา Developer ในรายการแล้วคลิก Add

ขั้นตอนที่ 6: คลิก OK

ตอนนี้ นี่คือขั้นตอนการแปลงตัวเลขเป็นตัวอักษรในสกุลเงินรูปีอินเดียโดยใช้รหัส VBA:
ขั้นตอนที่ 1: เปิดสเปรดชีต Excel ที่มีตัวเลขที่คุณต้องการแปลง

ขั้นตอนที่ 2: คลิกที่แท็บ Developer หากคุณไม่เห็นแท็บนี้ ให้ทำตามขั้นตอนด้านบนเพื่อเปิดใช้งาน

ขั้นตอนที่ 3: คลิกที่ Visual Basic หรือใช้แป้นพิมพ์ลัด Alt + F11

ขั้นตอนที่ 4: คลิก Insert และเลือก Module

ขั้นตอนที่ 5: วางรหัส VBA ที่ให้ไว้ในเอกสารอ้างอิง
Public Function RupeeFormat(SNum As String) 'Updateby Extendoffice Dim xDPInt As Integer Dim xArrPlace As Variant Dim xRStr_Paisas As String Dim xNumStr As String Dim xF As Integer Dim xTemp As String Dim xStrTemp As String Dim xRStr As String Dim xLp As Integer xArrPlace = Array("", "", " Thousand ", " Lacs ", " Crores ", " Trillion ", "", "", "", "") On Error Resume Next If SNum = "" Then RupeeFormat = "" Exit Function End If xNumStr = Trim(str(SNum)) If xNumStr = "" Then RupeeFormat = "" Exit Function End If xRStr = "" xLp = 0 If (xNumStr > 999999999.99) Then RupeeFormat = "Digit excced Maximum limit" Exit Function End If xDPInt = InStr(xNumStr, ".") If xDPInt > 0 Then If (Len(xNumStr) - xDPInt) = 1 Then xRStr_Paisas = RupeeFormat_GetT(Left(Mid(xNumStr, xDPInt + 1) & "0", 2)) ElseIf (Len(xNumStr) - xDPInt) > 1 Then xRStr_Paisas = RupeeFormat_GetT(Left(Mid(xNumStr, xDPInt + 1), 2)) End If xNumStr = Trim(Left(xNumStr, xDPInt - 1)) End If xF = 1 Do While xNumStr <> "" If (xF >= 2) Then xTemp = Right(xNumStr, 2) Else If (Len(xNumStr) = 2) Then xTemp = Right(xNumStr, 2) ElseIf (Len(xNumStr) = 1) Then xTemp = Right(xNumStr, 1) Else xTemp = Right(xNumStr, 3) End If End If xStrTemp = "" If Val(xTemp) > 99 Then xStrTemp = RupeeFormat_GetH(Right(xTemp, 3), xLp) If Right(Trim(xStrTemp), 3) <> "Lac" Then xLp = xLp + 1 End If ElseIf Val(xTemp) <= 99="" and="" val=""> 9 Then xStrTemp = RupeeFormat_GetT(Right(xTemp, 2)) ElseIf Val(xTemp) < 10 Then xStrTemp = RupeeFormat_GetD(Right(xTemp, 2)) End If If xStrTemp <> "" Then xRStr = xStrTemp & xArrPlace(xF) & xRStr End If If xF = 2 Then If Len(xNumStr) = 1 Then xNumStr = "" Else xNumStr = Left(xNumStr, Len(xNumStr) - 2) End If ElseIf xF = 3 Then If Len(xNumStr) >= 3 Then xNumStr = Left(xNumStr, Len(xNumStr) - 2) Else xNumStr = "" End If ElseIf xF = 4 Then xNumStr = "" Else If Len(xNumStr) <= 2="" then=""> xNumStr = "" Else xNumStr = Left(xNumStr, Len(xNumStr) - 3) End If End If xF = xF + 1 Loop If xRStr = "" Then xRStr = "No Rupees" Else xRStr = " Rupees " & xRStr End If If xRStr_Paisas <> "" Then xRStr_Paisas = " and " & xRStr_Paisas & " Paisas" End If RupeeFormat = xRStr & xRStr_Paisas & " Only" End Function Function RupeeFormat_GetH(xStrH As String, xLp As Integer) Dim xRStr As String If Val(xStrH) < 1 Then RupeeFormat_GetH = "" Exit Function Else xStrH = Right("000" & xStrH, 3) If Mid(xStrH, 1, 1) <> "0" Then If (xLp > 0) Then xRStr = RupeeFormat_GetD(Mid(xStrH, 1, 1)) & " Lac " Else xRStr = RupeeFormat_GetD(Mid(xStrH, 1, 1)) & " Hundred " End If End If If Mid(xStrH, 2, 1) <> "0" Then xRStr = xRStr & RupeeFormat_GetT(Mid(xStrH, 2)) Else xRStr = xRStr & RupeeFormat_GetD(Mid(xStrH, 3)) End If End If RupeeFormat_GetH = xRStr End Function Function RupeeFormat_GetT(xTStr As String) Dim xTArr1 As Variant Dim xTArr2 As Variant Dim xRStr As String xTArr1 = Array("Ten", "Eleven", "Twelve", "Thirteen", "Fourteen", "Fifteen", "Sixteen", "Seventeen", "Eighteen", "Nineteen") xTArr2 = Array("", "Twenty", "Thirty", "Forty", "Fifty", "Sixty", "Seventy", "Eighty", "Ninety") Result = "" If Val(Left(xTStr, 1)) = 1 Then xRStr = xTArr1(Val(Mid(xTStr, 2, 1))) Else If Val(Left(xTStr, 1)) > 0 Then xRStr = xTArr2(Val(Left(xTStr, 1)) - 1) End If xRStr = xRStr & RupeeFormat_GetD(Right(xTStr, 1)) End If RupeeFormat_GetT = xRStr End Function Function RupeeFormat_GetD(xDStr As String) Dim xArr_1() As Variant xArr_1 = Array(" One", " Two", " Three", " Four", " Five", " Six", " Seven", " Eight", " Nine", "") If Val(xDStr) > 0 Then RupeeFormat_GetD = xArr_1(Val(xDStr) - 1) Else RupeeFormat_GetD = "" End If End Function |
|---|

ขั้นตอนที่ 5: บันทึก (Ctrl + S) และปิดตัวแก้ไข VBA เลือก Excel Macro-Enabled Workbook เมื่อบันทึก

ขั้นตอนที่ 6: ป้อนสูตร =RupeeFormat(เซลล์ที่ต้องการแสดง) ลงในเซลล์ที่คุณต้องการให้แสดงคำ แล้วกด Enter

ขั้นตอนที่ 7: ผลลัพธ์จะแสดงขึ้นมา ลากลงมาเพื่อใช้สูตรกับเซลล์อื่น

ตัวเลขในช่วงที่เลือกจะถูกแปลงเป็นตัวอักษรในสกุลเงินรูปีอินเดีย
วิธีที่ 2: การแปลงตัวเลขเป็นตัวอักษรในสกุลเงินรูปีอินเดียใน Excel (วิธีทั่วไป)
เรียนรู้วิธีทั่วไปในการแปลงตัวเลขเป็นตัวอักษรในสกุลเงินรูปีอินเดียภายใน Excel ซึ่งเป็นขั้นตอนที่มีประโยชน์เมื่อคุณจัดเตรียมใบแจ้งหนี้สำหรับการทำบัญชี
ขั้นตอนที่ 1: เปิดสเปรดชีต Excel ที่มีตัวเลขที่คุณต้องการแปลง

ขั้นตอนที่ 2: คลิกขวาที่ชื่อแผ่นงานแล้วเลือก View Code เพื่อเปิดแอปพลิเคชัน VBA วิธีนี้ยังมีประโยชน์สำหรับการวิเคราะห์ข้อมูลใน Excel อีกด้วย

ขั้นตอนที่ 3: คลิก Insert และเลือก Module

ขั้นตอนที่ 4: วางรหัส VBA ที่ให้ไว้ในเอกสารอ้างอิง
Public Function RupeeFormat(SNum As String) 'Update By Nirmal Dim xDPInt As Integer Dim xArrPlace As Variant Dim xRStr_Paisas As String Dim xNumStr As String Dim xF As Integer Dim xTemp As String Dim xStrTemp As String Dim xRStr As String Dim xLp As Integer xArrPlace = Array("", "", " Thousand ", " Lacs ", " Crores ", " Trillion ", "", "", "", "") On Error Resume Next If SNum = "" Then RupeeFormat = "" Exit Function End If xNumStr = Trim(Str(SNum)) If xNumStr = "" Then RupeeFormat = "" Exit Function End If xRStr = "" xLp = 0 If (xNumStr > 999999999.99) Then RupeeFormat = "Digit excced Maximum limit" Exit Function End If xDPInt = InStr(xNumStr, ".") If xDPInt > 0 Then If (Len(xNumStr) - xDPInt) = 1 Then xRStr_Paisas = RupeeFormat_GetT(Left(Mid(xNumStr, xDPInt + 1) & "0", 2)) ElseIf (Len(xNumStr) - xDPInt) > 1 Then xRStr_Paisas = RupeeFormat_GetT(Left(Mid(xNumStr, xDPInt + 1), 2)) End If xNumStr = Trim(Left(xNumStr, xDPInt - 1)) End If xF = 1 Do While xNumStr <> "" If (xF >= 2) Then xTemp = Right(xNumStr, 2) Else If (Len(xNumStr) = 2) Then xTemp = Right(xNumStr, 2) ElseIf (Len(xNumStr) = 1) Then xTemp = Right(xNumStr, 1) Else xTemp = Right(xNumStr, 3) End If End If xStrTemp = "" If Val(xTemp) > 99 Then xStrTemp = RupeeFormat_GetH(Right(xTemp, 3), xLp) If Right(Trim(xStrTemp), 3) <> "Lac" Then xLp = xLp + 1 End If ElseIf Val(xTemp) <= 99="" and="" val=""> 9 Then xStrTemp = RupeeFormat_GetT(Right(xTemp, 2)) ElseIf Val(xTemp) < 10 Then xStrTemp = RupeeFormat_GetD(Right(xTemp, 2)) End If If xStrTemp <> "" Then xRStr = xStrTemp & xArrPlace(xF) & xRStr End If If xF = 2 Then If Len(xNumStr) = 1 Then xNumStr = "" Else xNumStr = Left(xNumStr, Len(xNumStr) - 2) End If ElseIf xF = 3 Then If Len(xNumStr) >= 3 Then xNumStr = Left(xNumStr, Len(xNumStr) - 2) Else xNumStr = "" End If ElseIf xF = 4 Then xNumStr = "" Else If Len(xNumStr) <= 2="" then=""> xNumStr = "" Else xNumStr = Left(xNumStr, Len(xNumStr) - 3) End If End If xF = xF + 1 Loop If xRStr = "" Then xRStr = "No Rupees" Else xRStr = " Rupees " & xRStr End If If xRStr_Paisas <> "" Then xRStr_Paisas = " and " & xRStr_Paisas & " Paisas" End If RupeeFormat = xRStr & xRStr_Paisas & " Only" End Function Function RupeeFormat_GetH(xStrH As String, xLp As Integer) Dim xRStr As String If Val(xStrH) < 1 Then RupeeFormat_GetH = "" Exit Function Else xStrH = Right("000" & xStrH, 3) If Mid(xStrH, 1, 1) <> "0" Then If (xLp > 0) Then xRStr = RupeeFormat_GetD(Mid(xStrH, 1, 1)) & " Lac " Else xRStr = RupeeFormat_GetD(Mid(xStrH, 1, 1)) & " Hundred " End If End If If Mid(xStrH, 2, 1) <> "0" Then xRStr = xRStr & RupeeFormat_GetT(Mid(xStrH, 2)) Else xRStr = xRStr & RupeeFormat_GetD(Mid(xStrH, 3)) End If End If RupeeFormat_GetH = xRStr End Function Function RupeeFormat_GetT(xTStr As String) Dim xTArr1 As Variant Dim xTArr2 As Variant Dim xRStr As String xTArr1 = Array("Ten", "Eleven", "Twelve", "Thirteen", "Fourteen", "Fifteen", "Sixteen", "Seventeen", "Eighteen", "Nineteen") xTArr2 = Array("", "Twenty", "Thirty", "Forty", "Fifty", "Sixty", "Seventy", "Eighty", "Ninety") Result = "" If Val(Left(xTStr, 1)) = 1 Then xRStr = xTArr1(Val(Mid(xTStr, 2, 1))) Else If Val(Left(xTStr, 1)) > 0 Then xRStr = xTArr2(Val(Left(xTStr, 1)) - 1) End If xRStr = xRStr & RupeeFormat_GetD(Right(xTStr, 1)) End If RupeeFormat_GetT = xRStr End Function Function RupeeFormat_GetD(xDStr As String) Dim xArr_1() As Variant xArr_1 = Array(" One", " Two", " Three", " Four", " Five", " Six", " Seven", " Eight", " Nine", "") If Val(xDStr) > 0 Then RupeeFormat_GetD = xArr_1(Val(xDStr) - 1) Else RupeeFormat_GetD = "" End If End Function |
|---|

ขั้นตอนที่ 5: เลือก Excel Macro-Enabled Workbook ในประเภทการบันทึก (Save as type) ปิดหน้าต่างตัวแก้ไข VBA

ขั้นตอนที่ 6: แทรกสูตร =RupeeFormat(เซลล์ที่ต้องการแสดง) ลงในเซลล์ที่เลือกเพื่อแสดงผลลัพธ์

ขั้นตอนที่ 7: ลากลงมาเพื่อใช้สูตรกับเซลล์อื่นหลังจากที่ผลลัพธ์ปรากฏในเซลล์ที่เลือก

ตัวเลขในช่วงที่เลือกจะถูกแปลงเป็นตัวอักษรในสกุลเงินรูปีอินเดีย
ทางเลือกฟรีที่ดีที่สุดสำหรับ Microsoft Office - WPS Office
นอกจาก Microsoft Office แล้ว ฉันขอเสนออีกหนึ่งแอป นั่นคือ WPS Office แล้ว WPS คืออะไร?

WPS Office เป็นชุดโปรแกรมออฟฟิศฟรีที่เข้ากันได้กับ Microsoft Office ซึ่งประกอบด้วยโปรแกรมประมวลผลคำ สเปรดชีต ซอฟต์แวร์นำเสนอ และโปรแกรมอ่าน PDF เพื่อให้คุณสามารถเปิด แก้ไข และบันทึกไฟล์ได้อย่างง่ายดาย นอกจากนี้ยังใช้งานง่าย แม้แต่ผู้ที่ไม่เคยมีประสบการณ์การใช้ชุดโปรแกรมออฟฟิศมาก่อน
ไม่เพียงแค่นั้น WPS Office ยังเป็นชุดโปรแกรมออฟฟิศที่ทรงพลังซึ่งมีฟีเจอร์มากมาย ถือเป็นทางเลือกที่ดีเยี่ยมแทน NeoOffice โดยเฉพาะสำหรับนักเรียนและธุรกิจที่มีงบประมาณจำกัด
ลองดูฟีเจอร์บางส่วนของ WPS แบบคร่าวๆ:
● ใช้งาน Word, Excel และ PPT ฟรี พร้อมชุดเครื่องมือ PDF ที่ทรงพลัง
● คลังเทมเพลตที่หลากหลาย
● ฟังก์ชันครบครัน มีทั้งผู้ช่วยสร้างเรซูเม่ ฟอร์มอัจฉริยะ การบันทึกหน้าจอ การซ่อมแซมไฟล์ และเครื่องมือเล็กๆ อื่นๆ ที่รวมอยู่ในผลิตภัณฑ์
● ขนาดโปรแกรมเบาเพียง 200MB และใช้หน่วยความจำคอมพิวเตอร์เพียงเล็กน้อย
● WPS Office เวอร์ชัน Mac นั้นทรงพลังมาก ประสบการณ์การใช้งานของผู้ใช้ Mac ที่มักถูกมองข้าม สามารถเติมเต็มได้ด้วย WPS Office
● รองรับ เอกสารออนไลน์ (WPS AirPage) และการแก้ไขร่วมกันหลายคน
● WPS Office ยังรองรับระบบ Linux, Android และ iOS อีกด้วย หากต้องการใช้ผลิตภัณฑ์ WPS Office บนระบบที่แตกต่างกัน คุณเพียงแค่เข้าสู่ระบบด้วยบัญชีเดียวกัน และไฟล์ทั้งหมดจะถูกซิงโครไนซ์

หากคุณรู้สึกว่า WPS Office เป็นตัวเลือกที่ดีที่สุดสำหรับคุณและต้องการดาวน์โหลด โปรดไปที่เว็บไซต์อย่างเป็นทางการนี้: https://www.wps.com และดาวน์โหลดเลย
วิธีดาวน์โหลด WPS Office
ขั้นตอนที่ 1: ไปที่เว็บไซต์ WPS Office: wps.com
ขั้นตอนที่ 2: คลิกปุ่ม "Free Download"

ขั้นตอนที่ 3: เลือกตำแหน่งที่คุณต้องการบันทึก WPS Office -> Save

ขั้นตอนที่ 4: ดับเบิลคลิกที่ไฟล์ WPS Office ในโฟลเดอร์ดาวน์โหลดของคุณ คลิก "Run" และทำตามคำแนะนำบนหน้าจอเพื่อติดตั้ง

ขั้นตอนที่ 5: หลังจากเสร็จสิ้น คุณสามารถเพลิดเพลินกับประสิทธิภาพทั้งหมดของ WPS Office ได้ทันที
คำถามที่พบบ่อย:
คำถามที่ 1: ฉันจะแปลงสกุลเงินเป็นข้อความใน Excel VBA ได้อย่างไร?
คุณสามารถใช้ VBA (Visual Basic for Applications) เพื่อแปลงสกุลเงินเป็นข้อความใน Excel ได้ คุณจะต้องเขียนแมโคร VBA แบบกำหนดเองเพื่อทำการแปลงนี้ คุณสามารถค้นหาตัวอย่างและโค้ดทางออนไลน์ หรือศึกษาคู่มือ Excel VBA เพื่อเป็นแนวทางได้
คำถามที่ 2: วิธีแปลงสกุลเงินเป็นข้อความตัวอักษรใน Excel
ในการแปลงสกุลเงินเป็นตัวอักษรใน Excel โดยทั่วไปคุณจะใช้ฟังก์ชันร่วมกับการจัดรูปแบบที่กำหนดเอง คุณสามารถค้นหาบทช่วยสอนและคู่มือต่างๆ ทางออนไลน์ที่อธิบายวิธีทำสิ่งนี้ได้
คำถามที่ 3: คุณจะจัดรูปแบบตัวเลขใน Excel สำหรับรูปีอินเดียได้อย่างไร?
ในการจัดรูปแบบตัวเลขใน Excel สำหรับรูปีอินเดีย คุณสามารถใช้ตัวเลือกการจัดรูปแบบสกุลเงินที่มีมาให้ เลือกเซลล์หรือช่วงที่คุณต้องการจัดรูปแบบ ไปที่แท็บ "Number" ในกล่องโต้ตอบ Format Cells แล้วเลือกหมวดหมู่ "Currency" จากนั้น คุณสามารถเลือก "₹ English (India)" เป็นสัญลักษณ์สกุลเงินได้
คำถามที่ 4: ฉันจะแปลงตัวเลขเป็นข้อความใน Excel โดยอัตโนมัติได้อย่างไร?
มีหลายวิธีในการแปลงตัวเลขเป็นข้อความใน Excel โดยอัตโนมัติ คุณสามารถใช้ฟังก์ชัน Excel เช่น TEXT, CONCATENATE หรือการจัดรูปแบบที่กำหนดเอง นอกจากนี้คุณยังสามารถใช้แมโคร VBA สำหรับระบบอัตโนมัติขั้นสูงได้
คำถามที่ 5: วิธีแปลงดอลลาร์สหรัฐเป็นรูปีอินเดียใน Excel
ในการแปลงดอลลาร์สหรัฐเป็นรูปีอินเดียใน Excel คุณสามารถใช้ฟังก์ชันของ Excel ร่วมกับบริการเว็บหรือแหล่งข้อมูลภายนอกที่ให้อัตราแลกเปลี่ยนสกุลเงิน รูปแบบ "Currency" ของ Excel ยังสามารถใช้สำหรับแสดงจำนวนเงินเป็นรูปีอินเดียหลังจากได้รับอัตราแลกเปลี่ยนแล้ว
คำถามที่ 6: ต้องการใช้ Excel Online เพื่อการทำงานที่ง่ายขึ้นหรือไม่?
หากคุณชอบทำงานบนคลาวด์ Excel Online มีฟีเจอร์อันทรงพลังเช่นเดียวกันเพื่อช่วยคุณจัดการและล้างข้อมูลจากทุกที่ ด้วย Excel Online คุณสามารถใช้ฟังก์ชันเดียวกันในการลบอักขระจากด้านซ้ายหรือขวาของข้อมูล ซึ่งทำให้เป็นตัวเลือกที่ยอดเยี่ยมสำหรับผู้ที่ต้องการความยืดหยุ่นหรือไม่มีสิทธิ์เข้าถึง Excel เวอร์ชันเดสก์ท็อป
บทสรุป:
เรียนรู้วิธีแปลงจำนวนตัวเลขเป็นตัวอักษรในสกุลเงินรูปีอินเดียภายใน Excel อย่างง่ายดาย โดยใช้รหัส VBA หรือวิธีทั่วไป ขั้นแรกให้เปิดใช้งานแท็บ Developer ใน Excel เพิ่มรหัส VBA ที่ให้ไว้ และใช้สูตร =RupeeFormat(เซลล์ที่ต้องการแสดง)
อีกทางเลือกหนึ่งคือคลิกขวาที่ชื่อแผ่นงานเพื่อเข้าถึง VBA แทรกโมดูล วางรหัส และใช้สูตรเดียวกัน วิธีที่ใช้งานง่ายเหล่านี้ยังเข้ากันได้กับ WPS Office ซึ่งเป็นทางเลือกฟรีแทน Microsoft Office ทำให้การจัดรูปแบบเอกสารที่แม่นยำและเป็นมืออาชีพกลายเป็นเรื่องง่าย





