dạ được ạ
em chưa biết về vba nên hơi khó đối với em ạ
dạ mã chu kỳ thì dùng chung, chỉ có 1 mã cho nguyên 1 năm, còn bội số là số nằm trong cột mã tương ứng tên chương trình rút gọn ấy ạ
em tải về xong không sử dụng được, vào view, chọn macro nhưng bên trong bị trống
Bạn giải thích giống như người khác cũng làm cùng ngành với bạn, nhìn dữ liệu là biết bạn muốn gì.
Macro nó đây mà:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Rws As Long, lRw As Long
Dim Rng As Range, Cls As Range: Dim MaCT As String
Rws = [G2].CurrentRegion.Rows.Count * 2
If Not Intersect(Target, [P3].Resize(Rws)) Is Nothing Then
Set Rng = Cells(Target.Row, "H").Resize(, 8)
For Each Cls In Rng
If Cls.Value <> "" Then
MaCT = Cells(1, Cls.Column).Value
With Sheets("DS KHg") '**
lRw = .[A65500].End(xlUp).Row + 1
.Cells(lRw, "A") = MaCT
.Cells(lRw, "B").Value = _
Application.WorksheetFunction.VLookup(MaCT, Sheets("Mã CT").Range("A1:B11"), 2, False) '**
.Cells(lRw, "C") = Cells(Target.Row, "A").Value ' Mã NPP'
.Cells(lRw, "D") = Cells(Target.Row, "B").Value ' Tên NPP'
.Cells(lRw, "E") = Cells(Target.Row, "D").Value ' Mã Khách Hàng'
.Cells(lRw, "F") = Cells(Target.Row, "E").Value ' Tên K Hàng'
.Cells(lRw, "F") = "Mã Chu Kì"
'??? '
End With
End If
Next Cls
MsgBox "Dã Chép Xong!", , "GPE.COM Xin Chào"
End If
End Sub- Mã chi kỳ thì chỉ có 1 mã duy nhất cho từng năm, qua năm sau chỉ thay thế 20 thành 21
Đã "cố hiểu" nhưng chỉ hiểu được bấy nhiêu.
Bội số 2 là khi Khách hàng đăng ký tham gia chương trình 2 lần thì mới có, ví dụ: Khách hàng tham gia 2 chương trình kệ 3 tầng thì nó sẽ hiển thị là số 2, còn trong file mình gửi thì đa số các Khách hàng chỉ đăng ký tham gia 1 chương trình, hoặc 1 chương này và 1 chương trình kia.
em thấy có code rồi, lúc nhấn alt+f11 ở sheet Tổng hợp mới thấy.
. mới tìm hiểu về VBA nên chưa hiểu lắm . em cảm ơn anh.
các dữ liệu khác thì nó lấy như bài 14 là đúng rồi @Ba Tê
Khi đã không phải thì vùng chép là như thế nào & đích đến của khối chép là như thế nào?
