(1) Thực ra code ở #3 không đúng thực tế; Vì trong 1 loạt các mặt hàng nhập khác nhau của 1 hóa đơn, không fải chúng cùng 1 cách chiết khấu.
Private Sub CommandButton2_Click() 'Tao Moi'
Dim VTr As Byte, SoHD As String, Num As Integer
Union([B10:B58], [D10:F58]).Value = ""
VTr = InStr([g5].Value, "/")
SoHD = Mid([g5].Value, 3, VTr - 3)
Num = CInt(SoHD)
[g5].Value = "PX" & Right("000" & CStr(Num + 1), 4) & "/" & CStr(Year(Date) Mod 100)
End SubPrivate Sub CommandButton2_Click() 'Tao Moi'
Dim SoHD As String, Num As Integer
Dim Sh As Worksheet, Rng As Range, Cls As Range
Union([B10:B58], [D10:F58]).Value = ""
Set Sh = Sheets("CSDL")
Set Rng = Sh.Range(Sh.[c2], Sh.[c65500].End(xlUp))
For Each Cls In Rng
If Cls.Value > SoHD Then SoHD = Cls.Value
Next Cls
If Right(SoHD, 2) < CStr(Year(Date) Mod 100) Then
[G5].Value = "PX0001/" & CStr(Year(Date) Mod 100)
Else
SoHD = Mid(SoHD, 3, 4): Num = CInt(SoHD) + 1
[G5].Value = "PX" & Right("000" & CStr(Num), 4) & "/" & CStr(Year(Date) Mod 100)
End If
End SubPrivate Sub CommandButton2_Click() 'Tao Moi'
Dim SoHD As String, Num As Integer, XinHoi As Byte '<=|'
Dim Sh As Worksheet, Rng As Range, Cls As Range
Set Sh = Sheets("CSDL")
Set Rng = Sh.Range(Sh.[c2], Sh.[c65500].End(xlUp))
1 If Rng.Find([G5].Value, , xlFormulas, xlWhole) Is Nothing Then
XinHoi = MsgBox("Ban Khong Càn Luu Du Lieu?", 33, "Ban Chua Luu Vào CSDL")
If XinHoi > 1 Then Exit Sub
2 End If
Union([B10:B58], [D10:F58]).Value = "": [G5].Interior.ColorIndex = 35
For Each Cls In Rng
If Cls.Value > SoHD Then SoHD = Cls.Value
Next Cls
If Right(SoHD, 2) < CStr(Year(Date) Mod 100) Then
[G5].Value = "PX0001/" & CStr(Year(Date) Mod 100)
Else
SoHD = Mid(SoHD, 3, 4): Num = CInt(SoHD) + 1
[G5].Value = "PX" & Right("000" & CStr(Num), 4) & "/" & CStr(Year(Date) Mod 100)
End If
End SubPrivate Sub CommandButton3_Click() ' Luu'
Dim Sh As Worksheet, Cls As Range, Rng As Range
Dim Rws As Long, DaGhi As Boolean '<=|'
Set Sh = Sheets("CSDL"): Rws = Sh.[B65500].End(xlUp).Offset(1).Row
Set Cls = Sh.Range(Sh.[c1], Sh.[c65500].End(xlUp))
If Not Cls.Find([G5].Value, , xlFormulas, xlWhole) Is Nothing Then
MsgBox "Da Nhap Ròi, Ban Oi", , "GPE Xin Luu Ý": Exit Sub
End If
For Each Cls In Range("B10:B58")
If Cls.Value <> "" Then
If DaGhi = False Then '<=|'
7 With Sh.Cells(Rws, "B")
.Value = [C7].Value: DaGhi = True
.Offset(, 3).Value = "G Chu"
.Offset(, 1).Value = [G5].Value
.Offset(, 2).Value = [G7].Value
End With
End If '<=|'
8 With Sh.[G65500].End(xlUp).Offset(1)
.Value = [G5].Value 'Só Hoá Don'
.Offset(, 1).Resize(, 5).Value = Cls.Resize(, 5).Value
End With
End If
Next Cls
With [G7].Interior
If .ColorIndex = 35 Then .ColorIndex = 38 Else .ColorIndex = 35
End With
End SubĐể cải tiến tiếp, chúng ta cần biêt số mã hàng của cơ sở bạn đang kinh doanh.
, nếu may mắn gặp người tốt thì người ta tính lại còn gặp người xấu thì họ đi luôn.Do đó hôm nay em muốn excel tự điền CK và cho dù em xuất sai MaHH thì cũng không sai CK.
