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

[popkiller]

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.

[Nghinhphong]

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???

[Po_Pikachu]

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.

[rollover79]

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

[popkiller]

Thánk nhé, nhưng xài thế nào vậy ông bạn ơi???

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!

[cadafi]

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

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" ????

[rollover79]

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

    strNumber = Format(strNumber, "0")

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õ

    =Read("1234567891234567")

sẽ cho kết quả như sau:
- Nếu có dòng lệnh trên(sai)

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ộ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!

[hoa ngoc]

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!

[popkiller]

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

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!

[thanhbinh_dk]

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?