Viết dùm code tạo sổ

[yome]

Em có 1 file dũ liệu này, nhờ anh chị viết dùm em code tạo sổ.

 

[yome]

Anh/chi xem dùm cho em bài này với!
Cám ơn anh/chị nhiều!

 

[tongquangtuyen]

Tạo sổ chi tiết

Bạn xem tham khảo file đính kèm nha.File in số chi tiết tài khoản này giống với yêu cầu của bản

 

[MinhNguyệt]

Anh/chi xem dùm cho em bài này với!
Cám ơn anh/chị nhiều!

Thế này nhé
Giúp bạn thì giúp được đó, các cao thử luôn sẵng sàng. Nhưng như vậy liệu bạn có "khá" lên được chút nào không?(Xin lỗi nếu câu này làm bạn phật lòng). Cách tốt nhất là bạn hãy cứ tự làm rồi vướng đâu hỏi đấy, như vậy bạn mới không bỡ ngỡ khi giải quyết các trường hợp tương tự
Bây giờ thế ầy nhé. Tôi gợi ý một cách làm đơn giản nhất, bạn thử áp dụng xem thế nào. Vướng mắc gửi yêu cầu hỏi tiếp nhé
Bạn Record Macro, chép tòan bộ từ sh DATA sang sh NKC, sau đó xét vòng lặp ở cột D, nếu giá trị của ô bằng với ô phía trên thì xóa dữ liệu ở các ô A, B, C cùng hàng
Thử xem nhé
Thân

 

[yome]

Thế này nhé
Giúp bạn thì giúp được đó, các cao thử luôn sẵng sàng. Nhưng như vậy liệu bạn có "khá" lên được chút nào không?(Xin lỗi nếu câu này làm bạn phật lòng). Cách tốt nhất là bạn hãy cứ tự làm rồi vướng đâu hỏi đấy, như vậy bạn mới không bỡ ngỡ khi giải quyết các trường hợp tương tự
Bây giờ thế ầy nhé. Tôi gợi ý một cách làm đơn giản nhất, bạn thử áp dụng xem thế nào. Vướng mắc gửi yêu cầu hỏi tiếp nhé
Bạn Record Macro, chép tòan bộ từ sh DATA sang sh NKC, sau đó xét vòng lặp ở cột D, nếu giá trị của ô bằng với ô phía trên thì xóa dữ liệu ở các ô A, B, C cùng hàng
Thử xem nhé
Thân

Bạn MinhNguyet ơi, mình ghi 1 marco đơn giản thì được nhưng về vòng lặp thì chịu thôi. Bạn làm dùm mình ví dụ này để mình tham khảo nhé!
Cám ơn bạn nhiều!

 

[khoavu87]

Bạn MinhNguyet ơi, mình ghi 1 marco đơn giản thì được nhưng về vòng lặp thì chịu thôi. Bạn làm dùm mình ví dụ này để mình tham khảo nhé!
Cám ơn bạn nhiều!

Bạn thử xem thế nào?

 

[MinhNguyệt]

Bạn MinhNguyet ơi, mình ghi 1 marco đơn giản thì được nhưng về vòng lặp thì chịu thôi. Bạn làm dùm mình ví dụ này để mình tham khảo nhé!
Cám ơn bạn nhiều!

Làm theo hướng dẫn trong file đính kèm
Thân

 

[ChanhTQ@]

Thử dịch ra tiếng Việt các dòng lệnh trước khi chạy macro nha

Option Explicit
Sub MmM()
 Dim Sh As Worksheet, Cls As Range
    
 Sheets("NKC").Select:        Set Sh = Sheets("DaTa")
 [B4].CurrentRegion.Offset(2).ClearContents
 Sh.[B4].CurrentRegion.Offset(2).Copy Destination:=[A5]
 For Each Cls In Range([A6], [A65500].End(xlUp))
   With Cls
      If .Value = .Offset(-1).Value And .Offset(, 1).Value = .Offset(-1, 1) _
         And .Offset(, 2).Value = .Offset(-1, 2).Value Then
         .Resize(, 3).Value = ""
      End If
   End With
 Next Cls
End Sub

 

[MinhNguyệt]

Bạn thử xem thế nào?

Khoa xem lại nhé. Lúc đầu tôi cũng nghĩ cột D nhưng thực sụ không phải như vậy mà là cột B
(Khoa xóa dữ liệu ở sh NKC va chạy lại code sẽ biết liền)
Thân

 

[yome]

Tương tự vậy em cũng muốn nhờ anh chị viết luôn dùm em code lọc dự liệu cho tài khoản này với!
Câu hỏi cụ thể trong file đính kèm - Anh chị sửa ở Sheet SOCAI nhé!

 

[ChanhTQ@]

Tương tự vậy em cũng muốn nhờ anh chị viết luôn dùm em code lọc dự liệu cho tài khoản này với!
Câu hỏi cụ thể trong file đính kèm - Anh chị sửa ở Sheet SOCAI nhé!

Anh/chị ơi, em muốn nhờ mọi người viết dùm code lọc sao cho:
- Khi em nhập bất kỳ Tài khoản nào đó thì nó sẽ lấy dữ liệu cuả các cột tương ứng.
- Riêng cột E tài khoản được lấy như sau:
+ Nếu Cell F3=1111 thì nó sẽ lọc lấy Tài khoản bên cột bên cạnh của Sheet Data.
+ Nếu Cell F3 =1111 thì nó sẽ lọc lấy:
a) Nếu DATA!F12=1111 thì SOCAI!F12=DATA!H12
b) Nếu DATA!G12=1111 thì SOCAI!G12=DATA!I12
Kết quả khi xong như ví dụ ở bảng này!

Viết thế này thì chỉ có người trong ngành may ra mới hiểu; Dân ngoại đạo thì chịu.

Hơn nữa xin bạn lần sau cẩn thận & chính xác với từ ngữ của mình; Bạn xem xem [F3] đang chứa gì chưa vậy!

Thiệt tình thật là chán & hết muốn . . luôn!

 

[MinhNguyệt]

Tương tự vậy em cũng muốn nhờ anh chị viết luôn dùm em code lọc dự liệu cho tài khoản này với!
Câu hỏi cụ thể trong file đính kèm - Anh chị sửa ở Sheet SOCAI nhé!

Sẵn giúp thì giúp luôn cho trót(Sử dụng cho file ít dữ liệu, kiểu như Sheet DATA dùng cho 1 tháng)
Xem File đính kèm
Thân

 

[yome]

Sẵn giúp thì giúp luôn cho trót(Sử dụng cho file ít dữ liệu, kiểu như Sheet DATA dùng cho 1 tháng)
Xem File đính kèm
Thân

Cám ơn Minh Nguyệt nhiều lắm! Bạn làm đúng ý mình rồi. Không biết bạn ở đâu? Nếu ở Hà Nội mình muốn mời bạn đi uống cà phê!?

 

[MinhNguyệt]

Cám ơn Minh Nguyệt nhiều lắm! Bạn làm đúng ý mình rồi. Không biết bạn ở đâu? Nếu ở Hà Nội mình muốn mời bạn đi uống cà phê!?

Để khi nào có dịp vè Thủ Đô thì ta uống cà phê nhé

P/S : Cũng dạng trích lọc như thế, bạn vận dụng vào làm SQTM, Chi tiết nhập xuất hàng hóa...
Thân

 

[yome]

Để khi nào có dịp vè Thủ Đô thì ta uống cà phê nhé

P/S : Cũng dạng trích lọc như thế, bạn vận dụng vào làm SQTM, Chi tiết nhập xuất hàng hóa...
Thân

Okie. Mình sẽ làm. Già mà được biết số di động của Minh Nguyệt nhỉ!? Bạn cho mình xin số di động nhé!

 

[sealand]

Cái này không có lự chọn thời gian hay loại trừ nhật ký đặc biệt thì đơn giản thôi mà. Em xem trong file rồi hoàn thiện theo ý mình nhé.

Private Sub CommandButton1_Click()
Dim r As Long, Ctu As String
Sheet1.Range("A5:I56536").ClearContents
For r = 5 To Sheet2.[a65536].End(xlUp).Row
If Sheet2.Cells(r, 2) <> Ctu Then
Sheet2.Cells(r, 1).Resize(, 9).Copy Sheet1.Cells(r, 1)
Else
Sheet2.Cells(r, 4).Resize(, 6).Copy Sheet1.Cells(r, 4)
End If
Ctu = Sheet2.Cells(r, 2)
Next
End Sub

Hoặc chép toan bộ rồi xoá

Private Sub CommandButton1_Click()
Dim r As Long, Ctu As String
Sheet2.Range("A5:I56536").Copy Sheet1.[a5]
For r = 5 To Sheet1.[a65536].End(xlUp).Row
If Sheet1.Cells(r, 2) = Ctu Then Sheet1.Cells(r, 1).Resize(, 3).ClearContents
Ctu = Sheet1.Cells(r, 2)
Next
End Sub

 

[sealand]

Còn đây là sổ cái

Private Sub CommandButton1_Click()
Dim r, r1 As Long, Ctu, tk As String
Sheet3.Range("A12:H56536").ClearContents
r1 = 12
With Sheet3
tk = Trim(.[f4])
For r = 12 To Sheet2.[a65536].End(xlUp).Row
If Trim(Sheet2.Cells(r, 6)) = tk Then
Sheet2.Cells(r, 1).Resize(, 5).Copy .Cells(r1, 1)
.Cells(r1, 5) = Sheet2.Cells(r, 7)
.Cells(r1, 6) = Sheet2.Cells(r, 8)
r1 = r1 + 1
ElseIf Trim(Sheet2.Cells(r, 7)) = tk Then
Sheet2.Cells(r, 1).Resize(, 4).Copy .Cells(r1, 1)
.Cells(r1, 5) = Sheet2.Cells(r, 6)
.Cells(r1, 7) = Sheet2.Cells(r, 8)
r1 = r1 + 1
End If
Next
End With
End Sub