Add-Ins đọc số ra mét vuông trong MS Excel. (2 người xem)

[be_09]

Nhằm chào mừng ngày sinh nhật GPE (tròn 12 tuổi).

Và xuất phát từ nhu cầu của một số thành viên trên diễn đàn GPE, cần Add - Ins đọc số thành chữ với đơn vị là mét vuông, cụ thể ở Link sau:
https://www.giaiphapexcel.com/diendan/threads/cần-add-in-đọc-số-ra-mét-vuông.135295/
https://www.giaiphapexcel.com/diendan/threads/đổi-số-thành-chữ-đơn-vị-là-mét-vuông.32994/
https://www.giaiphapexcel.com/diendan/threads/Đổi-số-ra-chữ-đơn-vị-tính-mét-vuông.69850/

Hôm nay, tôi tặng các bạn thành viên trên diễn đàn GPE đang công tác trong ngành Tài nguyên và Môi trường Add - Ins đọc số thành chữ với đơn vị là mét vuông nhằm giúp các bạn sử dụng được thuận tiện và đỡ vất vã hơn.

Nếu A1 chứa con số, sử dụng hàm như sau:

=DocMetvuong(A1)

 

[Sondh2]

làm sao để bỏ dấu ngoặc đơn khi đọc ra mét vuông vậy ad. Thanks

 

[Nguyễn Duy Tuân]

Add-in Acchelper đọc được bạn nhé

 

[batman1]

làm sao để bỏ dấu ngoặc đơn khi đọc ra mét vuông vậy ad. Cảm ơn

Muốn biến tấu thế nào cũng được.

Tôi viết 5, 6 năm trước khi mới chuyển sang "chơi" Excel. Từ đấy không viết lại vì lười. Cần rút gọn, tối ưu.

Có code nên ai muốn sửa thì tôi cho phép.

 

[taisao_faidk]

Add-in Acchelper đọc được bạn nhé

Tuỳ biến thành mét vuông rồi thì những chỗ đã là đồng hoặc đô la có bị ảnh hương không bác?

 

[Nguyễn Duy Tuân]

Tuỳ biến thành mét vuông rồi thì những chỗ đã là đồng hoặc đô la có bị ảnh hương không bác?

Bạn dùng tên đơn vị tính, hệ số quy đổi trực tiếp trong hàm thì không ảnh hưởng đến các công thức kahcs nhé.

 

[phamsinhquyen]

Nhằm chào mừng ngày sinh nhật GPE (tròn 12 tuổi).

Và xuất phát từ nhu cầu của một số thành viên trên diễn đàn GPE, cần Add - Ins đọc số thành chữ với đơn vị là mét vuông, cụ thể ở Link sau:
https://www.giaiphapexcel.com/diendan/threads/cần-add-in-đọc-số-ra-mét-vuông.135295/
https://www.giaiphapexcel.com/diendan/threads/đổi-số-thành-chữ-đơn-vị-là-mét-vuông.32994/
https://www.giaiphapexcel.com/diendan/threads/Đổi-số-ra-chữ-đơn-vị-tính-mét-vuông.69850/

Hôm nay, tôi tặng các bạn thành viên trên diễn đàn GPE đang công tác trong ngành Tài nguyên và Môi trường Add - Ins đọc số thành chữ với đơn vị là mét vuông nhằm giúp các bạn sử dụng được thuận tiện và đỡ vất vã hơn.

Nếu A1 chứa con số, sử dụng hàm như sau:

=DocMetvuong(A1)

View attachment 197627

Bạn có thể chuyển từ ngàn thành nghìn được không

 

[batman1]

file này sử dụng thế nào vậy bác

Alt + F11 -> tìm tới hàm BangLoiVn -> đọc hướng dẫn

 

[phamsinhquyen]

Các bác giúp em cái file add-in này với ạ

Bài đã được tự động gộp: 18/7/19

Alt + F11 -> tìm tới hàm BangLoiVn -> đọc hướng dẫn

Bác giúp em ca này với

 

[batman1]

Các bác giúp em cái file add-in này với ạ

Thực ra code tôi viết hồi mới vọc Excel + VBA rồi không bao giờ sửa nữa. Đấy chỉ là kết quả vọc chơi ban đầu. Có nhiều chỗ có thể sửa lại cho gọn, cho chuẩn hơn.

1. Cài add-in: File -> Options -> Add-ins -> Go -> Browser -> duyệt tới và chọn tập tin -> OK -> OK

2. Alt + F11 -> đúp chuột vào module DocsoMetVuong -> tìm đoạn

If le <> 0 Then
    So = CStr(le)
    n2 = So \ 10
    n3 = So Mod 10
    If n2 > 0 Then
        If n3 = 0 Then
            chuc = donvi0(n2)
        Else
            chuc = hangchuc(n2)
        End If
    Else
        chuc = " kh" & ChrW(244) & "ng"
    End If
    If n2 = 0 Then
        DonVi = donvi0(n3)
    ElseIf n3 = 1 Then
        If n2 < 2 Then
            DonVi = " m" & ChrW(7897) & "t"
        Else
            DonVi = " m" & ChrW(7889) & "t"
        End If
    ElseIf n3 > 1 Then
        If So = "14" Then
            DonVi = " b" & ChrW(7889) & "n"
        Else
            DonVi = donvi2(n3)
        End If
    Else
        DonVi = ""
    End If
    
    ketqua = ketqua & chuc & DonVi & dvle
'        Else
'            ketqua = ketqua & " ch" & ChrW(7861) & "n"
End If

Xóa dòng

If le <> 0 Then

và 3 dòng cuối

'        Else
'            ketqua = ketqua & " ch" & ChrW(7861) & "n"
End If

-> menu File -> Save Doc Met vuong Quy?n.xla

3. Công thức cho B4

="( Bằng chữ: " & BangLoiVn(A4;"phẩy+mét vuông") & " )"