File chuyển số sang viết bằng chữ

[vankien]

Mấy cái Add-Ins đó toàn file có đuôi xla, tại sao máy của tôi lại không đọc được nhỉ, nhưng mà tôi cần một đoạn code hoàn chỉnh, bác nào có thể gửi lại được không ?

 

[Bình_OverAC]

Mấy cái Add-Ins đó toàn file có đuôi xla, tại sao máy của tôi lại không đọc được nhỉ, nhưng mà tôi cần một đoạn code hoàn chỉnh, bác nào có thể gửi lại được không ?

Add-ins thì phải có đuôi là xla rồi. Nói thế nghĩa là bạn chưa biết cách sài Add-in rồi. Tool--> Add-ins--> browse: thế là xong làm như vậy là bạn có thể sài được Add-ins rồi. Nếu vẩn chưa hiểu bạn cố gắng đọc bài cũ nhé.
Tôi xin phép khoá cái topic này lại. Lâu rồi topic này hỏng phát triển mấy.

 

[levanduyet]

Đã có người nghĩ đến điều này rồi.

Hiện chưa có ai có nhu cầu đọc số lớn hơn hoặc bằng 1000 tỷ.

Tôi xin mạn phép Pauls post đoạn code này.

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 .Rows.Count
            For j = 1 To .Columns.Count
                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 1.22e12+19
    iStr = Format(Target.Value, "#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:
End Function

Function NumtoWord(InTxt As String) As String
    ' Concert any length number to word
        ' The mentor is: break a number to 9 characters length and do the conversion
        ' for the rest .... increment the billion counter
        ' the main function for the conversion is at anywhere in the net and I took this one from anonimity
        ' My onwed function work similarly - but i failed in searching for it - it dumbed...
        ' so take this one in replacement
        Dim i As Integer, j As Integer
    Dim OutString As String
    Dim ProcArr() As String
    ReDim ProcArr(10)
    While Len(InTxt) > 9
        ' break the input string to group of 9 digit
        ProcArr(i) = Right(InTxt, 9)
        InTxt = Left(InTxt, Len(InTxt) - 9)
        i = i + 1
    Wend
    ProcArr(i) = InTxt
    ReDim Preserve ProcArr(i)
    ' Now convert the group to value
    i = UBound(ProcArr)
    While i > 0
                ' add with "w" as billion word...
        OutString = OutString & IIf(Val(ProcArr(i)) > 0, ReadBilGroup(ProcArr(i)) & String(i, "w"), "")
        i = i - 1
    Wend
    OutString = Replace(OutString, "w", " tû") & ReadBilGroup(ProcArr(0))
    NumtoWord = Trim(OutString)
End Function

Private Function ReadBilGroup(s As String) As String
    Dim l As Integer, i As Integer, j As Integer
    Dim dk As Boolean
    Dim A(11) As Integer
    Dim C As String
    
    ' Variant array to quick convert the number to word
    Dim iArr As Variant
    iArr = Array("kh«ng", "mét", "hai", "ba", "bèn", "n¨m", "s¸u", "b¶y", "t¸m", "chÝn")
        
    C = ""
    l = Len(s)
            
    ' break number to single string
    For i = 1 To l
        A(i) = CInt(Mid(s, i, 1))
    Next i
    
    For i = 1 To l        '
        
        Select Case A(i)
        Case 1:
            If (i > 1 And (l - i + 1) Mod 3 = 1 And A(i - 1) > 1) Then
                C = C & " mèt"
            ElseIf ((l - i + 1) Mod 3 <> 2 And A(i) = 1) Then
                C = C & " mét"
            End If
        Case 5:
            If (i > 0 And (l - i + 1) Mod 3 = 1 And A(i - 1) <> 0) Then
                C = C & " l¨m"
            Else
                C = C & " n¨m"
            End If
        Case 0:
            If (l - i + 1) Mod 3 = 0 And (A(i + 1) <> 0 Or A(i + 2) <> 0) Then C = C & " kh«ng"
            If (l - i + 1) Mod 3 = 2 And A(i + 1) <> 0 Then C = C & " linh"
        Case Else
            If i = l And A(i) = 4 Then
                C = C & " t­"
            Else
                C = C & " " & iArr(A(i))
            End If
        End Select
        
        If ((l - i + 1) Mod 3 = 2 And A(i) <> 0 And A(i) <> 1) Then
            C = C & " m­¬i"
        ElseIf ((l - i + 1) Mod 3 = 2 And A(i) <> 0) Then
            C = C & " m­êi"
        End If
        
        If ((l - i + 1) Mod 3 = 0 And (A(i + 1) <> 0 Or A(i + 2) <> 0)) Then
            C = C & " tr¨m"
        ElseIf (l - i + 1) Mod 3 = 0 And A(i) <> 0 Then
            C = C & " tr¨m"
        End If
        
        If ((l - i + 1) = 4) Then C = C & " ngµn"
        If ((l - i + 1) = 7) Then C = C & " triÖu"
        
        If ((l - i + 1) Mod 3 = 0 And A(i) = 0 And A(i + 1) = 0 And A(i + 2) = 0) Then i = i + 2
        
        If ((l - i + 1) Mod 3 = 1) Then
            dk = True
            For j = i To l
                If A(j) <> 0 Then dk = False
            Next j
        End If
        If dk Then Exit For
    Next i
    ReadBilGroup = C
End Function

Private Function isBigRange(ByVal Target As Range) As Boolean
    On Error GoTo ErrHandler
    If Target.Rows.Count > 1 Or Target.Columns.Count > 1 Then isBigRange = True
ErrHandler:
End Function
Function ToUnicode(txtString As String, Optional isReversed As Boolean = False) As String
    ' This function will do the conversion of text string into unicode
    Dim iStr As String, repTxt As String, mText As String
    Dim i As Long, j As Long
    Dim iUnicode As Variant ' array to keep unicode char set
    Dim iTCVN As Variant ' array to keep TCVN char set
    Dim iProcList() As String ' array to keep what to convert
    
    'parse the parameter into this local variable
    iStr = txtString
    mText = txtString
    
    iUnicode = Array(225, 224, 7843, 227, 7841, 259, 7855, 7857, 7859, 7861, 7863, 226, _
        7845, 7847, 7849, 7851, 7853, 233, 232, 7867, 7869, 7865, 234, 7871, 7873, 7875, _
        7877, 7879, 237, 236, 7881, 297, 7883, 243, 242, 7887, 245, 7885, 244, 7889, 7891, _
        7893, 7895, 7897, 417, 7899, 7901, 7903, 7905, 7907, 250, 249, 7911, 361, 7909, _
        432, 7913, 7915, 7917, 7919, 7921, 253, 7923, 7927, 7929, 7925, 273, 193, 192, 195, _
        258, 194, 212, 416, 431, 272)
    
    iTCVN = Array(184, 181, 182, 183, 185, 168, 190, 187, 188, 189, 198, 169, 202, 199, 200, _
        201, 203, 208, 204, 206, 207, 209, 170, 213, 210, 211, 212, 214, 221, 215, 216, 220, _
        222, 227, 223, 225, 226, 228, 171, 232, 229, 230, 231, 233, 172, 237, 234, 235, 236, _
        238, 243, 239, 241, 242, 244, 173, 248, 245, 246, 247, 249, 253, 250, 251, 252, 254, _
        174, 193, 192, 195, 161, 162, 164, 165, 166, 167)
    
    ' Reenlarge the array
    ReDim iProcList(1, 133)
    ' process the vowel only and covert to asc code
    For i = 1 To Len(mText)
        repTxt = Mid(mText, i, 1)
        If AscW(repTxt) > 122 Then
            iStr = Replace(iStr, repTxt, "[" & AscW(repTxt) & "]")
            mText = Replace(mText, repTxt, " ")
            ' write the processed list
            iProcList(1, j) = "[" & AscW(repTxt) & "]"
            If isReversed Then
                iProcList(0, j) = GetElementNo(AscW(repTxt), iUnicode)
            Else
                iProcList(0, j) = GetElementNo(AscW(repTxt), iTCVN)
            End If
            j = j + 1
        End If
    Next
    If j = 0 Then
        ToUnicode = txtString
        Exit Function
    End If
    ReDim Preserve iProcList(1, j - 1)
    ' now convert to unicode
    For i = 0 To UBound(iProcList, 2)
        If isReversed Then
            iStr = Replace(iStr, iProcList(1, i), ChrW(iTCVN(Val(iProcList(0, i)))))
        Else
            iStr = Replace(iStr, iProcList(1, i), ChrW(iUnicode(Val(iProcList(0, i)))))
        End If
    Next
fExit:
    ToUnicode = iStr
End Function

Vâng, thế là tha hồ nhé.

LVD.

 

[NguTDung]

Chuyển số sang viết bằng chữ ("Viết bằng chữ:"

Tiếng Anh và tiếng Việt (font ABC):

http://rapidshare.de/files/17790267/UTILS97.zip.html

cái này do bạn tôi viết, để các bạn tham khảo thêm.

 

[kiennt83]

Các bác xem thế nào chứ em copy đoạn code vậy vào Module rồi save workbook lại, xài thì dc chỉ trong workbook đấy nhưng mở workbook mới thì ko chạy đc hàm đó??

 

[Ta Thanh Hien]

Mình vẫn làm không được bạn ơi, bây giờ khi đánh vào thì báo [HASHTAG]#name[/HASHTAG]?

 

[Secret_grasses]

Các bác xem thế nào chứ em copy đoạn code vậy vào Module rồi save workbook lại, xài thì dc chỉ trong workbook đấy nhưng mở workbook mới thì ko chạy đc hàm đó??

Bạn vào tool/macro/record macro====>Ở bảng Record Macro/Store Macro in===>bạn chọn Personal Macro workbook. Tiếp theo bạn vào lại tool/macro/stop macro. Tiếp đến bạn nhấn Alt+F11 để mở cửa sổ VBE, bạn nhìn bên tay trái ở cửa sổ VBA project bạn sẽ thấy VBA Project(Personal.XLS). Bạn insert module và cop đoạn code đó vào đây, bạn sẽ chạy được macro ở tất cả các workbook.

 

[kiennt83]

Bạn vào tool/macro/record macro====>Ở bảng Record Macro/Store Macro in===>bạn chọn Personal Macro workbook. Tiếp theo bạn vào lại tool/macro/stop macro. Tiếp đến bạn nhấn Alt+F11 để mở cửa sổ VBE, bạn nhìn bên tay trái ở cửa sổ VBA project bạn sẽ thấy VBA Project(Personal.XLS). Bạn insert module và cop đoạn code đó vào đây, bạn sẽ chạy được macro ở tất cả các workbook.

Van chua dc ban ah! Van bao loi [HASHTAG]#Name[/HASHTAG]?
????
Minh muốn khi thoat Excel ra roi vao lai van chay dc cơ, không cần mở file .xls đó.Chắc mình dốt quá bạn nào chỉ cho mình với :imwithstu

 

[Phuong_Cubic]

ban cop code vao ổ C\programfile\office\office 10
sau đó bạn mở file Ex ra, bạn vào Tool\Add-ins- chọn Browse, tìm đường dẫn tới chỗ bạn vừa cop- OK.
Chúc bạn thành công

 

[Minhuyen061082]

Trong EXcel các bạn muốn đổi số thành chữ chỉ cần làm hàm như sau:
Hàm có dạng : =Doc_SoVND(So,Setfont)

- So : là số cần đọc.

- Setfont : là một số quy ước cho việc sẽ sử dụng font nào .

1-Unicode, 2- Tcvn3, 3-Vni

(có trong bộ tiện ích EXcel, bạn nào cần cho mình địa chỉ mail mình sẽ gởi cho, vì mình ko biết cách đưa bài lên)

 

[vanlth2203]

Chuyển số thành chữ

hangtram = so1 100
hangchuc = (so1 - hangtram * 100) 10
hangdonvi = so1 - (so1 10) * 10

Ồ xin lỗi, các bạn sửa thành

hangtram = so1 - 100
hangchuc = (so1 - hangtram * 100) - 10
hangdonvi = so1 - (so1 - 10) * 10

Dear HyperVN

Phần của bạn viết mình đã sửa lại như sau:
hangtram = so1 \ 100
hangchuc = (so1 - hangtram * 100) \ 10
hangdonvi = so1 - (hangtram * 100) - (hangchuc * 10)

thì nó chuyển từ số qua chữ ok nhưng phần hiển thị font mình làm vẫn chưa được bạn chỉ cho mình với. :help:

 

[Duy Luu]

Trong add-ins đọc số thành chữ, mình thấy có vấn đề như sau : Phần dịch tiền USD không đúng theo nguyên tắc (cách đọc) của quốc tế.
VD: USD 57,154.12 trên ô A1
Khi gõ =usd(A1) thì thấy hiển thị Fifty seven thousand one hundred fifty four dollars and twelve cents. Như vậy mình thấy nó chưa đúng với cách đọc theo thông lệ quốc tế. Vậy xin hỏi các chuyên gia về add-ins cái này có cách sửa nào thành như sau không (cho chữ US Dollars đứng phía trước)? US DOLLARS FIFTY SEVEN THOUSAND ONE HUNDRED FIFTY FOUR AND TWELVE CENTS. Nếu có bạn nào làm được cái này thì cho mình xin nhé, mình cảm ơn trước. Gởi cho mình vào duyluunguyen1971@yahoo.com hoặc ngay trên đây luôn cũng được.

 

[Duy Luu]

Hi hi. Sao chẳng thấy admin, mod nào hoặc anh em nào biết chỉ giùm mình cái nhỉ. Mình chỉ có thể để thêm chữ US trước chữa Dollars ở gần cuối câu đọc được thôi, còn đưa ra đứng trước thì chưa biết cách. Hỡi các cao thủ Add-ins không lẽ chịu thua nó sao? phì phì.

 

[Secret_grasses]

Bạn xem file nha. SG chỉ mới sửa lại theo yêu cầu của bạn chứ chưa dùng thử. Bạn cho ý kiến nha.

 

[Duy Luu]

Cám ơn SG nhé. Nhưng có một số vấn đề mình muốn hỏi thêm SG.
Cách đưa ra đứng trước như thế là đúng với nhu cầu của mình rồi, nhưng trong phần dịch mình thấy có vấn đề là: Theo cách đọc của quốc tế thì USD (dollar mỹ) sẽ đọc là US Dollars chứ không đọc là USD Dollars . Mình đã nghịch thử sửa lại một chút đó là bỏ chữ D sau chữa US đi, sau khi chạy thì chỉ có một số cái đọc đúng còn một số cái lại đọc sai. Vậy bạn xem có chỉnh lại được không?
Mình muốn gởi kèm file cho SG nhưng không biết cách đưa lên.

 

[Duy Luu]

Cám ơn bạn farway72 đã cho mình địa chỉ mail của SG nhé.
@SG. Bạn có thư đấy, coi lại giùm mình nhé. Thanks!
@farway72. Bạn down cái của SG về, sau đó bạn chỉnh sửa ở 2 dòng gần cuối từ USD thành US thôi và save lại bạn sẽ thấy ngay có mội số cái nó chạy đúng, còn một số cái nó lại không, mặc dù trước đó SG đã cho nó chạy đúng rồi. Nếu mình chỉnh lại như cũ thì nó chạy đúng với ban đấu SG đưa ra. Mình chỉ lọ mọ chỉnh chút vậy thôi, còn về add-ins thì mình mù tịt.

 

[Duy Luu]

Trước khi sửa :
20.90 USD Dollars Twenty and ninety cents
652.53 USD Dollars Six hundred fifty two and fifty three cents
1 USD Dollar One only
1,000 USD Dollars One thousand only
1.01 USD Dollar One and one cent
107.42 USD Dollars One hundred and seven and forty two cents
211.89 USD Dollars Two hundred and eleven and eighty nine cents
222.94 USD Dollars Two hundred twenty two and ninety four cents
661.35 USD Dollars Six hundred sixty one and thirty five cents
337.51 USD Dollars Three hundred thirty seven and fifty one cents
870.95 USD Dollars Eight hundred seventy and ninety five cents
843.60 USD Dollars Eight hundred forty three and sixty cents
160.21 USD Dollars One hundred sixty and twenty one cents
659.87 USD Dollars Six hundred fifty nine and eighty seven cents
810.93 USD Dollars Eight hundred and ten and ninety three cents
312.51 USD Dollars Three hundred and twelve and fifty one cents
411.92 USD Dollars Four hundred and eleven and ninety two cents
636.41 USD Dollars Six hundred thirty six and forty one cents
399.75 USD Dollars Three hundred ninety nine and seventy five cents
145.90 USD Dollars One hundred forty five and ninety cents
91.58 USD Dollars Ninety one and fifty eight cents
643.16 USD Dollars Six hundred forty three and sixteen cents
7,091.17 USD Dollars Seven thousand ninety one and seventeen cents
4,517.87 USD Dollars Four thousand five hundred and seventeen and eighty seven cents
2,146.25 USD Dollars Two thousand one hundred forty six and twenty five cents
123,456,789.00 USD Dollars One hundred twenty three milion four hundred fifty six thousand seven hundred eighty nine only
123,456,789.12 US Dollars One hundred twenty three milion four hundred fifty six thousand seven hundred eighty nine and twelve cents

Sau khi sửa :
20.90 USD Dollars Twenty and ninety cents
652.53 USD Dollars Six hundred fifty two and fifty three cents
1 USD Dollar One only
1,000 USD Dollars One thousand only
1.01 USD Dollar One and one cent
762.42 US Dollars Seven hundred sixty two and forty two cents
948.81 US Dollars Nine hundred forty eight and eighty one cents
465.41 US Dollars Four hundred sixty five and forty one cents
13.52 US Dollars Thirteen and fifty two cents
4.41 US Dollars Four and forty one cents
558.74 US Dollars Five hundred fifty eight and seventy four cents
608.61 US Dollars Six hundred and eight and sixty one cents
415.00 US Dollars Four hundred and fifteen only
936.20 US Dollars Nine hundred thirty six and twenty cents
675.77 US Dollars Six hundred seventy five and seventy seven cents
905.00 US Dollars Nine hundred and five only
250.10 US Dollars Two hundred fifty and ten cents
475.93 US Dollars Four hundred seventy five and ninety three cents
274.52 US Dollars Two hundred seventy four and fifty two cents
276.33 US Dollars Two hundred seventy six and thirty three cents
8.25 US Dollars Eight and twenty five cents
279.98 US Dollars Two hundred seventy nine and ninety eight cents
9,072.45 US Dollars Nine thousand seventy two and forty five cents
2,603.82 US Dollars Two thousand six hundred and three and eighty two cents
4,227.78 US Dollars Four thousand two hundred twenty seven and seventy eight cents
123,456,789.00 USD Dollars One hundred twenty three milion four hundred fifty six thousand seven hundred eighty nine only
123,456,789.12 US Dollars One hundred twenty three milion four hundred fifty six thousand seven hundred eighty nine and twelve cents

Nhìn trên những cái hiển thị thì sẽ thấy phần sau khi sửa có một số số dịch nó chạy không đúng trong khi cách đọc như nhau. Vậy có cách sửa không các chuyên gia?

 

[DekZiNua]

ủa? Tại sao tui làm đúng như thế mà lúc đánh =chuso(A1) mà nó vẫn báo lỗi là sao nhỉ?

 

[farway72]

@Duy Luu:

Farway phân tích như thế này xem có đúng ý bạn ko nhé. Cứ mỗi lần bạn thay đổi một ô nào đó trong sheet thì các số ở một số ô sẽ thay đổi, và một số ô không thay đổi. Số thay đổi là do ở một số ô Secret_grasses đã dùng ham rand() là hàm lấy số ngẫu nhiên. Tuy nhiên, điều này không quan trọng bằng việc là hàm có đọc đúng số ko?. Farway lướt qua một lượt nhưng vẫn chưa phát hiện ra lỗi sai. Khi xem code, thì farway thấy khi chữ "USD Dollars" là phần thêm vào sau cùng nên khi bạn bỏ bớt chữ D hay thêm vào một chữ nào khác nữa thì cũng không ảnh hưởng đến toàn đoạn code.

Nếu phát hiện nó đọc sai thì bạn chỉ cần copy một vài ví dụ khi hàm đọc sai lên đây.

@DekZiNua: Bạn cần tôn trọng người đọc hơn nữa nhé. Nhìn nick bạn mình cũng đã ko có cảm tình!. Nhưng bạn đã hỏi thì mình cũng trả lời:

Ở ô bạn muốn đọc số thành chữ bạn gõ: =USDS(ô có số cần đổi).

Để hiểu cách sử dụng hàm như thế nào, bạn gõ Alt+F11 vào cửa sổ code, nhìn bên tay phải bạn sẽ thấy:

Function USDs(Tien)
...
End Function

Ngay sau Function là tên hàm.

Mong bạn rút kinh nghiệm trong bài sau. Và có thêm được nhiều kiến thức bổ ích!.

 

[Duy Luu]

@Duy Luu:

Farway phân tích như thế này xem có đúng ý bạn ko nhé. Cứ mỗi lần bạn thay đổi một ô nào đó trong sheet thì các số ở một số ô sẽ thay đổi, và một số ô không thay đổi. Số thay đổi là do ở một số ô Secret_grasses đã dùng ham rand() là hàm lấy số ngẫu nhiên. Tuy nhiên, điều này không quan trọng bằng việc là hàm có đọc đúng số ko?. Farway lướt qua một lượt nhưng vẫn chưa phát hiện ra lỗi sai. Khi xem code, thì farway thấy khi chữ "USD Dollars" là phần thêm vào sau cùng nên khi bạn bỏ bớt chữ D hay thêm vào một chữ nào khác nữa thì cũng không ảnh hưởng đến toàn đoạn code.

Nếu phát hiện nó đọc sai thì bạn chỉ cần copy một vài ví dụ khi hàm đọc sai lên đây.

@farway72.
Về con số thì mình không phải như theo yêu cầu trên đâu, mình chỉ dùng add-ins này vảo việc tạo form cho lệnh chuyển tiền qua NH thôi cho nên nó chỉ có 1 lần đọc cho 1 dãy số nhất định mà mình cần thanh toán, số tiền đó sẽ được đọc bằng chữ ở dưới, chỉ vậy thôi. Còn "Cứ mỗi lần bạn thay đổi một ô nào đó trong sheet thì các số ở một số ô sẽ thay đổi, và một số ô không thay đổi" là do bạn SG tự viết ra để cho chạy thử thôi, có lẽ bạn SG làm để có thể dùng cho cả bảng tính.
Về add-ins thì mình thực sự không biết, mình chỉ biết lấy về dùng thôi. hì hì. Thực ra đoạn code theo mình nghĩ là nó không sai nhưng nó đọc lại không thống nhất. Cụ thể như sau:
- Sau khi mình sửa lại (bỏ chữ D) chỗ USD Dollars trong add-ins thì mình thấy có câu nó đọc đúng theo yêu cầu (không còn chữ D trong phần dịch).
123,456,789.12 US Dollars One hundred twenty three milion four hundred fifty six thousand seven hundred eighty nine and twelve cents
- Còn những câu đọc vẫn còn thấy chữa D.
123,456,789.00 USD Dollars One hundred twenty three milion four hundred fifty six thousand seven hundred eighty nine only

Bạn có thể giải thích cho mình kỹ chỗ này được không? Cám ơn.

@DekZiNua.
Quả thực là bạn lên xem lại những câu nói của mình một chút. Người ta nói "lời nói không mất tiền mua mà bạn" không phải mình dạy đâu nhé, mình chỉ nhắc lại thôi. Bạn cam kết là mình làm đúng theo hướng dẫn nhưng thực chất bạn đã làm sai, và sự sai đó bạn lại cáu chính mình hay cáu người viết add-ins thì mình không biết. Theo mình thấy bạn nói mấy câu nghe không hay cho lắm, bạn cứ thử nghĩ lại xem người viết đã lắn nót từng câu từng chữ, từng vấn đề trong nghiệp vụ để cho mọi người hiểu và lấy dùng, bạn cũng như tôi chúng ta không biết vào học hỏi và lấy về dùng đó là điều tốt cho mình rồi, cảm ơn còn không hết nữa là đi nói những câu làm người khác không vui. Thôi chuyện này chúng ta không nên bàn ở đây nữa vì đây là box trao đổi kinh nghiệm mà, thế nhé bạn, chúc vui.