Add-Ins đọc số ra mét vuông trong MS Excel.

Sondh2 đã viết:

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

Nhấp chuột vào đây để mở rộng...

Nguyễn Duy Tuân đã viết:

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

Nhấp chuột vào đây để mở rộng...

taisao_faidk đã viết:

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?

Nhấp chuột vào đây để mở rộng...

be09 đã viết:

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

Nhấp chuột vào đây để mở rộng...

phamsinhquyen đã viết:

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

Nhấp chuột vào đây để mở rộng...

batman1 đã viết:

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

Nhấp chuột vào đây để mở rộng...

phamsinhquyen đã viết:

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

Nhấp chuột vào đây để mở rộng...

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

If le <> 0 Then

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

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