Cảm ơn bác nhé. Code đã chạy tốt rồi. Hôm trước em cứ loay hoay đặt cái BOF và EOF mà không thành công
1700895430
Cảm ơn bác đã quan tâm hỗ trợ. Có thể em trả lời vội vã nên chưa hết ý. Em biết ADO có chức năng kiểm tra có record hay không trước khi trải ra Cells, em muốn mọi người fix cái phần...
Bạn quên ở trên tôi có bảo SORT cho đơn giản.
=Index(Sort(Filter(B3: D7, C3:C7=$H$2, ""), 1, -1), 1, 3)
Filter 3 cột lấy trị "A1", Sort cột ngày lớn đến nhỏ, Index dòng đầu, cột 3.
Cái báo lỗi trên đơn giản là "Code đang bị dừng giữa chừng vì lỗi" (nó tô màu vàng dòng lỗi đó).
Để trả lại trạng thái bình thường (không phải break mode) thì bấm cái icon hình vuông bên phải cái icon hình tam giác, rồi sửa code -> chạy...Vậy thôi.
Tôi trả lời câu này và cũng cho đại ý bài #23
Đọc cho kỹ phần 2 của bài #17.
Nhìn theo trước mắt thì dễ rồi. Tôi phần 2 của bài #17 là để trả lời cho bài #16, phân tích thế nào là "thực tế".
Đối với dân chuyên "triển khai đồ án/systems developing" thực tế, cái gì cũng có 3 kiểu:
1. Chỉ sơ sài...
Dạ này chỉ cần đánh từ ngày đầu trở đi, miễn sao đủ dấu "x" đúng số ngày được chấm thôi ạ. Chứ ko quan trọng là đánh vào ô nào.
Do nếu nhiều NV thì phải dò từng số để đánh dấu x, trừ ngày chủ nhật nên e tính nhờ có cách nào làm VBA cho nhanh ko ạ?
Bạn đang làm ngược à?
Nhân loại: Đếm số lượng "x" ra số ngày công
Bạn: Cho số ngày công, điền "x"
Nếu đủ công thì đơn giản là điền "x" cho tất cả các ngày, nếu không đủ công (VD: dòng 20, số công là 3 ngày) thì biết điền "x" vào ngày nào, từ mùng 1 đến 31?
Bản thân kết quả sau khi chạy code Cột B đã là Text rồi mà.
1/Bỏ dòng này:
KQ(t,1)=t
2/ Thay đoạn code sau
If t Then
Sh.Range("A6").Resize(10000, 9).ClearContents
Sh.Range("A6").Resize(t, 9) = KQ
End If
Thành
If t Then
Sh.Range("A6").Resize(10000...
Bài #8 đã nói rõ hết các lý do khiến việc so sánh không bằng "trên máy tính" rồi còn gì...Bạn tìm đọc tài liệu với các từ khoá đã nếu ở bài #8 là hiểu thôi, có gì mà phải sân si.
1. Thực tế dân văn phòng nói chung thì không mấy ai biết phép so sánh bằng nào khác ngoài "="
2. Không phải tự nhiên có mấy con số trên để bới móc. Đây là số liệu tiền USD liên quan tới doanh thu, chi phí thực tế vô tình khi nhập vào bảng tính phát hiện ra
3. Trong cả đống số liệu tới vài nghìn...
Dữ liệu nhập xuất phải theo thứ tự thời gian
Code bắt sự kiện sheet ChiTiet
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$D$2" Then Call ChiTiet(Target.Value)
End Sub
Code cập nhật chi tiết theo mã hàng
Option Explicit
Dim b(0 To 3000, 1 To 6) 'Gioi han 3000 dong...
Sao bên máy em khi vào Tool/Reference nó không báo dòng "missing..." nhỉ.
Nó chỉ hiện ra như hình 1 bên dưới à.
Sau một hồi click chọn một vài thư viện thì nó phát sinh thêm lỗi như bên dưới :)
Không biết cái DAO bị gì luôn
Cái lỗi này đơn giản quá mà bạn. Nó báo không tìm thấy thư viện thì vô Tool - Reference xem dòng nào báo "Missing..." thì tìm thư viện tương tự. Lỗi cái hàm Date là do thư viện Microsoft Object xx library.
File Excel để import của bạn thiết kế như thế nào mà khi import nó mất cột ngày? Bạn chụp cái hình cũng được.
Không xử lý từ dữ liệu Exxel trước khi import à?
Hi anh @ongke0711 .
Chia sẻ với anh là dữ liệu em import vào access của các file raw excel em cần select dòng đầu tiên của file excel. Các file excel được sắp xếp theo ngày nhưng có những record cùng ngày với nhau và khi export ra excel không có thời gian. Bình thường khi làm trên excel em sẽ...
Đối với CSDL, cột để đánh số thứ tự không có ý nghĩa gì cả ngoại trừ nó được dùng làm mã định danh ( Primary key) tự động. Theo như bạn mô tả thì nó không phải mã định danh, vậy mục đích cột này dùng để làm gì, có cần thiết hay không để khỏi tốn code, mất thời gian chạy hoặc có thể có giải pháp...
Từ code đơn giản dễ nhớ thế mà viết thành cod, chắc đang nhớ tới phương thức thanh toán cod mua hàng online --=0 Nhìn vào dòng lỗi thì thấy ngay 1 lỗi nghiêm trọng chứ đâu có quá khó.
Thớt thiếu tính cẩn thận nên trong tương lai sẽ còn vấp nhiều sai sót ngớ ngẩn nữa.
Nhờ ace hướng dẫn giúp e lọc dữ liệu với ạ, đây là 1 file test vì dữ liệu của e dài quá.
Em có 1 file quản lý đầu người theo dòng thời gian
Mỗi khi cần thống kê theo ngày tháng cụ thể, e muốn hiện danh sách đó vào 1 sheet mới như thế này ạ, nếu thay đổi ngày thì sẽ hiện danh sách theo ngày đó...