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

Làm thế nào để chuyển đổi số thành từ bằng đồng rupee Ấn Độ trong Excel?

Bài viết này, tôi sẽ giới thiệu cách chuyển đổi một danh sách các số thành các từ trong đồng rupee Ấn Độ hoặc đô la Anh trong Excel.

Chuyển số thành từ bằng đồng rupee Ấn Độ với mã VBA

Chuyển đổi số sang từ bằng đô la Anh với một tính năng tuyệt vời


Chuyển số thành từ bằng đồng rupee Ấn Độ với mã VBA

Mã VBA sau có thể giúp bạn chuyển đổi các số thành các từ bằng đồng rupee, vui lòng thực hiện như sau:

1. Giữ ALT + F11 phím để mở Microsoft Visual Basic cho các ứng dụng cửa sổ.

2. Nhấp chuột Chèn > Mô-đunvà dán mã sau vào Cửa sổ mô-đun.

Mã VBA: Chuyển số thành từ bằng đồng rupee

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. Sau khi chèn mã, hãy lưu và đóng cửa sổ mã, quay lại trang tính và nhập công thức này: = RupeeFormat (A2) vào một ô trống, sau đó kéo chốt điền xuống để áp dụng công thức này cho các ô khác, tất cả các số đã được viết bằng rupee, xem ảnh chụp màn hình:


Chuyển đổi số sang từ bằng đô la Anh với một tính năng tuyệt vời

Nếu bạn muốn chuyển các số sang các từ bằng đô la Anh, Kutools cho Excel'S Số thành từ tính năng này có thể giúp bạn giải quyết công việc này một cách nhanh chóng và dễ dàng.

Lời khuyên:Để áp dụng điều này Số thành từ , trước tiên, bạn nên tải xuống Kutools cho Excel, và sau đó áp dụng tính năng một cách nhanh chóng và dễ dàng.

Sau khi cài đặt Kutools cho Excel, hãy làm như sau:

1. Chọn danh sách các số bạn muốn chuyển đổi, sau đó bấm Kutools > Nội dung > Số thành từ, xem ảnh chụp màn hình:

2. Trong Số cho từ tiền tệ hộp thoại, chọn Tiếng Anh tùy chọn từ Ngôn ngữ và sau đó nhấp vào Ok , các số trong lựa chọn đã được chuyển đổi sang các từ tiền tệ tiếng Anh, xem ảnh chụp màn hình:

Nhấp để Tải xuống Kutools cho Excel và dùng thử miễn phí ngay!

 


  • Thanh siêu công thức (dễ dàng chỉnh sửa nhiều dòng văn bản và công thức); Bố cục đọc (dễ dàng đọc và chỉnh sửa số lượng ô lớn); Dán vào Dải ô đã Lọchữu ích. Cảm ơn !
  • Hợp nhất các ô / hàng / cột và Lưu giữ dữ liệu; Nội dung phân chia ô; Kết hợp các hàng trùng lặp và Tổng / Trung bình... Ngăn chặn các ô trùng lặp; So sánh các dãyhữu ích. Cảm ơn !
  • Chọn trùng lặp hoặc duy nhất Hàng; Chọn hàng trống (tất cả các ô đều trống); Tìm siêu và Tìm mờ trong Nhiều Sổ làm việc; Chọn ngẫu nhiên ...
  • Bản sao chính xác Nhiều ô mà không thay đổi tham chiếu công thức; Tự động tạo tài liệu tham khảo sang Nhiều Trang tính; Chèn Bullets, Hộp kiểm và hơn thế nữa ...
  • Yêu thích và Chèn công thức nhanh chóng, Dãy, Biểu đồ và Hình ảnh; Mã hóa ô với mật khẩu; Tạo danh sách gửi thư và gửi email ...
  • Trích xuất văn bản, Thêm Văn bản, Xóa theo Vị trí, Xóa không gian; Tạo và In Tổng số phân trang; Chuyển đổi giữa nội dung ô và nhận xéthữu ích. Cảm ơn !
  • Siêu lọc (lưu và áp dụng các lược đồ lọc cho các trang tính khác); Sắp xếp nâng cao theo tháng / tuần / ngày, tần suất và hơn thế nữa; Bộ lọc đặc biệt bằng cách in đậm, in nghiêng ...
  • Kết hợp Workbook và WorkSheets; Hợp nhất các bảng dựa trên các cột chính; Chia dữ liệu thành nhiều trang tính; Chuyển đổi hàng loạt xls, xlsx và PDFhữu ích. Cảm ơn !
  • Nhóm bảng tổng hợp theo số tuần, ngày trong tuần và hơn thế nữa ... Hiển thị các ô đã mở khóa, đã khóa bởi các màu sắc khác nhau; Đánh dấu các ô có công thức / tênhữu ích. Cảm ơn !
tab kte 201905
  • Cho phép chỉnh sửa và đọc theo thẻ trong Word, Excel, PowerPoint, Publisher, Access, Visio và Project.
  • Mở và tạo nhiều tài liệu trong các tab mới của cùng một cửa sổ, thay vì trong các cửa sổ mới.
  • Tăng 50% năng suất của bạn và giảm hàng trăm cú nhấp chuột cho bạn mỗi ngày!
officetab dưới cùng

 

Nhận xét (22)
Chưa có xếp hạng. Hãy là người đầu tiên xếp hạng!
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Excel bị treo khi ô tham chiếu không có van!
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Xin chào người dùng!
Cảm ơn bạn đã bình luận, mã trong bài viết này đã được cập nhật, vui lòng thử lại, cảm ơn bạn!
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Dear Sir,

Good day,

Tôi đã kiểm tra công thức ở trên, nó không hoạt động trong dấu gạch nối trừ các giá trị như -100 -10,000 hoặc (100) (10,000)

Thưa ông, tôi đang sử dụng mã dưới đây trong 1 năm qua và hôm nay tôi đã phát hiện ra lỗi tương tự.

Khi tôi viết trừ -10,000 hoặc (10,000), nó hiển thị "Chỉ một trăm vạn"
Khi tôi viết Positive 10,000, nó hoạt động rất tốt "Only Ten Thousand"

Ví dụ dưới đây:

(10,000.99) Chỉ Trăm vạn & 99/100 Riyals
10,000.99 chỉ Mười nghìn & 99/100 Riyals
(10,000,000.99) Chỉ Trăm Mười Triệu & 99/100 Riyals
10,000,000.99 Chỉ 99 triệu & 100/XNUMX Riyals
(10,000,000,000.99) Chỉ Trăm Mười Tỷ & 99/100 Riyals
10,000,000,000.99 Chỉ 99 tỷ & 100/XNUMX Riyals
(10,000,000,000,000.90) Chỉ Trăm Mười nghìn tỷ & 90/100 Riyals
10,000,000,000,000.90 Chỉ 90 nghìn tỷ & 100/XNUMX Riy

Công thức = thanh toán chính tả

MÃ VBA CỦA TÔI:

'Chức năng chính
Chức năng SpellBilling (ByVal MyNumber)
Dim Riyals, Halalas, Temp
Dim DecimalPlace, Count
ReDim Place (9) Dưới dạng chuỗi
Place (2) = "Ngàn"
Nơi (3) = "Triệu"
Nơi (4) = "Tỷ"
Nơi (5) = "nghìn tỷ"
'Biểu diễn chuỗi số lượng.
MyNumber = Trim (Str (MyNumber))
'Vị trí của chữ số thập phân 0 nếu không có.
DecimalPlace = InStr (MyNumber, ".")
'Chuyển đổi Halalas và đặt MyNumber thành số tiền Riyal.
Nếu DecimalPlace> 0 Thì
Halalas = GetTens (Trái (Giữa (MyNumber, DecimalPlace + 1) & _
"00", 2))
MyNumber = Trim (Left (MyNumber, DecimalPlace - 1))
Cuối Nếu
Đếm = 1
Thực hiện trong khi MyNumber <> ""
Temp = GetH Hàng trăm (Phải (MyNumber, 3))
If Temp <> "" Then Riyals = Temp & Place (Đếm) & Riyals
If Len (MyNumber)> 3 Then
MyNumber = Left (MyNumber, Len (MyNumber) - 3)
Khác
MyNumber = ""
Cuối Nếu
Đếm = Đếm + 1
Vòng lặp
Chọn Case Riyals
Trường hợp ""
Riyals = "Không có Riyal"
Trường hợp "Một"
Riyals = "Chỉ một người trung thành"
Trường hợp khác
Riyals = "Chỉ" & Riyals
Riyals = Riyals & ""
Kết thúc Chọn
Chọn Halalas trường hợp
Trường hợp ""
Halalas = "& 00/00 Riyals"
Trường hợp "Một"
Halalas = "& 01/100 Riyals"
Trường hợp "Hai"
Halalas = "& 02/100 Riyals"
Trường hợp "Ba"
Halalas = "& 03/100 Riyals"
Trường hợp "Bốn"
Halalas = "& 04/100 Riyals"
Trường hợp "Năm"
Halalas = "& 05/100 Riyals"
Trường hợp "Sáu"
Halalas = "& 06/100 Riyals"
Trường hợp "Seven"
Halalas = "& 07/100 Riyals"
Trường hợp "Tám"
Halalas = "& 08/100 Riyals"
Trường hợp "Chín"
Halalas = "& 09/100 Riyals"
Trường hợp "Mười"
Halalas = "& 10/100 Riyals"
Trường hợp "Mười một"
Halalas = "& 11/100 Riyals"
Trường hợp "Mười hai"
Halalas = "& 12/100 Riyals"
Trường hợp "Mười ba"
Halalas = "& 13/100 Riyals"
Trường hợp "Mười bốn"
Halalas = "& 14/100 Riyals"
Trường hợp "Mười lăm"
Halalas = "& 15/100 Riyals"
Trường hợp "Mười sáu"
Halalas = "& 16/100 Riyals"
Trường hợp "Mười bảy"
Halalas = "& 17/100 Riyals"
Trường hợp "Mười tám"
Halalas = "& 18/100 Riyals"
Trường hợp "Mười chín"
Halalas = "& 19/100 Riyals"
Trường hợp "Hai mươi"
Halalas = "& 20/100 Riyals"
Trường hợp "Hai mươi mốt"
Halalas = "& 21/100 Riyals"
Trường hợp "Hai mươi hai"
Halalas = "& 22/100 Riyals"
Trường hợp "Hai mươi ba"
Halalas = "& 23/100 Riyals"
Trường hợp "Hai mươi bốn"
Halalas = "& 24/100 Riyals"
Trường hợp "Hai mươi lăm"
Halalas = "& 25/100 Riyals"
Trường hợp "Hai mươi sáu"
Halalas = "& 26/100 Riyals"
Trường hợp "Hai mươi bảy"
Halalas = "& 27/100 Riyals"
Trường hợp "Hai mươi tám"
Halalas = "& 28/100 Riyals"
Trường hợp "Hai mươi chín"
Halalas = "& 29/100 Riyals"
Trường hợp "Ba mươi"
Halalas = "& 30/100 Riyals"
Trường hợp "Ba mươi mốt"
Halalas = "& 31/100 Riyals"
Trường hợp "Ba mươi hai"
Halalas = "& 32/100 Riyals"
Trường hợp "Ba mươi ba"
Halalas = "& 33/100 Riyals"
Trường hợp "Ba mươi tư"
Halalas = "& 34/100 Riyals"
Trường hợp "Ba mươi lăm"
Halalas = "& 35/100 Riyals"
Trường hợp "Ba mươi sáu"
Halalas = "& 36/100 Riyals"
Trường hợp "Ba mươi bảy"
Halalas = "& 37/100 Riyals"
Trường hợp "Ba mươi tám"
Halalas = "& 38/100 Riyals"
Trường hợp "Ba mươi chín"
Halalas = "& 39/100 Riyals"
Trường hợp "Bốn mươi"
Halalas = "& 40/100 Riyals"
Trường hợp "Bốn mươi mốt"
Halalas = "& 41/100 Riyals"
Trường hợp "Bốn mươi hai"
Halalas = "& 42/100 Riyals"
Trường hợp "Bốn mươi ba"
Halalas = "& 43/100 Riyals"
Trường hợp "Bốn mươi bốn"
Halalas = "& 44/100 Riyals"
Trường hợp "Bốn mươi lăm"
Halalas = "& 45/100 Riyals"
Trường hợp "Bốn mươi sáu"
Halalas = "& 46/100 Riyals"
Trường hợp "Bốn mươi bảy"
Halalas = "& 47/100 Riyals"
Trường hợp "Bốn mươi tám"
Halalas = "& 48/100 Riyals"
Trường hợp "Bốn mươi chín"
Halalas = "& 49/100 Riyals"
Trường hợp "Năm mươi"
Halalas = "& 50/100 Riyals"
Trường hợp "Năm mươi mốt"
Halalas = "& 51/100 Riyals"
Trường hợp "Năm mươi hai"
Halalas = "& 52/100 Riyals"
Trường hợp "Năm mươi ba"
Halalas = "& 53/100 Riyals"
Trường hợp "Năm mươi tư"
Halalas = "& 54/100 Riyals"
Trường hợp "Năm mươi lăm"
Halalas = "& 55/100 Riyals"
Trường hợp "Năm mươi sáu"
Halalas = "& 56/100 Riyals"
Trường hợp "Năm mươi bảy"
Halalas = "& 57/100 Riyals"
Trường hợp "Năm mươi tám"
Halalas = "& 58/100 Riyals"
Trường hợp "Năm mươi chín"
Halalas = "& 59/100 Riyals"
Trường hợp "Sixty"
Halalas = "& 60/100 Riyals"
Trường hợp "Sáu mươi mốt"
Halalas = "& 61/100 Riyals"
Trường hợp "Sáu mươi hai"
Halalas = "& 62/100 Riyals"
Trường hợp "Sáu mươi ba"
Halalas = "& 63/100 Riyals"
Trường hợp "Sáu mươi bốn"
Halalas = "& 64/100 Riyals"
Trường hợp "Sáu mươi lăm"
Halalas = "& 65/100 Riyals"
Trường hợp "Sixty Six"
Halalas = "& 66/100 Riyals"
Trường hợp "Sáu mươi bảy"
Halalas = "& 67/100 Riyals"
Trường hợp "Sáu mươi tám"
Halalas = "& 68/100 Riyals"
Trường hợp "Sáu mươi chín"
Halalas = "& 69/100 Riyals"
Trường hợp "Bảy mươi"
Halalas = "& 70/100 Riyals"
Trường hợp "Bảy mươi một"
Halalas = "& 71/100 Riyals"
Trường hợp "Bảy mươi hai"
Halalas = "& 72/100 Riyals"
Trường hợp "Bảy mươi ba"
Halalas = "& 73/100 Riyals"
Trường hợp "Bảy mươi bốn"
Halalas = "& 74/100 Riyals"
Trường hợp "Bảy mươi lăm"
Halalas = "& 75/100 Riyals"
Trường hợp "Bảy mươi sáu"
Halalas = "& 76/100 Riyals"
Trường hợp "Bảy mươi bảy"
Halalas = "& 77/100 Riyals"
Trường hợp "Bảy mươi tám"
Halalas = "& 78/100 Riyals"
Trường hợp "Bảy mươi chín"
Halalas = "& 79/100 Riyals"
Trường hợp "Tám mươi"
Halalas = "& 80/100 Riyals"
Trường hợp "Tám mươi mốt"
Halalas = "& 81/100 Riyals"
Trường hợp "Tám mươi hai"
Halalas = "& 82/100 Riyals"
Trường hợp "Tám mươi ba"
Halalas = "& 83/100 Riyals"
Trường hợp "Tám mươi bốn"
Halalas = "& 84/100 Riyals"
Trường hợp "Tám mươi lăm"
Halalas = "& 85/100 Riyals"
Trường hợp "Tám mươi sáu"
Halalas = "& 86/100 Riyals"
Trường hợp "Tám mươi bảy"
Halalas = "& 87/100 Riyals"
Trường hợp "Eighty Eight"
Halalas = "& 88/100 Riyals"
Trường hợp "Tám mươi chín"
Halalas = "& 89/100 Riyals"
Trường hợp "Chín mươi"
Halalas = "& 90/100 Riyals"
Trường hợp "Chín mươi mốt"
Halalas = "& 91/100 Riyals"
Trường hợp "Chín mươi hai"
Halalas = "& 92/100 Riyals"
Trường hợp "Chín mươi ba"
Halalas = "& 93/100 Riyals"
Trường hợp "Chín mươi bốn"
Halalas = "& 94/100 Riyals"
Trường hợp "Chín mươi lăm"
Halalas = "& 95/100 Riyals"
Trường hợp "Chín mươi sáu"
Halalas = "& 96/100 Riyals"
Trường hợp "Chín mươi bảy"
Halalas = "& 97/100 Riyals"
Trường hợp "Chín mươi tám"
Halalas = "& 98/100 Riyals"
Trường hợp "Chín mươi chín"
Halalas = "& 99/100 Riyals"


Trường hợp khác
Halalas = "&" & Halalas & "Halalas"
Kết thúc Chọn
SpellBilling = Riyals & Halalas
Cuối Chức năng


'Chuyển đổi một số từ 100-999 thành văn bản
Hàm GetH trăm (ByVal MyNumber)
Làm mờ kết quả dưới dạng chuỗi
If Val (MyNumber) = 0 Then Exit Function
MyNumber = Right ("000" & MyNumber, 3)
'Chuyển đổi hàng trăm nơi.
Nếu Mid (MyNumber, 1, 1) <> "0" Thì
Kết quả = GetDigit (Giữa (MyNumber, 1, 1)) & "Trăm"
Cuối Nếu
'Chuyển đổi vị trí hàng chục và hàng đơn vị.
Nếu Mid (MyNumber, 2, 1) <> "0" Thì
Result = Result & GetTens (Mid (MyNumber, 2))
Khác
Result = Result & GetDigit (Mid (MyNumber, 3))
Cuối Nếu
GetH Hàng trăm = Kết quả
Cuối Chức năng

'Chuyển đổi một số từ 10 đến 99 thành văn bản.
Hàm GetTens (TensText)
Làm mờ kết quả dưới dạng chuỗi
Result = "" 'Bỏ giá trị hàm tạm thời.
If Val (Left (TensText, 1)) = 1 Then 'Nếu giá trị từ 10-19 ...
Chọn trường hợp Val (TensText)
Trường hợp 10: Kết quả = "Mười"
Trường hợp 11: Kết quả = "Mười một"
Trường hợp 12: Kết quả = "Mười hai"
Trường hợp 13: Kết quả = "Mười ba"
Trường hợp 14: Kết quả = "Mười bốn"
Trường hợp 15: Kết quả = "Mười lăm"
Trường hợp 16: Kết quả = "Mười sáu"
Trường hợp 17: Kết quả = "Mười bảy"
Trường hợp 18: Kết quả = "Mười tám"
Trường hợp 19: Kết quả = "Mười chín"
Trường hợp khác
Kết thúc Chọn
Khác 'Nếu giá trị từ 20-99 ...
Chọn trường hợp Val (Trái (TensText, 1))
Trường hợp 2: Kết quả = "Hai mươi"
Trường hợp 3: Kết quả = "Ba mươi"
Trường hợp 4: Kết quả = "Bốn mươi"
Trường hợp 5: Kết quả = "Năm mươi"
Trường hợp 6: Kết quả = "Sáu mươi"
Trường hợp 7: Kết quả = "Bảy mươi"
Trường hợp 8: Kết quả = "Tám mươi"
Trường hợp 9: Kết quả = "Chín mươi"
Trường hợp khác
Kết thúc Chọn
Kết quả = Kết quả & GetDigit _
(Right (TensText, 1)) 'Truy xuất địa điểm của từng người.
Cuối Nếu
GetTens = Kết quả
Cuối Chức năng

'Chuyển đổi một số từ 1 đến 9 thành văn bản.
Hàm GetDigit (Digit)
Chọn trường hợp Val (Chữ số)
Trường hợp 1: GetDigit = "Một"
Trường hợp 2: GetDigit = "Hai"
Trường hợp 3: GetDigit = "Ba"
Trường hợp 4: GetDigit = "Bốn"
Trường hợp 5: GetDigit = "Năm"
Trường hợp 6: GetDigit = "Sáu"
Trường hợp 7: GetDigit = "Bảy"
Trường hợp 8: GetDigit = "Tám"
Trường hợp 9: GetDigit = "Chín"
Trường hợp khác: GetDigit = ""
Kết thúc Chọn
Cuối Chức năng
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Không có gì để nói! Extremlysuper
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Dear Sir,

Good day,
Tôi đã kiểm tra mã VBA của bạn nhưng không may là nó không hoạt động tốt trên các giá trị âm / trừ như -100 -10,000 / (100) (10,000).

Thưa ông, tôi đang sử dụng mã bên dưới trong 1 năm qua và hôm nay tôi đã phát hiện ra lỗi tương tự cũng được tìm thấy trong mã VBA của bạn.

Khi tôi viết trừ -10,000, nó hiển thị trên "Only Hundred Ten Thousand"
Khi tôi viết 10,000 tích cực, nó hiển thị trên "Only Ten Thousand" hoạt động tốt

Ví dụ dưới đây:

(10,000.99) Chỉ Trăm vạn & 99/100 Riyals
10,000.99 chỉ Mười nghìn & 99/100 Riyals
(10,000,000.99) Chỉ Trăm Mười Triệu & 99/100 Riyals
10,000,000.99 Chỉ 99 triệu & 100/XNUMX Riyals
(10,000,000,000.99) Chỉ Trăm Mười Tỷ & 99/100 Riyals
10,000,000,000.99 Chỉ 99 tỷ & 100/XNUMX Riyals
(10,000,000,000,000.90) Chỉ Trăm Mười nghìn tỷ & 90/100 Riyals
10,000,000,000,000.90 Chỉ 90 nghìn tỷ & 100/XNUMX Riy

Công thức = thanh toán chính tả

MÃ VBA CỦA TÔI:

'Chức năng chính
Chức năng SpellBilling (ByVal MyNumber)
Dim Riyals, Halalas, Temp
Dim DecimalPlace, Count
ReDim Place (9) Dưới dạng chuỗi
Place (2) = "Ngàn"
Nơi (3) = "Triệu"
Nơi (4) = "Tỷ"
Nơi (5) = "nghìn tỷ"
'Biểu diễn chuỗi số lượng.
MyNumber = Trim (Str (MyNumber))
'Vị trí của chữ số thập phân 0 nếu không có.
DecimalPlace = InStr (MyNumber, ".")
'Chuyển đổi Halalas và đặt MyNumber thành số tiền Riyal.
Nếu DecimalPlace> 0 Thì
Halalas = GetTens (Trái (Giữa (MyNumber, DecimalPlace + 1) & _
"00", 2))
MyNumber = Trim (Left (MyNumber, DecimalPlace - 1))
Cuối Nếu
Đếm = 1
Thực hiện trong khi MyNumber <> ""
Temp = GetH Hàng trăm (Phải (MyNumber, 3))
If Temp <> "" Then Riyals = Temp & Place (Đếm) & Riyals
If Len (MyNumber)> 3 Then
MyNumber = Left (MyNumber, Len (MyNumber) - 3)
Khác
MyNumber = ""
Cuối Nếu
Đếm = Đếm + 1
Vòng lặp
Chọn Case Riyals
Trường hợp ""
Riyals = "Không có Riyal"
Trường hợp "Một"
Riyals = "Chỉ một người trung thành"
Trường hợp khác
Riyals = "Chỉ" & Riyals
Riyals = Riyals & ""
Kết thúc Chọn
Chọn Halalas trường hợp
Trường hợp ""
Halalas = "& 00/00 Riyals"
Trường hợp "Một"
Halalas = "& 01/100 Riyals"
Trường hợp "Hai"
Halalas = "& 02/100 Riyals"
Trường hợp "Ba"
Halalas = "& 03/100 Riyals"
Trường hợp "Bốn"
Halalas = "& 04/100 Riyals"
Trường hợp "Năm"
Halalas = "& 05/100 Riyals"
Trường hợp "Sáu"
Halalas = "& 06/100 Riyals"
Trường hợp "Seven"
Halalas = "& 07/100 Riyals"
Trường hợp "Tám"
Halalas = "& 08/100 Riyals"
Trường hợp "Chín"
Halalas = "& 09/100 Riyals"
Trường hợp "Mười"
Halalas = "& 10/100 Riyals"
Trường hợp "Mười một"
Halalas = "& 11/100 Riyals"
Trường hợp "Mười hai"
Halalas = "& 12/100 Riyals"
Trường hợp "Mười ba"
Halalas = "& 13/100 Riyals"
Trường hợp "Mười bốn"
Halalas = "& 14/100 Riyals"
Trường hợp "Mười lăm"
Halalas = "& 15/100 Riyals"
Trường hợp "Mười sáu"
Halalas = "& 16/100 Riyals"
Trường hợp "Mười bảy"
Halalas = "& 17/100 Riyals"
Trường hợp "Mười tám"
Halalas = "& 18/100 Riyals"
Trường hợp "Mười chín"
Halalas = "& 19/100 Riyals"
Trường hợp "Hai mươi"
Halalas = "& 20/100 Riyals"
Trường hợp "Hai mươi mốt"
Halalas = "& 21/100 Riyals"
Trường hợp "Hai mươi hai"
Halalas = "& 22/100 Riyals"
Trường hợp "Hai mươi ba"
Halalas = "& 23/100 Riyals"
Trường hợp "Hai mươi bốn"
Halalas = "& 24/100 Riyals"
Trường hợp "Hai mươi lăm"
Halalas = "& 25/100 Riyals"
Trường hợp "Hai mươi sáu"
Halalas = "& 26/100 Riyals"
Trường hợp "Hai mươi bảy"
Halalas = "& 27/100 Riyals"
Trường hợp "Hai mươi tám"
Halalas = "& 28/100 Riyals"
Trường hợp "Hai mươi chín"
Halalas = "& 29/100 Riyals"
Trường hợp "Ba mươi"
Halalas = "& 30/100 Riyals"
Trường hợp "Ba mươi mốt"
Halalas = "& 31/100 Riyals"
Trường hợp "Ba mươi hai"
Halalas = "& 32/100 Riyals"
Trường hợp "Ba mươi ba"
Halalas = "& 33/100 Riyals"
Trường hợp "Ba mươi tư"
Halalas = "& 34/100 Riyals"
Trường hợp "Ba mươi lăm"
Halalas = "& 35/100 Riyals"
Trường hợp "Ba mươi sáu"
Halalas = "& 36/100 Riyals"
Trường hợp "Ba mươi bảy"
Halalas = "& 37/100 Riyals"
Trường hợp "Ba mươi tám"
Halalas = "& 38/100 Riyals"
Trường hợp "Ba mươi chín"
Halalas = "& 39/100 Riyals"
Trường hợp "Bốn mươi"
Halalas = "& 40/100 Riyals"
Trường hợp "Bốn mươi mốt"
Halalas = "& 41/100 Riyals"
Trường hợp "Bốn mươi hai"
Halalas = "& 42/100 Riyals"
Trường hợp "Bốn mươi ba"
Halalas = "& 43/100 Riyals"
Trường hợp "Bốn mươi bốn"
Halalas = "& 44/100 Riyals"
Trường hợp "Bốn mươi lăm"
Halalas = "& 45/100 Riyals"
Trường hợp "Bốn mươi sáu"
Halalas = "& 46/100 Riyals"
Trường hợp "Bốn mươi bảy"
Halalas = "& 47/100 Riyals"
Trường hợp "Bốn mươi tám"
Halalas = "& 48/100 Riyals"
Trường hợp "Bốn mươi chín"
Halalas = "& 49/100 Riyals"
Trường hợp "Năm mươi"
Halalas = "& 50/100 Riyals"
Trường hợp "Năm mươi mốt"
Halalas = "& 51/100 Riyals"
Trường hợp "Năm mươi hai"
Halalas = "& 52/100 Riyals"
Trường hợp "Năm mươi ba"
Halalas = "& 53/100 Riyals"
Trường hợp "Năm mươi tư"
Halalas = "& 54/100 Riyals"
Trường hợp "Năm mươi lăm"
Halalas = "& 55/100 Riyals"
Trường hợp "Năm mươi sáu"
Halalas = "& 56/100 Riyals"
Trường hợp "Năm mươi bảy"
Halalas = "& 57/100 Riyals"
Trường hợp "Năm mươi tám"
Halalas = "& 58/100 Riyals"
Trường hợp "Năm mươi chín"
Halalas = "& 59/100 Riyals"
Trường hợp "Sixty"
Halalas = "& 60/100 Riyals"
Trường hợp "Sáu mươi mốt"
Halalas = "& 61/100 Riyals"
Trường hợp "Sáu mươi hai"
Halalas = "& 62/100 Riyals"
Trường hợp "Sáu mươi ba"
Halalas = "& 63/100 Riyals"
Trường hợp "Sáu mươi bốn"
Halalas = "& 64/100 Riyals"
Trường hợp "Sáu mươi lăm"
Halalas = "& 65/100 Riyals"
Trường hợp "Sixty Six"
Halalas = "& 66/100 Riyals"
Trường hợp "Sáu mươi bảy"
Halalas = "& 67/100 Riyals"
Trường hợp "Sáu mươi tám"
Halalas = "& 68/100 Riyals"
Trường hợp "Sáu mươi chín"
Halalas = "& 69/100 Riyals"
Trường hợp "Bảy mươi"
Halalas = "& 70/100 Riyals"
Trường hợp "Bảy mươi một"
Halalas = "& 71/100 Riyals"
Trường hợp "Bảy mươi hai"
Halalas = "& 72/100 Riyals"
Trường hợp "Bảy mươi ba"
Halalas = "& 73/100 Riyals"
Trường hợp "Bảy mươi bốn"
Halalas = "& 74/100 Riyals"
Trường hợp "Bảy mươi lăm"
Halalas = "& 75/100 Riyals"
Trường hợp "Bảy mươi sáu"
Halalas = "& 76/100 Riyals"
Trường hợp "Bảy mươi bảy"
Halalas = "& 77/100 Riyals"
Trường hợp "Bảy mươi tám"
Halalas = "& 78/100 Riyals"
Trường hợp "Bảy mươi chín"
Halalas = "& 79/100 Riyals"
Trường hợp "Tám mươi"
Halalas = "& 80/100 Riyals"
Trường hợp "Tám mươi mốt"
Halalas = "& 81/100 Riyals"
Trường hợp "Tám mươi hai"
Halalas = "& 82/100 Riyals"
Trường hợp "Tám mươi ba"
Halalas = "& 83/100 Riyals"
Trường hợp "Tám mươi bốn"
Halalas = "& 84/100 Riyals"
Trường hợp "Tám mươi lăm"
Halalas = "& 85/100 Riyals"
Trường hợp "Tám mươi sáu"
Halalas = "& 86/100 Riyals"
Trường hợp "Tám mươi bảy"
Halalas = "& 87/100 Riyals"
Trường hợp "Eighty Eight"
Halalas = "& 88/100 Riyals"
Trường hợp "Tám mươi chín"
Halalas = "& 89/100 Riyals"
Trường hợp "Chín mươi"
Halalas = "& 90/100 Riyals"
Trường hợp "Chín mươi mốt"
Halalas = "& 91/100 Riyals"
Trường hợp "Chín mươi hai"
Halalas = "& 92/100 Riyals"
Trường hợp "Chín mươi ba"
Halalas = "& 93/100 Riyals"
Trường hợp "Chín mươi bốn"
Halalas = "& 94/100 Riyals"
Trường hợp "Chín mươi lăm"
Halalas = "& 95/100 Riyals"
Trường hợp "Chín mươi sáu"
Halalas = "& 96/100 Riyals"
Trường hợp "Chín mươi bảy"
Halalas = "& 97/100 Riyals"
Trường hợp "Chín mươi tám"
Halalas = "& 98/100 Riyals"
Trường hợp "Chín mươi chín"
Halalas = "& 99/100 Riyals"


Trường hợp khác
Halalas = "&" & Halalas & "Halalas"
Kết thúc Chọn
SpellBilling = Riyals & Halalas
Cuối Chức năng


'Chuyển đổi một số từ 100-999 thành văn bản
Hàm GetH trăm (ByVal MyNumber)
Làm mờ kết quả dưới dạng chuỗi
If Val (MyNumber) = 0 Then Exit Function
MyNumber = Right ("000" & MyNumber, 3)
'Chuyển đổi hàng trăm nơi.
Nếu Mid (MyNumber, 1, 1) <> "0" Thì
Kết quả = GetDigit (Giữa (MyNumber, 1, 1)) & "Trăm"
Cuối Nếu
'Chuyển đổi vị trí hàng chục và hàng đơn vị.
Nếu Mid (MyNumber, 2, 1) <> "0" Thì
Result = Result & GetTens (Mid (MyNumber, 2))
Khác
Result = Result & GetDigit (Mid (MyNumber, 3))
Cuối Nếu
GetH Hàng trăm = Kết quả
Cuối Chức năng

'Chuyển đổi một số từ 10 đến 99 thành văn bản.
Hàm GetTens (TensText)
Làm mờ kết quả dưới dạng chuỗi
Result = "" 'Bỏ giá trị hàm tạm thời.
If Val (Left (TensText, 1)) = 1 Then 'Nếu giá trị từ 10-19 ...
Chọn trường hợp Val (TensText)
Trường hợp 10: Kết quả = "Mười"
Trường hợp 11: Kết quả = "Mười một"
Trường hợp 12: Kết quả = "Mười hai"
Trường hợp 13: Kết quả = "Mười ba"
Trường hợp 14: Kết quả = "Mười bốn"
Trường hợp 15: Kết quả = "Mười lăm"
Trường hợp 16: Kết quả = "Mười sáu"
Trường hợp 17: Kết quả = "Mười bảy"
Trường hợp 18: Kết quả = "Mười tám"
Trường hợp 19: Kết quả = "Mười chín"
Trường hợp khác
Kết thúc Chọn
Khác 'Nếu giá trị từ 20-99 ...
Chọn trường hợp Val (Trái (TensText, 1))
Trường hợp 2: Kết quả = "Hai mươi"
Trường hợp 3: Kết quả = "Ba mươi"
Trường hợp 4: Kết quả = "Bốn mươi"
Trường hợp 5: Kết quả = "Năm mươi"
Trường hợp 6: Kết quả = "Sáu mươi"
Trường hợp 7: Kết quả = "Bảy mươi"
Trường hợp 8: Kết quả = "Tám mươi"
Trường hợp 9: Kết quả = "Chín mươi"
Trường hợp khác
Kết thúc Chọn
Kết quả = Kết quả & GetDigit _
(Right (TensText, 1)) 'Truy xuất địa điểm của từng người.
Cuối Nếu
GetTens = Kết quả
Cuối Chức năng

'Chuyển đổi một số từ 1 đến 9 thành văn bản.
Hàm GetDigit (Digit)
Chọn trường hợp Val (Chữ số)
Trường hợp 1: GetDigit = "Một"
Trường hợp 2: GetDigit = "Hai"
Trường hợp 3: GetDigit = "Ba"
Trường hợp 4: GetDigit = "Bốn"
Trường hợp 5: GetDigit = "Năm"
Trường hợp 6: GetDigit = "Sáu"
Trường hợp 7: GetDigit = "Bảy"
Trường hợp 8: GetDigit = "Tám"
Trường hợp 9: GetDigit = "Chín"
Trường hợp khác: GetDigit = ""
Kết thúc Chọn
Cuối Chức năng
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Tôi cần áp dụng tất cả Sổ làm việc Excell. Cách áp dụng mã này cho tất cả sổ làm việc excel.
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Rupee Mười bốn nghìn Tám trăm, Bảy mươi lăm Chỉ số tiền cuối cùng nên có từ và ví dụ
Rupee Mười bốn nghìn Tám trăm Bảy mươi lăm Chỉ
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
không thể đọc quá 10 crore.
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Một Lạc Sáu mươi Chín Ngàn Tám mươi mốt và Bốn mươi Hai Đường - Không được chuyển đổi đúng cách. Cũng không chuyển đổi con số trên khi nó làm tròn.
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
CẢM ƠN BẠN VÌ MẬT MÃ...
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Cảm ơn vì đã viết mã. Tôi đã áp dụng và nó đang hoạt động. Nhưng nó chỉ áp dụng cho sổ làm việc cụ thể đó. Tôi cần áp dụng tất cả Sổ làm việc Excell. Cách áp dụng mã này cho tất cả sổ làm việc excel.
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Xin chào , SivaG
Có, mã này là Hàm do Người dùng Xác định, bạn nên áp dụng công thức cho từng tệp một, nếu bạn cần một mã để áp dụng cho nhiều sổ làm việc, mã này sẽ áp dụng cho tất cả các số, vì vậy tất cả các số sẽ bị thay đổi. Và mã không thể hỗ trợ hoàn tác, có một số rủi ro bảo mật. Nó không được khuyến khích để làm điều này. Cảm ơn bạn!
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Làm thế nào có thể loại bỏ từ "Rupees"? Thông thường check lá đã có chữ "Rupees" rồi.
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Xin chào, Sakariya
Để giải quyết vấn đề của bạn, vui lòng áp dụng mã dưới đây:
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 = 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



Hãy cố gắng, hy vọng nó có thể giúp bạn!
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Cảm ơn nhiều... 🙂
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Nhưng điều này chỉ áp dụng cho một excel. Nếu tôi nhập công thức này vào excel khác thì công thức này không hoạt động
giải pháp cho việc này là gì
vui lòng quay lại
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Chào bạn,

Nếu bạn có nhiều sổ làm việc, bạn cần sao chép mã vào nhiều sổ làm việc.
Nếu bạn chỉ sao chép nó vào một sổ làm việc, nó sẽ không hoạt động trong các sổ làm việc khác. 😀
Hãy cố gắng, cảm ơn bạn!
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Cảm ơn rất nhiều nó rất hữu ích
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Xin chào Ngài, Có thể đặt điều này theo mặc định cho mọi trang tính excel hay không?
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Xin chào Mukesh

Có, miễn là mã được sao chép vào mô-đun cửa sổ vba, công thức có thể được áp dụng cho toàn bộ sổ làm việc.
Nhưng khi đóng sổ làm việc, bạn nên lưu nó dưới dạng Sổ làm việc hỗ trợ macro Excel định dạng tệp.
Xin vui lòng có một thử, cảm ơn bạn!
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Đã thử nhiều lần nó không hoạt động. Hãy giúp tôi
Nhận xét này đã được giảm thiểu bởi người điều hành trên trang web
Xin chào, Trợ giúp tuyệt vời! Cảm ơn vì đã tạo ra một mã tuyệt vời như vậy.

Nó đã tiết kiệm rất nhiều thời gian. "Chúa phù hộ bạn!!"
Không có bình luận nào được đăng ở đây
Để lại ý kiến ​​của bạn
Đăng với tư cách khách
×
Đánh giá bài viết này:
0   Nhân vật
Các vị trí được đề xuất

Kết nối với chúng tôi

Bản quyền © 2009 - www.extendoffice.com. | Đã đăng ký Bản quyền. cung cấp bởi ExtendOffice. | BẢN ĐỒ CHI NHÁNH
Microsoft và logo Office là các nhãn hiệu hoặc nhãn hiệu đã đăng ký của Microsoft Corporation tại Hoa Kỳ và / hoặc các quốc gia khác.
Được bảo vệ bởi Sectigo SSL