Ðề: xin mẫu sổ trên excel
mọi người vào đây tải file về nhé
Upload File Mi?n Ph� T?i Nvdung.Net - Nguy?n Vi?t D?ng
đây là đoạn code để xóa các tên sai
Sub DeleteErrName()
On Error Resume Next
Dim NSh As Name, i As Integer
Dim OldStatus As Boolean, ThongBao As String
OldStatus = Application.DisplayStatusBar
Sheets.Add.Name = "ShName"
For Each NSh In ActiveWorkbook.Names
If InStr(1, NSh.RefersToR1C1, "#") > 0 Or _
InStr(1, NSh.RefersToR1C1, "\") > 0 Then
i = i + 1
Application.StatusBar = "Deleted : " & Format(i, "#,##0") & _
" Deleting...: " & NSh.Name
Sheets("ShName").Range("A" & i).Value = NSh.Name
Sheets("ShName").Range("B" & i).Value = " " & NSh.RefersToR1C1
NSh.Delete
End If
Next
If i > 0 Then _
ThongBao = ThongBao & Chr(13) & Chr(13) & " -" & Format(i, "#,##0") & " Names da xoa"
MsgBox ThongBao, vbInformation, "GPE"
Application.StatusBar = ""
Application.DisplayStatusBar = OldStatus
End Sub
còn phần phiếu thu chi để hôm nào mình có thời gian sẽ đưa lên nhé
vì mình chưa được up file lên
hiện tại mình có 2 cách để làm phiếu thu chi
cách 1 là dùng phần mềm do mình xin được của 1 người (cách này chưa thử)
và cách 2 là dùng excel (lấy từ file sổ quỹ tiền mặt )
ai thích cách nào thì cứ pm mình nhé
