Note: The other languages of the website are Google-translated. Back to English

วิธีการแปลงตัวเลขเป็นคำในรูปีอินเดียใน Excel

บทความนี้ฉันจะแนะนำวิธีการแปลงรายการตัวเลขเป็นคำในรูปีอินเดียหรือดอลลาร์อังกฤษใน Excel

แปลงตัวเลขเป็นคำในรูปีอินเดียด้วยรหัส VBA

แปลงตัวเลขเป็นคำในสกุลเงินดอลลาร์อังกฤษด้วยคุณสมบัติที่น่าทึ่ง


แปลงตัวเลขเป็นคำในรูปีอินเดียด้วยรหัส VBA

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

1. กด ALT + F11 คีย์เพื่อเปิด Microsoft Visual Basic สำหรับแอปพลิเคชัน หน้าต่าง

2. คลิก สิ่งที่ใส่เข้าไป > โมดูลและวางรหัสต่อไปนี้ในหน้าต่างโมดูล

รหัส 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(xTemp) > 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 

3. หลังจากใส่รหัสแล้วให้บันทึกและปิดหน้าต่างรหัสกลับไปที่แผ่นงานและป้อนสูตรนี้: = RupeeFormat (A2) ลงในเซลล์ว่างจากนั้นลากที่จับเติมลงเพื่อใช้สูตรนี้กับเซลล์อื่น ๆ ตัวเลขทั้งหมดถูกสะกดเป็นรูปีดูภาพหน้าจอ:


แปลงตัวเลขเป็นคำในสกุลเงินดอลลาร์อังกฤษด้วยคุณสมบัติที่น่าทึ่ง

หากคุณต้องการแปลงตัวเลขเป็นคำในสกุลเงินดอลลาร์อังกฤษ Kutools สำหรับ Excel's ตัวเลขเป็นคำ คุณสมบัติสามารถช่วยคุณแก้งานนี้ได้อย่างรวดเร็วและง่ายดาย

ทิปส์:ที่จะใช้สิ่งนี้ จำนวนคำ ประการแรกคุณควรดาวน์โหลดไฟล์ Kutools สำหรับ Excelแล้วใช้คุณสมบัตินี้อย่างรวดเร็วและง่ายดาย

หลังจากการติดตั้ง Kutools สำหรับ Excelโปรดทำตามนี้:

1. เลือกรายการตัวเลขที่คุณต้องการแปลงจากนั้นคลิก Kutools > เนื้อหา > ตัวเลขเป็นคำดูภาพหน้าจอ:

2. ใน ตัวเลขเป็นคำสกุลเงิน ใหเลือก English ตัวเลือกจาก ภาษา แล้วคลิก Ok ปุ่มตัวเลขในการเลือกได้รับการแปลงเป็นคำสกุลเงินภาษาอังกฤษดูภาพหน้าจอ:

คลิกเพื่อดาวน์โหลด Kutools สำหรับ Excel และทดลองใช้ฟรีทันที!

 



เครื่องมือเพิ่มประสิทธิภาพการทำงานในสำนักงานที่ดีที่สุด

Kutools สำหรับ Excel ช่วยแก้ปัญหาส่วนใหญ่ของคุณและเพิ่มผลผลิตของคุณได้ถึง 80%

  • ซุปเปอร์ฟอร์มูล่าบาร์ (แก้ไขข้อความและสูตรหลายบรรทัดได้อย่างง่ายดาย); การอ่านเค้าโครง (อ่านและแก้ไขเซลล์จำนวนมากได้อย่างง่ายดาย); วางลงในช่วงที่กรองแล้ว...
  • ผสานเซลล์ / แถว / คอลัมน์ และการเก็บรักษาข้อมูล แยกเนื้อหาของเซลล์ รวมแถวที่ซ้ำกันและผลรวม / ค่าเฉลี่ย... ป้องกันเซลล์ซ้ำ; เปรียบเทียบช่วง...
  • เลือกซ้ำหรือไม่ซ้ำ แถว; เลือกแถวว่าง (เซลล์ทั้งหมดว่างเปล่า); Super Find และ Fuzzy Find ในสมุดงานจำนวนมาก สุ่มเลือก ...
  • สำเนาถูกต้อง หลายเซลล์โดยไม่เปลี่ยนการอ้างอิงสูตร สร้างการอ้างอิงอัตโนมัติ ถึงหลายแผ่น ใส่สัญลักษณ์แสดงหัวข้อย่อย, กล่องกาเครื่องหมายและอื่น ๆ ...
  • แทรกสูตรที่ชื่นชอบและรวดเร็ว, ช่วงแผนภูมิและรูปภาพ; เข้ารหัสเซลล์ ด้วยรหัสผ่าน; สร้างรายชื่อผู้รับจดหมาย และส่งอีเมล ...
  • แยกข้อความ, เพิ่มข้อความ, ลบตามตำแหน่ง, ลบ Space; สร้างและพิมพ์ผลรวมย่อยของเพจ แปลงระหว่างเนื้อหาของเซลล์และความคิดเห็น...
  • ซุปเปอร์ฟิลเตอร์ (บันทึกและใช้โครงร่างตัวกรองกับแผ่นงานอื่น ๆ ); การเรียงลำดับขั้นสูง ตามเดือน / สัปดาห์ / วันความถี่และอื่น ๆ ตัวกรองพิเศษ โดยตัวหนาตัวเอียง ...
  • รวมสมุดงานและแผ่นงาน; ผสานตารางตามคอลัมน์สำคัญ แยกข้อมูลออกเป็นหลายแผ่น; Batch แปลง xls, xlsx และ PDF...
  • การจัดกลุ่มตาราง Pivot ตาม จำนวนสัปดาห์วันในสัปดาห์และอื่น ๆ ... แสดงปลดล็อกเซลล์ที่ถูกล็อก ด้วยสีที่ต่างกัน เน้นเซลล์ที่มีสูตร / ชื่อ...
kte แท็บ 201905
  • เปิดใช้งานการแก้ไขและอ่านแบบแท็บใน Word, Excel, PowerPoint, ผู้จัดพิมพ์, Access, Visio และโครงการ
  • เปิดและสร้างเอกสารหลายรายการในแท็บใหม่ของหน้าต่างเดียวกันแทนที่จะเป็นในหน้าต่างใหม่
  • เพิ่มผลผลิตของคุณ 50% และลดการคลิกเมาส์หลายร้อยครั้งให้คุณทุกวัน!
ด้านล่าง officetab

 

จัดเรียงความคิดเห็นโดย
ความคิดเห็น (13)
ยังไม่มีการให้คะแนน เป็นคนแรกที่ให้คะแนน!
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
Excel ขัดข้องเมื่อเซลล์อ้างอิงไม่มีวาล์ว!
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สวัสดีผู้ใช้
ขอบคุณสำหรับความคิดเห็น รหัสในบทความนี้ได้รับการอัปเดต โปรดลองอีกครั้ง ขอบคุณ!
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
Dear Sir,

วันดี,

ฉันทดสอบสูตรข้างต้นว่ามันไม่ทำงานในยัติภังค์ลบค่าเช่น -100 -10,000 หรือ (100) (10,000)

ท่านครับ ผมใช้รหัสด้านล่างมา 1 ปีแล้ว และวันนี้ผมพบข้อผิดพลาดเดียวกัน

เมื่อฉันเขียนลบ -10,000 หรือ (10,000) มันแสดง "เพียงแสนหนึ่งหมื่น"
เมื่อฉันเขียน Positive 10,000 มันใช้งานได้ดี "Only Ten Thousand"

ตัวอย่างด้านล่าง:

(10,000.99) เพียงแสนหมื่น & 99/100 ริยาล
10,000.99 เพียงหมื่น & 99/100 ริยัล
(10,000,000.99) เพียงร้อยสิบล้าน & 99/100 Riyals
10,000,000.99 เพียง 99 ล้าน & 100/XNUMX ริยาล
(10,000,000,000.99) เพียงแสนล้าน & 99/100 ริยาล
10,000,000,000.99 เพียงหมื่นล้าน & 99/100 ริยาล
(10,000,000,000,000.90) เพียงร้อยสิบล้าน & 90/100 ริยาล
10,000,000,000,000.90 เพียงสิบล้านล้าน & 90/100 ริยาล

สูตร = การสะกดคำ

รหัส VBA ของฉัน:

'ฟังก์ชั่นหลัก
ฟังก์ชัน SpellBilling (ByVal MyNumber)
Dim Riyals, Halalas, ชั่วคราว
Dim DecimalPlace, นับ
ReDim Place(9) เป็นสตริง
Place(2) = " พัน "
Place(3) = " ล้าน "
Place(4) = " พันล้าน "
สถานที่ (5) = " ล้านล้าน "
' การแสดงสตริงของจำนวนเงิน
MyNumber = ตัดแต่ง (Str (MyNumber))
' ตำแหน่งทศนิยม 0 ถ้าไม่มี
DecimalPlace = InStr(MyNumber, ".")
' แปลง Halalas และตั้งค่า MyNumber เป็น Riyal จำนวน
ถ้า DecimalPlace > 0 แล้ว
Halalas = GetTens(ซ้าย(กลาง(MyNumber, DecimalPlace + 1) & _
"00", 2))
MyNumber = ตัดแต่ง (ซ้าย (MyNumber, DecimalPlace - 1))
End If
นับ = 1
ทำในขณะที่ MyNumber <> ""
Temp = GetHundreds(ขวา(MyNumber, 3))
ถ้า Temp <> "" ดังนั้น Riyals = Temp & Place(Count) & Riyals
ถ้า Len(MyNumber) > 3 แล้ว
MyNumber = ซ้าย (MyNumber, Len (MyNumber) - 3)
อื่น
MyNumber = ""
End If
นับ = นับ + 1
ห่วง
เลือกกรณี Riyals
กรณี ""
ริยาล = "ไม่มีริยาล"
กรณี "หนึ่ง"
Riyals = "เพียงหนึ่ง Riyal"
กรณีอื่น
Riyals = "เท่านั้น" & Riyals
ริยาลส์ = ริยาลส์ & ""
สิ้นสุดการเลือก
เลือกกรณี Halalas
กรณี ""
ฮาลาลาส = " & 00/00 รียัลส์"
กรณี "หนึ่ง"
ฮาลาลาส = " & 01/100 รียัลส์"
กรณี "สอง"
ฮาลาลาส = " & 02/100 รียัลส์"
กรณี "สาม"
ฮาลาลาส = " & 03/100 รียัลส์"
กรณี "สี่"
ฮาลาลาส = " & 04/100 รียัลส์"
กรณี "ห้า"
ฮาลาลาส = " & 05/100 รียัลส์"
กรณี "หก"
ฮาลาลาส = " & 06/100 รียัลส์"
กรณี "เซเว่น"
ฮาลาลาส = " & 07/100 รียัลส์"
กรณี "แปด"
ฮาลาลาส = " & 08/100 รียัลส์"
กรณี "เก้า"
ฮาลาลาส = " & 09/100 รียัลส์"
กรณี "สิบ"
ฮาลาลาส = " & 10/100 รียัลส์"
กรณี "สิบเอ็ด"
ฮาลาลาส = " & 11/100 รียัลส์"
กรณี "สิบสอง"
ฮาลาลาส = " & 12/100 รียัลส์"
คดี "สิบสาม"
ฮาลาลาส = " & 13/100 รียัลส์"
กรณี "สิบสี่"
ฮาลาลาส = " & 14/100 รียัลส์"
กรณี "สิบห้า"
ฮาลาลาส = " & 15/100 รียัลส์"
คดี "สิบหก"
ฮาลาลาส = " & 16/100 รียัลส์"
คดี "เซเว่นทีน"
ฮาลาลาส = " & 17/100 รียัลส์"
คดี "สิบแปด"
ฮาลาลาส = " & 18/100 รียัลส์"
กรณี "สิบเก้า"
ฮาลาลาส = " & 19/100 รียัลส์"
กรณี "ยี่สิบ"
ฮาลาลาส = " & 20/100 รียัลส์"
กรณี "ยี่สิบเอ็ด"
ฮาลาลาส = " & 21/100 รียัลส์"
คดี "ยี่สิบสอง"
ฮาลาลาส = " & 22/100 รียัลส์"
คดี "ยี่สิบสาม"
ฮาลาลาส = " & 23/100 รียัลส์"
กรณี "ยี่สิบสี่"
ฮาลาลาส = " & 24/100 รียัลส์"
กรณี "ยี่สิบห้า"
ฮาลาลาส = " & 25/100 รียัลส์"
คดี "ยี่สิบหก"
ฮาลาลาส = " & 26/100 รียัลส์"
กรณี "ยี่สิบเจ็ด"
ฮาลาลาส = " & 27/100 รียัลส์"
คดี "ยี่สิบแปด"
ฮาลาลาส = " & 28/100 รียัลส์"
คดี "ยี่สิบเก้า"
ฮาลาลาส = " & 29/100 รียัลส์"
กรณี "สามสิบ"
ฮาลาลาส = " & 30/100 รียัลส์"
คดี "สามสิบเอ็ด"
ฮาลาลาส = " & 31/100 รียัลส์"
คดี "สามสิบสอง"
ฮาลาลาส = " & 32/100 รียัลส์"
คดี "สามสิบสาม"
ฮาลาลาส = " & 33/100 รียัลส์"
คดี "สามสิบสี่"
ฮาลาลาส = " & 34/100 รียัลส์"
คดี "สามสิบห้า"
ฮาลาลาส = " & 35/100 รียัลส์"
คดี "สามสิบหก"
ฮาลาลาส = " & 36/100 รียัลส์"
คดี "สามสิบเจ็ด"
ฮาลาลาส = " & 37/100 รียัลส์"
คดี "สามสิบแปด"
ฮาลาลาส = " & 38/100 รียัลส์"
คดี "สามสิบเก้า"
ฮาลาลาส = " & 39/100 รียัลส์"
กรณี "สี่สิบ"
ฮาลาลาส = " & 40/100 รียัลส์"
กรณี "สี่สิบเอ็ด"
ฮาลาลาส = " & 41/100 รียัลส์"
กรณี "สี่สิบสอง"
ฮาลาลาส = " & 42/100 รียัลส์"
คดี "สี่สิบสาม"
ฮาลาลาส = " & 43/100 รียัลส์"
กรณี "สี่สิบสี่"
ฮาลาลาส = " & 44/100 รียัลส์"
กรณี "สี่สิบห้า"
ฮาลาลาส = " & 45/100 รียัลส์"
กรณี "สี่สิบหก"
ฮาลาลาส = " & 46/100 รียัลส์"
กรณี "สี่สิบเจ็ด"
ฮาลาลาส = " & 47/100 รียัลส์"
กรณี "สี่สิบแปด"
ฮาลาลาส = " & 48/100 รียัลส์"
กรณี "สี่สิบเก้า"
ฮาลาลาส = " & 49/100 รียัลส์"
กรณี "ห้าสิบ"
ฮาลาลาส = " & 50/100 รียัลส์"
คดี "ห้าสิบเอ็ด"
ฮาลาลาส = " & 51/100 รียัลส์"
คดี "ห้าสิบสอง"
ฮาลาลาส = " & 52/100 รียัลส์"
คดี "ห้าสิบสาม"
ฮาลาลาส = " & 53/100 รียัลส์"
คดี "ห้าสิบสี่"
ฮาลาลาส = " & 54/100 รียัลส์"
คดี "ห้าสิบห้า"
ฮาลาลาส = " & 55/100 รียัลส์"
คดี "ห้าสิบหก"
ฮาลาลาส = " & 56/100 รียัลส์"
คดี "ห้าสิบเจ็ด"
ฮาลาลาส = " & 57/100 รียัลส์"
คดี "ห้าสิบแปด"
ฮาลาลาส = " & 58/100 รียัลส์"
คดี "ห้าสิบเก้า"
ฮาลาลาส = " & 59/100 รียัลส์"
กรณี "หกสิบ"
ฮาลาลาส = " & 60/100 รียัลส์"
คดี "หกสิบเอ็ด"
ฮาลาลาส = " & 61/100 รียัลส์"
คดี "หกสิบสอง"
ฮาลาลาส = " & 62/100 รียัลส์"
คดี "หกสิบสาม"
ฮาลาลาส = " & 63/100 รียัลส์"
คดี "หกสิบสี่"
ฮาลาลาส = " & 64/100 รียัลส์"
คดี "หกสิบห้า"
ฮาลาลาส = " & 65/100 รียัลส์"
คดี "หกสิบหก"
ฮาลาลาส = " & 66/100 รียัลส์"
กรณี "หกสิบเจ็ด"
ฮาลาลาส = " & 67/100 รียัลส์"
คดี "หกสิบแปด"
ฮาลาลาส = " & 68/100 รียัลส์"
คดี "หกสิบเก้า"
ฮาลาลาส = " & 69/100 รียัลส์"
กรณี "เจ็ดสิบ"
ฮาลาลาส = " & 70/100 รียัลส์"
คดี "เจ็ดสิบเอ็ด"
ฮาลาลาส = " & 71/100 รียัลส์"
คดี "เจ็ดสิบสอง"
ฮาลาลาส = " & 72/100 รียัลส์"
คดี "เจ็ดสิบสาม"
ฮาลาลาส = " & 73/100 รียัลส์"
คดี "เจ็ดสิบสี่"
ฮาลาลาส = " & 74/100 รียัลส์"
คดี "เจ็ดสิบห้า"
ฮาลาลาส = " & 75/100 รียัลส์"
คดี "เจ็ดสิบหก"
ฮาลาลาส = " & 76/100 รียัลส์"
คดี "เซเว่นตี้เซเว่น"
ฮาลาลาส = " & 77/100 รียัลส์"
คดี "เจ็ดสิบแปด"
ฮาลาลาส = " & 78/100 รียัลส์"
คดี "เจ็ดสิบเก้า"
ฮาลาลาส = " & 79/100 รียัลส์"
กรณี "แปดสิบ"
ฮาลาลาส = " & 80/100 รียัลส์"
คดี "แปดสิบเอ็ด"
ฮาลาลาส = " & 81/100 รียัลส์"
คดี "แปดสิบสอง"
ฮาลาลาส = " & 82/100 รียัลส์"
คดี "แปดสิบสาม"
ฮาลาลาส = " & 83/100 รียัลส์"
คดี "แปดสิบสี่"
ฮาลาลาส = " & 84/100 รียัลส์"
คดี "แปดสิบห้า"
ฮาลาลาส = " & 85/100 รียัลส์"
คดี "แปดสิบหก"
ฮาลาลาส = " & 86/100 รียัลส์"
คดี "แปดสิบเจ็ด"
ฮาลาลาส = " & 87/100 รียัลส์"
คดี "แปดสิบแปด"
ฮาลาลาส = " & 88/100 รียัลส์"
คดี "แปดสิบเก้า"
ฮาลาลาส = " & 89/100 รียัลส์"
กรณี "เก้าสิบ"
ฮาลาลาส = " & 90/100 รียัลส์"
กรณี "เก้าสิบเอ็ด"
ฮาลาลาส = " & 91/100 รียัลส์"
คดี "เก้าสิบสอง"
ฮาลาลาส = " & 92/100 รียัลส์"
คดี "เก้าสิบสาม"
ฮาลาลาส = " & 93/100 รียัลส์"
คดี "เก้าสิบสี่"
ฮาลาลาส = " & 94/100 รียัลส์"
คดี "เก้าสิบห้า"
ฮาลาลาส = " & 95/100 รียัลส์"
คดี "เก้าสิบหก"
ฮาลาลาส = " & 96/100 รียัลส์"
คดี "เก้าสิบเจ็ด"
ฮาลาลาส = " & 97/100 รียัลส์"
คดี "เก้าสิบแปด"
ฮาลาลาส = " & 98/100 รียัลส์"
คดี "เก้าสิบเก้า"
ฮาลาลาส = " & 99/100 รียัลส์"


กรณีอื่น
ฮาลาลาส = " & " & ฮาลาล & " ฮาลาลาส"
สิ้นสุดการเลือก
การสะกดคำ = Riyals & Halalas
ฟังก์ชั่นเอนด์


' แปลงตัวเลขจาก 100-999 เป็นข้อความ
ฟังก์ชัน GetHundreds (ByVal MyNumber)
ผลการหรี่เป็นสตริง
ถ้า Val(MyNumber) = 0 ให้ออกจากฟังก์ชัน
MyNumber = ขวา ("000" & MyNumber, 3)
' แปลงหลักร้อย
ถ้า Mid(MyNumber, 1, 1) <> "0" แล้ว
ผลลัพธ์ = GetDigit(Mid(MyNumber, 1, 1)) & " Hundred "
End If
' แปลงหลักสิบและหลักสิบ
ถ้า Mid(MyNumber, 2, 1) <> "0" แล้ว
ผลลัพธ์ = ผลลัพธ์ & GetTens (กลาง (MyNumber, 2))
อื่น
ผลลัพธ์ = ผลลัพธ์ & GetDigit(Mid(MyNumber, 3))
End If
GetHundreds = ผลลัพธ์
ฟังก์ชั่นเอนด์

' แปลงตัวเลขจาก 10 เป็น 99 เป็นข้อความ
ฟังก์ชัน GetTens (TensText)
ผลการหรี่เป็นสตริง
Result = "" ' ลบค่าฟังก์ชันชั่วคราวออก
ถ้า Val(Left(TensText, 1)) = 1 แล้ว ' ถ้าค่าระหว่าง 10-19...
เลือกกรณี (TensText)
กรณีที่ 10: ผลลัพธ์ = "สิบ"
กรณีที่ 11: ผลลัพธ์ = "สิบเอ็ด"
กรณีที่ 12: ผลลัพธ์ = "สิบสอง"
กรณีที่ 13: ผลลัพธ์ = "สิบสาม"
กรณีที่ 14: ผลลัพธ์ = "สิบสี่"
กรณีที่ 15: ผลลัพธ์ = "สิบห้า"
กรณีที่ 16: ผลลัพธ์ = "สิบหก"
กรณีที่ 17: ผลลัพธ์ = "สิบเจ็ด"
กรณีที่ 18: ผลลัพธ์ = "สิบแปด"
กรณีที่ 19: ผลลัพธ์ = "สิบเก้า"
กรณีอื่น
สิ้นสุดการเลือก
Else ' หากมีค่าระหว่าง 20-99...
เลือก Case Val(ซ้าย(TensText, 1))
กรณีที่ 2: ผลลัพธ์ = "ยี่สิบ"
กรณีที่ 3: ผลลัพธ์ = "สามสิบ"
กรณีที่ 4: ผลลัพธ์ = "สี่สิบ"
กรณีที่ 5: ผลลัพธ์ = "ห้าสิบ"
กรณีที่ 6: ผลลัพธ์ = "หกสิบ"
กรณีที่ 7: ผลลัพธ์ = "เจ็ดสิบ"
กรณีที่ 8: ผลลัพธ์ = "แปดสิบ"
กรณีที่ 9: ผลลัพธ์ = "เก้าสิบ"
กรณีอื่น
สิ้นสุดการเลือก
ผลลัพธ์ = ผลลัพธ์ & GetDigit _
(ขวา(TensText, 1)) ' ดึงที่หนึ่ง
End If
GetTens = ผลลัพธ์
ฟังก์ชั่นเอนด์

' แปลงตัวเลขจาก 1 เป็น 9 เป็นข้อความ
ฟังก์ชัน GetDigit(หลัก)
เลือกกรณี (หลัก)
กรณีที่ 1: GetDigit = "หนึ่ง"
กรณีที่ 2: GetDigit = "สอง"
กรณีที่ 3: GetDigit = "สาม"
กรณีที่ 4: GetDigit = "สี่"
กรณีที่ 5: GetDigit = "ห้า"
กรณีที่ 6: GetDigit = "หก"
กรณีที่ 7: GetDigit = "เจ็ด"
กรณีที่ 8: GetDigit = "แปด"
กรณีที่ 9: GetDigit = "เก้า"
กรณีอื่น: GetDigit = ""
สิ้นสุดการเลือก
ฟังก์ชั่นเอนด์
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ไม่มีอะไรจะพูด! สุดขั้ว
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
Dear Sir,

วันดี,
ฉันทดสอบโค้ด VBA ของคุณแล้ว แต่น่าเสียดายที่มันทำงานได้ไม่ดีกับค่าลบ / ลบ เช่น -100 -10,000 / (100) (10,000)

ท่านครับ ผมใช้รหัสด้านล่างมา 1 ปีแล้ว และวันนี้ผมพบข้อผิดพลาดเดียวกันซึ่งพบในรหัส VBA ของคุณด้วย

เมื่อฉันเขียนลบ -10,000 มันจะแสดงบน "Only Hundred Ten Thousand"
เมื่อฉันเขียนบวก 10,000 มันแสดงบน "หมื่นเท่านั้น" ทำงานได้ดี

ตัวอย่างด้านล่าง:

(10,000.99) เพียงแสนหมื่น & 99/100 ริยาล
10,000.99 เพียงหมื่น & 99/100 ริยัล
(10,000,000.99) เพียงร้อยสิบล้าน & 99/100 Riyals
10,000,000.99 เพียง 99 ล้าน & 100/XNUMX ริยาล
(10,000,000,000.99) เพียงแสนล้าน & 99/100 ริยาล
10,000,000,000.99 เพียงหมื่นล้าน & 99/100 ริยาล
(10,000,000,000,000.90) เพียงร้อยสิบล้าน & 90/100 ริยาล
10,000,000,000,000.90 เพียงสิบล้านล้าน & 90/100 ริยาล

สูตร = การสะกดคำ

รหัส VBA ของฉัน:

'ฟังก์ชั่นหลัก
ฟังก์ชัน SpellBilling (ByVal MyNumber)
Dim Riyals, Halalas, ชั่วคราว
Dim DecimalPlace, นับ
ReDim Place(9) เป็นสตริง
Place(2) = " พัน "
Place(3) = " ล้าน "
Place(4) = " พันล้าน "
สถานที่ (5) = " ล้านล้าน "
' การแสดงสตริงของจำนวนเงิน
MyNumber = ตัดแต่ง (Str (MyNumber))
' ตำแหน่งทศนิยม 0 ถ้าไม่มี
DecimalPlace = InStr(MyNumber, ".")
' แปลง Halalas และตั้งค่า MyNumber เป็น Riyal จำนวน
ถ้า DecimalPlace > 0 แล้ว
Halalas = GetTens(ซ้าย(กลาง(MyNumber, DecimalPlace + 1) & _
"00", 2))
MyNumber = ตัดแต่ง (ซ้าย (MyNumber, DecimalPlace - 1))
End If
นับ = 1
ทำในขณะที่ MyNumber <> ""
Temp = GetHundreds(ขวา(MyNumber, 3))
ถ้า Temp <> "" ดังนั้น Riyals = Temp & Place(Count) & Riyals
ถ้า Len(MyNumber) > 3 แล้ว
MyNumber = ซ้าย (MyNumber, Len (MyNumber) - 3)
อื่น
MyNumber = ""
End If
นับ = นับ + 1
ห่วง
เลือกกรณี Riyals
กรณี ""
ริยาล = "ไม่มีริยาล"
กรณี "หนึ่ง"
Riyals = "เพียงหนึ่ง Riyal"
กรณีอื่น
Riyals = "เท่านั้น" & Riyals
ริยาลส์ = ริยาลส์ & ""
สิ้นสุดการเลือก
เลือกกรณี Halalas
กรณี ""
ฮาลาลาส = " & 00/00 รียัลส์"
กรณี "หนึ่ง"
ฮาลาลาส = " & 01/100 รียัลส์"
กรณี "สอง"
ฮาลาลาส = " & 02/100 รียัลส์"
กรณี "สาม"
ฮาลาลาส = " & 03/100 รียัลส์"
กรณี "สี่"
ฮาลาลาส = " & 04/100 รียัลส์"
กรณี "ห้า"
ฮาลาลาส = " & 05/100 รียัลส์"
กรณี "หก"
ฮาลาลาส = " & 06/100 รียัลส์"
กรณี "เซเว่น"
ฮาลาลาส = " & 07/100 รียัลส์"
กรณี "แปด"
ฮาลาลาส = " & 08/100 รียัลส์"
กรณี "เก้า"
ฮาลาลาส = " & 09/100 รียัลส์"
กรณี "สิบ"
ฮาลาลาส = " & 10/100 รียัลส์"
กรณี "สิบเอ็ด"
ฮาลาลาส = " & 11/100 รียัลส์"
กรณี "สิบสอง"
ฮาลาลาส = " & 12/100 รียัลส์"
คดี "สิบสาม"
ฮาลาลาส = " & 13/100 รียัลส์"
กรณี "สิบสี่"
ฮาลาลาส = " & 14/100 รียัลส์"
กรณี "สิบห้า"
ฮาลาลาส = " & 15/100 รียัลส์"
คดี "สิบหก"
ฮาลาลาส = " & 16/100 รียัลส์"
คดี "เซเว่นทีน"
ฮาลาลาส = " & 17/100 รียัลส์"
คดี "สิบแปด"
ฮาลาลาส = " & 18/100 รียัลส์"
กรณี "สิบเก้า"
ฮาลาลาส = " & 19/100 รียัลส์"
กรณี "ยี่สิบ"
ฮาลาลาส = " & 20/100 รียัลส์"
กรณี "ยี่สิบเอ็ด"
ฮาลาลาส = " & 21/100 รียัลส์"
คดี "ยี่สิบสอง"
ฮาลาลาส = " & 22/100 รียัลส์"
คดี "ยี่สิบสาม"
ฮาลาลาส = " & 23/100 รียัลส์"
กรณี "ยี่สิบสี่"
ฮาลาลาส = " & 24/100 รียัลส์"
กรณี "ยี่สิบห้า"
ฮาลาลาส = " & 25/100 รียัลส์"
คดี "ยี่สิบหก"
ฮาลาลาส = " & 26/100 รียัลส์"
กรณี "ยี่สิบเจ็ด"
ฮาลาลาส = " & 27/100 รียัลส์"
คดี "ยี่สิบแปด"
ฮาลาลาส = " & 28/100 รียัลส์"
คดี "ยี่สิบเก้า"
ฮาลาลาส = " & 29/100 รียัลส์"
กรณี "สามสิบ"
ฮาลาลาส = " & 30/100 รียัลส์"
คดี "สามสิบเอ็ด"
ฮาลาลาส = " & 31/100 รียัลส์"
คดี "สามสิบสอง"
ฮาลาลาส = " & 32/100 รียัลส์"
คดี "สามสิบสาม"
ฮาลาลาส = " & 33/100 รียัลส์"
คดี "สามสิบสี่"
ฮาลาลาส = " & 34/100 รียัลส์"
คดี "สามสิบห้า"
ฮาลาลาส = " & 35/100 รียัลส์"
คดี "สามสิบหก"
ฮาลาลาส = " & 36/100 รียัลส์"
คดี "สามสิบเจ็ด"
ฮาลาลาส = " & 37/100 รียัลส์"
คดี "สามสิบแปด"
ฮาลาลาส = " & 38/100 รียัลส์"
คดี "สามสิบเก้า"
ฮาลาลาส = " & 39/100 รียัลส์"
กรณี "สี่สิบ"
ฮาลาลาส = " & 40/100 รียัลส์"
กรณี "สี่สิบเอ็ด"
ฮาลาลาส = " & 41/100 รียัลส์"
กรณี "สี่สิบสอง"
ฮาลาลาส = " & 42/100 รียัลส์"
คดี "สี่สิบสาม"
ฮาลาลาส = " & 43/100 รียัลส์"
กรณี "สี่สิบสี่"
ฮาลาลาส = " & 44/100 รียัลส์"
กรณี "สี่สิบห้า"
ฮาลาลาส = " & 45/100 รียัลส์"
กรณี "สี่สิบหก"
ฮาลาลาส = " & 46/100 รียัลส์"
กรณี "สี่สิบเจ็ด"
ฮาลาลาส = " & 47/100 รียัลส์"
กรณี "สี่สิบแปด"
ฮาลาลาส = " & 48/100 รียัลส์"
กรณี "สี่สิบเก้า"
ฮาลาลาส = " & 49/100 รียัลส์"
กรณี "ห้าสิบ"
ฮาลาลาส = " & 50/100 รียัลส์"
คดี "ห้าสิบเอ็ด"
ฮาลาลาส = " & 51/100 รียัลส์"
คดี "ห้าสิบสอง"
ฮาลาลาส = " & 52/100 รียัลส์"
คดี "ห้าสิบสาม"
ฮาลาลาส = " & 53/100 รียัลส์"
คดี "ห้าสิบสี่"
ฮาลาลาส = " & 54/100 รียัลส์"
คดี "ห้าสิบห้า"
ฮาลาลาส = " & 55/100 รียัลส์"
คดี "ห้าสิบหก"
ฮาลาลาส = " & 56/100 รียัลส์"
คดี "ห้าสิบเจ็ด"
ฮาลาลาส = " & 57/100 รียัลส์"
คดี "ห้าสิบแปด"
ฮาลาลาส = " & 58/100 รียัลส์"
คดี "ห้าสิบเก้า"
ฮาลาลาส = " & 59/100 รียัลส์"
กรณี "หกสิบ"
ฮาลาลาส = " & 60/100 รียัลส์"
คดี "หกสิบเอ็ด"
ฮาลาลาส = " & 61/100 รียัลส์"
คดี "หกสิบสอง"
ฮาลาลาส = " & 62/100 รียัลส์"
คดี "หกสิบสาม"
ฮาลาลาส = " & 63/100 รียัลส์"
คดี "หกสิบสี่"
ฮาลาลาส = " & 64/100 รียัลส์"
คดี "หกสิบห้า"
ฮาลาลาส = " & 65/100 รียัลส์"
คดี "หกสิบหก"
ฮาลาลาส = " & 66/100 รียัลส์"
กรณี "หกสิบเจ็ด"
ฮาลาลาส = " & 67/100 รียัลส์"
คดี "หกสิบแปด"
ฮาลาลาส = " & 68/100 รียัลส์"
คดี "หกสิบเก้า"
ฮาลาลาส = " & 69/100 รียัลส์"
กรณี "เจ็ดสิบ"
ฮาลาลาส = " & 70/100 รียัลส์"
คดี "เจ็ดสิบเอ็ด"
ฮาลาลาส = " & 71/100 รียัลส์"
คดี "เจ็ดสิบสอง"
ฮาลาลาส = " & 72/100 รียัลส์"
คดี "เจ็ดสิบสาม"
ฮาลาลาส = " & 73/100 รียัลส์"
คดี "เจ็ดสิบสี่"
ฮาลาลาส = " & 74/100 รียัลส์"
คดี "เจ็ดสิบห้า"
ฮาลาลาส = " & 75/100 รียัลส์"
คดี "เจ็ดสิบหก"
ฮาลาลาส = " & 76/100 รียัลส์"
คดี "เซเว่นตี้เซเว่น"
ฮาลาลาส = " & 77/100 รียัลส์"
คดี "เจ็ดสิบแปด"
ฮาลาลาส = " & 78/100 รียัลส์"
คดี "เจ็ดสิบเก้า"
ฮาลาลาส = " & 79/100 รียัลส์"
กรณี "แปดสิบ"
ฮาลาลาส = " & 80/100 รียัลส์"
คดี "แปดสิบเอ็ด"
ฮาลาลาส = " & 81/100 รียัลส์"
คดี "แปดสิบสอง"
ฮาลาลาส = " & 82/100 รียัลส์"
คดี "แปดสิบสาม"
ฮาลาลาส = " & 83/100 รียัลส์"
คดี "แปดสิบสี่"
ฮาลาลาส = " & 84/100 รียัลส์"
คดี "แปดสิบห้า"
ฮาลาลาส = " & 85/100 รียัลส์"
คดี "แปดสิบหก"
ฮาลาลาส = " & 86/100 รียัลส์"
คดี "แปดสิบเจ็ด"
ฮาลาลาส = " & 87/100 รียัลส์"
คดี "แปดสิบแปด"
ฮาลาลาส = " & 88/100 รียัลส์"
คดี "แปดสิบเก้า"
ฮาลาลาส = " & 89/100 รียัลส์"
กรณี "เก้าสิบ"
ฮาลาลาส = " & 90/100 รียัลส์"
กรณี "เก้าสิบเอ็ด"
ฮาลาลาส = " & 91/100 รียัลส์"
คดี "เก้าสิบสอง"
ฮาลาลาส = " & 92/100 รียัลส์"
คดี "เก้าสิบสาม"
ฮาลาลาส = " & 93/100 รียัลส์"
คดี "เก้าสิบสี่"
ฮาลาลาส = " & 94/100 รียัลส์"
คดี "เก้าสิบห้า"
ฮาลาลาส = " & 95/100 รียัลส์"
คดี "เก้าสิบหก"
ฮาลาลาส = " & 96/100 รียัลส์"
คดี "เก้าสิบเจ็ด"
ฮาลาลาส = " & 97/100 รียัลส์"
คดี "เก้าสิบแปด"
ฮาลาลาส = " & 98/100 รียัลส์"
คดี "เก้าสิบเก้า"
ฮาลาลาส = " & 99/100 รียัลส์"


กรณีอื่น
ฮาลาลาส = " & " & ฮาลาล & " ฮาลาลาส"
สิ้นสุดการเลือก
การสะกดคำ = Riyals & Halalas
ฟังก์ชั่นเอนด์


' แปลงตัวเลขจาก 100-999 เป็นข้อความ
ฟังก์ชัน GetHundreds (ByVal MyNumber)
ผลการหรี่เป็นสตริง
ถ้า Val(MyNumber) = 0 ให้ออกจากฟังก์ชัน
MyNumber = ขวา ("000" & MyNumber, 3)
' แปลงหลักร้อย
ถ้า Mid(MyNumber, 1, 1) <> "0" แล้ว
ผลลัพธ์ = GetDigit(Mid(MyNumber, 1, 1)) & " Hundred "
End If
' แปลงหลักสิบและหลักสิบ
ถ้า Mid(MyNumber, 2, 1) <> "0" แล้ว
ผลลัพธ์ = ผลลัพธ์ & GetTens (กลาง (MyNumber, 2))
อื่น
ผลลัพธ์ = ผลลัพธ์ & GetDigit(Mid(MyNumber, 3))
End If
GetHundreds = ผลลัพธ์
ฟังก์ชั่นเอนด์

' แปลงตัวเลขจาก 10 เป็น 99 เป็นข้อความ
ฟังก์ชัน GetTens (TensText)
ผลการหรี่เป็นสตริง
Result = "" ' ลบค่าฟังก์ชันชั่วคราวออก
ถ้า Val(Left(TensText, 1)) = 1 แล้ว ' ถ้าค่าระหว่าง 10-19...
เลือกกรณี (TensText)
กรณีที่ 10: ผลลัพธ์ = "สิบ"
กรณีที่ 11: ผลลัพธ์ = "สิบเอ็ด"
กรณีที่ 12: ผลลัพธ์ = "สิบสอง"
กรณีที่ 13: ผลลัพธ์ = "สิบสาม"
กรณีที่ 14: ผลลัพธ์ = "สิบสี่"
กรณีที่ 15: ผลลัพธ์ = "สิบห้า"
กรณีที่ 16: ผลลัพธ์ = "สิบหก"
กรณีที่ 17: ผลลัพธ์ = "สิบเจ็ด"
กรณีที่ 18: ผลลัพธ์ = "สิบแปด"
กรณีที่ 19: ผลลัพธ์ = "สิบเก้า"
กรณีอื่น
สิ้นสุดการเลือก
Else ' หากมีค่าระหว่าง 20-99...
เลือก Case Val(ซ้าย(TensText, 1))
กรณีที่ 2: ผลลัพธ์ = "ยี่สิบ"
กรณีที่ 3: ผลลัพธ์ = "สามสิบ"
กรณีที่ 4: ผลลัพธ์ = "สี่สิบ"
กรณีที่ 5: ผลลัพธ์ = "ห้าสิบ"
กรณีที่ 6: ผลลัพธ์ = "หกสิบ"
กรณีที่ 7: ผลลัพธ์ = "เจ็ดสิบ"
กรณีที่ 8: ผลลัพธ์ = "แปดสิบ"
กรณีที่ 9: ผลลัพธ์ = "เก้าสิบ"
กรณีอื่น
สิ้นสุดการเลือก
ผลลัพธ์ = ผลลัพธ์ & GetDigit _
(ขวา(TensText, 1)) ' ดึงที่หนึ่ง
End If
GetTens = ผลลัพธ์
ฟังก์ชั่นเอนด์

' แปลงตัวเลขจาก 1 เป็น 9 เป็นข้อความ
ฟังก์ชัน GetDigit(หลัก)
เลือกกรณี (หลัก)
กรณีที่ 1: GetDigit = "หนึ่ง"
กรณีที่ 2: GetDigit = "สอง"
กรณีที่ 3: GetDigit = "สาม"
กรณีที่ 4: GetDigit = "สี่"
กรณีที่ 5: GetDigit = "ห้า"
กรณีที่ 6: GetDigit = "หก"
กรณีที่ 7: GetDigit = "เจ็ด"
กรณีที่ 8: GetDigit = "แปด"
กรณีที่ 9: GetDigit = "เก้า"
กรณีอื่น: GetDigit = ""
สิ้นสุดการเลือก
ฟังก์ชั่นเอนด์
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ฉันจำเป็นต้องใช้ Excell Workbook ทั้งหมด วิธีการใช้การเข้ารหัสนี้กับสมุดงาน excel ทั้งหมด
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
รูปี หนึ่งหมื่นสี่พันแปดร้อย เจ็ดสิบห้า เฉพาะจำนวนสุดท้ายที่ควรมีคำว่าและตัวอย่าง
รูปี หนึ่งหมื่นสี่พันแปดร้อยเจ็ดสิบห้าเท่านั้น
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ไม่สามารถอ่านเกิน 10 crore
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
หนึ่งครั่งหกหมื่นเก้าพันแปดสิบหนึ่งและสี่สิบสอง Paise - แปลงไม่ถูกต้อง ยังไม่แปลงตัวเลขด้านบนเมื่อปัดเศษ
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ขอบคุณสำหรับรหัส...
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ขอบคุณสำหรับการเข้ารหัส ฉันสมัคร & มันใช้งานได้ แต่ใช้ได้เฉพาะกับสมุดงานนั้นเท่านั้น ฉันจำเป็นต้องใช้ Excell Workbook ทั้งหมด วิธีการใช้การเข้ารหัสนี้กับสมุดงาน excel ทั้งหมด
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สวัสดีค่ะ คุณศิวะจี
ใช่ รหัสนี้คือ User Defined Function คุณควรใช้สูตรกับไฟล์ทีละไฟล์ ถ้าคุณต้องการรหัสเพื่อนำไปใช้กับสมุดงานหลายชุด มันจะใช้กับตัวเลขทั้งหมด ดังนั้นตัวเลขทั้งหมดจะมีการเปลี่ยนแปลง และรหัสไม่สามารถรองรับการเลิกทำ มีความเสี่ยงด้านความปลอดภัยบางอย่าง ไม่แนะนำให้ทำเช่นนี้ ขอขอบคุณ!
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
How can remove the word "Rupees"? Normally cheque leaves have the word "Rupees" already.
มีความคิดเห็นยังไม่มีการโพสต์ที่นี่
แสดงความคิดเห็นของคุณ
โพสต์ในฐานะแขก
×
ให้คะแนนโพสต์นี้:
0   ตัวอักษร
สถานที่แนะนำ