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

Đã có rất nhiều hàm chuyển số thành chữ trên các diễn đàn, nhưng hôm nay, tôi xin giới thiệu với các bạn hàm chuyển số thành chữ hoàn chỉnh nhất của Paulsteigel trên diễn đàn Webketoan | Hàm chuyển số thành chữ Đã có rất nhiều hàm chuyển số thành chữ trên các diễn đàn nhưng hôm nay tôi xin giới thiệu với các bạn hàm chuyển số thành chữ hoàn chỉnh nhất của Paulsteigel trên diễn đàn Webketoan Code Option Explicit Function CountValue ByVal Target As Range ByVal Criteria As Long ByVal isGreater As Boolean As Variant Dim i As Long j As Long Dim k As Long With Target For i 1 To . For j 1 To . If Not IsEmpty .Cells i j Then If isGreater Then If Val .Cells i j Criteria Then k k 1 Else If Val .Cells i j Criteria Then k k 1 End If End If Next Next End With CountValue k 1 End Function Public Function NumtoWordExl ByVal Target As Range Optional IsToUnicode As Boolean False As String Dim iStr As String i As Long Dim retVal As String If isBigRange Target Then NumtoWordExl GoTo tExitFunction End If this is a trick to keep excel doesnt set the value to somewhat like 19 iStr Format 000 retVal NumtoWord iStr Now we have to convert the result to unicode if neccessary If retVal And IsToUnicode Then retVal ToUnicode retVal NumtoWordExl retVal tExitFunction