Mừng Sinh Nhật GPE 11: sáng 25/6 Hà Nội; 1/7 Huế/Đà Nẵng; Trưa 2/7 TPHCM

Gửi file đổi số ra chữ theo yêu cầu của một số bạn

Thảo luận trong 'Các Add-ins cho excel' bắt đầu bởi popkiller, 7 Tháng chín 2008.

  1. popkiller

    popkiller Thành viên mới

    Chào các bạn!
    Theo yêu cầu của một số bạn gửi cho mình qua Email để nhận phần mềm " Đổi số ra chữ ", hôm nay mình gủi lên đây để các bạn tiện download về sử dụng.
    Chúc các bạn thành công.
     

    Các file đính kèm:

  2. Nghinhphong

    Nghinhphong Thành viên mới

    Bạn ơi, mình cài vào Add_In rồi, nhưng kông biết câu lệnh là gì để chuyển số thành chữ. Trước đây mình nhớ có một người bạn gửi và để chuyện thành chữ thì go: doiso(A3): thì sẽ thành sẽ chuyển được. giờ lệnh là gì vậy???
     
  3. Po_Pikachu

    Po_Pikachu Po_pikachu@ymail.com

    Bạn đọc file này Ufunc.chm trong file đính kèm sẽ hiểu! Nếu muốn Addins, thì có thể copy Ufunctions.xla này vào thư mục C:\Program Files\Microsoft Office\OFFICE11\XLSTART -> Rồi làm theo các hướng dẫn trong file Ufunc.chm thì có thể chạy được Addins này rồi! Thân.
     

    Các file đính kèm:

    Lần chỉnh sửa cuối: 14 Tháng ba 2015
  4. rollover79

    rollover79 Thành viên tiêu biểu

    To Po_Pikachu: Mình đã xem thử cái bạn gửi, nhưng chỉ làm việc với số tối đa có 15 chữ số thôi. Lơn hơn 15 chữ số thì báo Số quá lớn. Bạn có password để xem code không? Mình muốn tham khảo code một chút nhưng mà không có password.
    Hôm trước mình có gửi 1 file cũng dùng để đọc số ở đây, nhưng mình mới chỉ làm đọc ra tiếng Việt, chưa có đọc ra tiếng Anh. Nhưng của mình đọc với số lớn bất kỳ, không giới hạn bao nhiêu chữ số. Cái này là UDF đơn thuần, không phải Add-In. Không đặt password VBA. Các bạn xem thử nhé.
    http://www.giaiphapexcel.com/forum/showthread.php?t=65
     
  5. popkiller

    popkiller Thành viên mới

    to nghinhphong

    Khi khởi động EXCEL Bạn có thấy có thêm 1 thanh công cụ hiện lên ngay trên màn hình không? Nếu không có thì nhắp chọn menu view\toolbars, đánh dấu chọn vào XL vntool. Thanh công cụ hiện ra, bạn đưa trỏ chuột vào nút thứ 2 có chữ V màu đỏ. Sau đó thì khỏi phải hướng dẫn nữa vì toàn tiếng việt không hà.
    chào bạn!
     
  6. cadafi

    cadafi New Style! New Life! Staff Member Super Moderator

    Bạn xem lại đoạn code trong bài bạn gửi theo link trên của bạn xem sao!? Mình gõ =Read(1,000,000,000,000,000), chương trình của bạn đọc là "Mười nghìn không trăm mười lăm" ????
     
  7. rollover79

    rollover79 Thành viên tiêu biểu

    Cảm ơn ca_di, do đối với những số lớn (>15 chữ số) thì đều bị làm tròn, nên bài toán của mình đang xử lý đầu vào là 1 chuỗi số(kiểu chuỗi). Trước đây, hàm Read trong VBA của mình có dòng đầu tiên là dòng sau
    Mã:
        [B]strNumber = Format(strNumber, "0")[/B]
    
    Tuy nhiên bản thân hàm Format cũng bị làm tròn đối với số lớn. Ví dụ khi gõ
    Mã:
        [B]=Read("1234567891234567")[/B]
    
    sẽ cho kết quả như sau:
    - Nếu có dòng lệnh trên(sai)
    Mã:
    Một triệu hai trăm ba mươi bốn nghìn năm trăm sáu mươi bảy tỷ tám trăm chín mươi một triệu hai trăm ba mươi bốn nghìn năm trăm sáu mươi
    
    - Nếu không có dòng lệnh trên(đúng)
    Mã:
    Một triệu hai trăm ba mươi bốn nghìn năm trăm sáu mươi bảy tỷ tám trăm chín mươi một triệu hai trăm ba mươi bốn nghìn năm trăm sáu mươi bảy
    
    Vì lý do đó nên mình đã bỏ dòng lệnh này đi.
    Nhân tiện đây cũng xin hỏi bác nào có cách để khử được việc làm tròn số lớn "không mong muốn" như trường hợp này không?

    Thanks!
     
  8. hoa ngoc

    hoa ngoc Thành viên mới

    Mình có tải file "đọc số bằng chữ "và làm như hướng dẫn của các bạn, nhưng máy cứ báo "số không đúng", (không đọc được).Bạn nào giúp mình với, vì mình đang bận rộn với "phiếu thu chi" mà cứ phải gõ tay???.
    Thanks các bạn nhiều nhiều!
     
  9. popkiller

    popkiller Thành viên mới

    Bạn coi lại định dạng số của mình trên phiếu thu, chi nhé
     
  10. thanhbinh_dk

    thanhbinh_dk Thành viên mới

    Hi........File đổi số ra chữ VnTool rất hay, tuy nhiên khi bạn đang sử dụng chương trình Word mà có chèn thêm bảng tính Excel thì hàm này không chạy được, có cách gì khắc phục không? Mình khắc phục bằng cách chép code của các bạn trước đã viết dán vào Module (lúc đó phải mở bảng tính được chèn vào Word), chạy khá tốt, tuy nhiên các chữ đều không có dấu, bực thế. Bạn nào gỡ dùm mình tý.....Thank!
    Bạn nào biết ghi tiếng việt trên cửa sổ Module không?
     
    Lần chỉnh sửa cuối: 6 Tháng mười một 2008
  11. toilaai123

    toilaai123 Thành viên mới

    Bạn ơi, chương trình này đọc số ra chữ tạm ổn rồi nhưng:

    - Nó ko đọc dấu phân cách cho dễ theo dõi. ví dụ"

    123,456:một trăm hai mươi sáu ngàn bốn trăm năm mươi sáu đồng

    lẽ ra phải là:

    123,456:một trăm hai mươi sáu ngàn, bốn trăm năm mươi sáu đồng
     
  12. Ly_Hung

    Ly_Hung Thành viên mới

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

    Thấy các bạn tham gia nhiệt tình quá nêm mình cũng muốn góp phần. Mình Post lên đây file của mình đang dùng để các bạn dùng thử và cho ý kiến, không có Pass đâu.
     

    Các file đính kèm:

  13. anh2606

    anh2606 Thành viên mới


    Cam on, file cua ban gui huu dung, de hieu, day du thong tin de dang cho nguoi su dung.
     
  14. tanxuanc

    tanxuanc Thành viên mới

    Vui lòng hướng dẫn mình cách cài file đỗi số ra chữ trong excel nhé!
    Win XP Word 2007
    Thank you!
     
    Lần chỉnh sửa cuối: 21 Tháng hai 2014
  15. tanxuanc

    tanxuanc Thành viên mới

    tôi thử cài rồi nhưng khong được: lưu ổ C: tìm trong Addin nhưng cung không được
    bạn chỉ cụ thể cách cài và cách sử dụng được không?
    Máy sử dụng Win XP Excel 2007.
     
  16. tovson

    tovson Thành viên mới

    Bị lỗi như này là sao? mình làm mãi vẫn chưa được. xin chỉ giúp
    xin cảm ơn
     

    Các file đính kèm:

    • 123.jpg
      123.jpg
      Kích thước:
      53.1 KB
      Đọc:
      13

Chia sẻ trang này