Tìm kiếm câu trả lời trước khi đặt câu hỏi
Kết quả 1 đến 5 của 5

Chủ đề:
Hàm chuyển số thành chữ trong excel

  1. #1
    Gia nhập
    04-04-2011
    Bài gửi
    23
    Cảm ơn
    0
    Được cảm ơn 0 trong 0 bài

    Hàm chuyển số thành chữ trong excel

    Sông Hương núi Ngự Quê nhà
    Mấy ai ngoảnh mặt nơi ta đi về

  2. #2
    Gia nhập
    25-03-2011
    Bài gửi
    410
    Cảm ơn
    243
    Được cảm ơn 216 trong 107 bài
    Trích dẫn Gửi bởi SongHuong Xem bài viết
    Anh chị ơi cho em hỏi khi mình muốn chuyển tự động số thành chữ trong excel thì phải làm như thế nào ạ? Dùng hàm gì?
    Câu hỏi này rất hay. Muốn chuyển số thành chữ cụ thể như là số tiền bằng chữ thì không phải chỉ dùng 1 hàm là xong đâu mà còn kết hợp nhiều nữa. Mình phải thiết lập một bảng số thứ tự từ 0 đến 9.
    Đừng tự hào cho rằng mình giỏi
    Hãy tự hỏi giỏi sao vẫn nghèo
    CUNG CẤP DẦU DỪA BẢO AN

  3. #3
    Gia nhập
    16-06-2011
    Tuổi
    35
    Bài gửi
    49
    Cảm ơn
    1
    Được cảm ơn 0 trong 0 bài
    Bình thường em hay dùng hàm này
    =VALUE(MID($J$3,K3,1))
    =SUM(K4:K4)
    =IF(K4=0,"",CHOOSE(K4,"Mốt","Hai","Ba","Bốn"," Năm","Sáu","Bảy","Tám","Chín"))
    =IF(K4=0,"","trăm")

    với K3 là số 1, j3 là ô số cần chuyển thành chữ
    công thức trên là đọc số đầu, các số sau từ 1 đến 1+x tương tự

  4. #4
    Gia nhập
    25-03-2011
    Bài gửi
    184
    Cảm ơn
    0
    Được cảm ơn 15 trong 8 bài
    Trích dẫn Gửi bởi SongHuong Xem bài viết
    Anh chị ơi cho em hỏi khi mình muốn chuyển tự động số thành chữ trong excel thì phải làm như thế nào ạ? Dùng hàm gì?
    Ngoài 2 cách trên bạn cũng có thể dùng tiện ích vntool của tác giả Thanh Điểu để chuyển số thành chữ với nhiều tiện ích khác nhau.Chi tiết file đính kèm!
    Sau khi tải về bạn thực hiện giải nén và chạy file tool nhé!
    File đính kèm File đính kèm
    BÌNH TĨNH ĐẾN KINH HOÀNG:57:

  5. #5
    Gia nhập
    16-04-2011
    Bài gửi
    43
    Cảm ơn
    0
    Được cảm ơn 7 trong 5 bài
    Trích dẫn Gửi bởi SongHuong Xem bài viết
    Anh chị ơi cho em hỏi khi mình muốn chuyển tự động số thành chữ trong excel thì phải làm như thế nào ạ? Dùng hàm gì?
    Muốn tự tay làm lấy thì mở workbook rồi nhấn Alt + f11 cửa sổ VBA hiện ra -> crt+R mở Project Explorer -> VBAProject (Book1) -> nhấn chuột phải chọn Insert\ Module. Module mới mở ra tiến hành paste đoạn code sau:
    Function SoRaChu(ByVal NumCurrency As Currency) As String
    If NumCurrency = 0 Then
    SoRaChu = "Không đồng"
    Exit Function
    End If
    If NumCurrency > 922337203685477# Then ' Số lớn nhất của loại CURRENCY
    SoRaChu = "Không đổi được số lớn hơn 922,337,203,685,477"
    Exit Function
    End If
    Static CharVND(9) As String, BangChu As String, I As Integer
    Dim SoLe, SoDoi As Integer, PhanChan, Ten As String
    Dim DonViTien As String, DonViLe As String
    Dim NganTy As Integer, Ty As Integer, Trieu As Integer, Ngan As Integer
    Dim Dong As Integer, Tram As Integer, Muoi As Integer, DonVi As Integer

    DonViTien = "đồng"
    DonViLe = "xu"

    CharVND(1) = "một"
    CharVND(2) = "hai"
    CharVND(3) = "ba"
    CharVND(4) = "bốn"
    CharVND(5) = "năm"
    CharVND(6) = "sáu"
    CharVND(7) = "bảy"
    CharVND(8) = "tám"
    CharVND(9) = "chín"

    SoLe = Int((NumCurrency - Int(NumCurrency)) * 100) '2 kí số lẻ
    PhanChan = Trim$(Str$(Int(NumCurrency)))
    PhanChan = Space(15 - Len(PhanChan)) + PhanChan

    NganTy = Val(Left(PhanChan, 3))
    Ty = Val(Mid$(PhanChan, 4, 3))
    Trieu = Val(Mid$(PhanChan, 7, 3))
    Ngan = Val(Mid$(PhanChan, 10, 3))
    Dong = Val(Mid$(PhanChan, 13, 3))
    If NganTy = 0 And Ty = 0 And Trieu = 0 And Ngan = 0 And Dong = 0 Then
    BangChu = "không " + DonViTien + " "
    I = 5
    Else
    BangChu = ""
    I = 0
    End If
    While I <= 5
    Select Case I
    Case 0
    SoDoi = NganTy
    Ten = "ngàn tỷ"
    Case 1
    SoDoi = Ty
    Ten = "tỷ"
    Case 2
    SoDoi = Trieu
    Ten = "triệu"
    Case 3
    SoDoi = Ngan
    Ten = "ngàn"
    Case 4
    SoDoi = Dong
    Ten = DonViTien
    Case 5
    SoDoi = SoLe
    Ten = DonViLe
    End Select
    If SoDoi <> 0 Then
    Tram = Int(SoDoi / 100)
    Muoi = Int((SoDoi - Tram * 100) / 10)
    DonVi = (SoDoi - Tram * 100) - Muoi * 10
    BangChu = Trim(BangChu) + IIf(Len(BangChu) = 0, "", ", ") + _
    IIf(Tram <> 0, Trim(CharVND(Tram)) + " trăm ", "")
    If Muoi = 0 And Tram <> 0 And DonVi <> 0 Then
    BangChu = BangChu + "lẻ "
    Else
    If Muoi <> 0 Then
    BangChu = BangChu + IIf(Muoi <> 0 And Muoi <> 1, _
    Trim(CharVND(Muoi)) + " mươi ", "mười ")
    End If
    End If

    If Muoi <> 0 And DonVi = 5 Then
    BangChu = BangChu + "lăm " + Ten + " "
    Else
    If Muoi > 1 And DonVi = 1 Then
    BangChu = BangChu + "mốt " + Ten + " "
    Else
    BangChu = BangChu+IIf(DonVi <> 0,Trim(CharVND(DonVi))+" "+Ten+" ", Ten + " ")
    End If
    End If
    Else
    BangChu = BangChu + IIf(I = 4, DonViTien + " ", "")
    End If
    I = I + 1
    Wend
    If SoLe = 0 Then
    BangChu = BangChu + "chẵn"
    End If
    Mid$(BangChu, 1, 1) = UCase$(Mid$(BangChu, 1, 1))
    SoRaChu = BangChu
    End Function
    Bạn để ý, hàm SoRaChu có phân biệt cách đọc số 1 (một hay mốt), 5 (năm hay lăm), mươi hay mười và chỉ đổi số có trị lớn nhất là 922,337, 203, 685, 477. Các chữ Việt có dấu trong đoạn mã 1 có mã Unicode.
    3. Chuyển sang cửa sổ Excel để kiểm tra hàm bằng cách thử gõ vào ô bất kỳ, ví dụ: =SoRaChu(922337203,34). Nếu êm xuôi thì chuyển sang bước kế tiếp.
    4. Mô tả hàm để chọn chính xác tên hàm khi bạn sử dụng công cụ Past Function. Trong cửa sổ Excel, chọn menu Tools\ Macro\ Macros để hiển thị hộp thoại Macro. Gõ tên hàm SoRaChu vào ô Macro name, rồi bấm Options để mở tiếp hộp thoại Macro Options, gõ nội dung mô tả hàm vào ô Description, bấm OK để đóng hộp thoại Macro Options, cuối cùng bấm Cancel để đóng hộp thoại Macro.
    5. Ghi workbook lên đĩa thành tập tin TienBac.XLA (ví dụ). Bạn phải đặt tập tin này đúng chỗ để mỗi lần Excel khởi động sẽ nạp nó tự động.
    Đối với Excel XP trên Windows XP:
    C:\Documents and Settings\UserName\Application Data\Microsoft\AddIns
    Đối với Excel 2000 trên Windows 98:
    C:\Windows\Application Data\Microsoft\AddIns
    Đối với Excel 97 trên Windows 98:
    C:\Program Files\Microsoft Office\Office\Library
    Đóng Excel mà không cần ghi lại các thay đổi trên Book1.
    6. Dùng Windows Explorer để thêm mô tả cho add-in bằng cách bấm chuột phải trên tên tập tin TienBac.XLA, chọn mục Properties để mở hộp thoại Properties, chọn thẻ Summary để gõ mô tả vào ô Comments, gõ tên của add-in vào ô Title. Chọn nút OK để chấp nhận các thông tin vừa nêu.
    7. Khởi động lại Excel, cài đặt add-in vừa tạo cho Excel bằng cách chọn trình đơn Tools\ Add-Ins để mở hộp thoại Add-Ins, chọn tên add-in của ta trong danh sách Add-Ins available, rồi bấm OK.
    Từ đây trở về sau, mỗi lần mở Excel, bạn đương nhiên dùng được hàm SoRaChu trong add-in TienBac.XLA.

    Theo echip.com.vn

  6. Có 1 Hội viên đã cảm ơn daotaoketoan cho bài viết này:


Thông tin về chủ đề này

Users Browsing this Thread

Có 1 người đang xem chủ đề. (0 Hội viên và 1 khách)

Các chủ đề ngẫu nhiên

  1. [Hỏi/đáp] Cách chuyển định dạng ngày tháng năm trong excel
    Bởi thuhuong87 trong diễn đàn Excel
    Trả lời: 1
    Bài viết cuối: 06-05-12, 04:47 PM
  2. Thứ tự dòng bị chuyển qua bên phải trong excel
    Bởi sinhvienkinhte trong diễn đàn Excel
    Trả lời: 2
    Bài viết cuối: 10-06-11, 01:35 PM
  3. Sửa lỗi di chuyển trên ô Excel
    Bởi VOV trong diễn đàn Excel
    Trả lời: 4
    Bài viết cuối: 30-05-11, 11:53 AM
  4. Chuyển đổi toàn bộ biểu mẫu TT 28/2011/TT-BTC sang excel
    Bởi GOLD trong diễn đàn Nội quy - Thông báo
    Trả lời: 0
    Bài viết cuối: 20-05-11, 07:07 PM
  5. Sắp xếp ngày tháng trong phần mềm kế toán excel
    Bởi ut_nho trong diễn đàn Excel
    Trả lời: 1
    Bài viết cuối: 18-05-11, 01:27 PM

Những Hội viên đã đọc chủ đề này : 10

Tag của Chủ đề này

Đánh dấu và chia sẻ lên các trang sau

Đánh dấu và chia sẻ lên các trang sau

Quyền viết bài

  • Bạn Không thể gửi Chủ đề mới
  • Bạn Không thể Gửi trả lời
  • Bạn Không thể Gửi file đính kèm
  • Bạn Không thể Sửa bài viết của mình
  •