File Kế toán bằng Excel, nhờ xem và đánh giá

[peauluv2009]

Mình có một chương trình kế toán đang viết dở dang nhờ các bạn, các anh, các chị viết dùm em. Em cảm ơn nhiều

Đây là file của mình. Mới biết post bài thông cam cho mình

 

[hoangdanh282vn]

Cái này hơi dài :

Private Function PreventDuplicateSpaces(Word)
Dim i, WordLength, Character, LastCharacter, NewWord
WordLength = Len(Word)
For i = 1 To WordLength
    Character = Mid(Word, i, 1)
    If LastCharacter = " " And Character = " " Then
    Else
        NewWord = NewWord & Character
        LastCharacter = Character
    End If
Next i
PreventDuplicateSpaces = Trim(NewWord)
Exit Function
End Function

=>

Private Function PreventDuplicateSpaces2(Word)
PreventDuplicateSpaces = WorksheetFunction.Trim(Word)
End Function

Và :

Đâu có cần phải tạo ra 2 form nhập và sửa giồng nhau như vậy bạn nhỉ. Chỉ cần 1 Form nhập thôi. Trên đó có nút thêm mới, sửa, xóa, next .., tìm. Như vậy dễ thao tác, tìm kiếm hơn.

 

[tuyenbui]

ko hiu lam, mo ra ko thay hien len cai gi` nhu ban ghi trong huong dan <-- minh ko bik BVA

 

[yeudoi]

Bạn không viết bài bằng tiếng Việt có dấu là vi phạm rồi đấy lần sau nhớ viết có dấu nha. Cái này bạn đấy dùng macro vì vậy bạn phải vào tools/macro/security xem thử và chọn low.