trongmuaanhvancho
Thành viên hoạt động



- Tham gia
- 24/9/07
- Bài viết
- 138
- Được thích
- 2
Trong file e đã mô tảhttp://www.mediafire.com/file/me0iuhrdagupzcp/rut_gon_cong_thuc.rara/c xem có giải pháp nào khác, tiện ích hơn giúp e với!



Tạo CF cho sheet "Dan file xuat vao day" thì tiện hơn, có thể bỏ sheet kiểm tra.Trong file e đã mô tảhttp://www.mediafire.com/file/me0iuhrdagupzcp/rut_gon_cong_thuc.rara/c xem có giải pháp nào khác, tiện ích hơn giúp e với!
=(TRIM($F2)<>IF(YEAR($D2)<2015,"201501",TEXT($D2,"yyyymm")))*($D2<>"")
A/C hoặc D/C giống ký hiệu điện 1 chiều và xoay chiều quá.Public Sub GPE()
Dim sArr(), dArr(), I As Long, Num As Long
sArr = Range("D2", Range("F2").End(xlDown)).Value
ReDim dArr(1 To UBound(sArr), 1 To 2)
For I = 1 To UBound(sArr)
If Year(sArr(I, 1)) < 2015 Then
Num = 201501
Else
Num = Year(sArr(I, 1)) & Format(Month(sArr(I, 1)), "00")
End If
If sArr(I, 3) <> Num Then dArr(I, 1) = "False"
Next I
Range("H2").Resize(I - 1) = dArr
End Sub






cảm ơn anh, e sẽ kết hợp với code bên dưới để thêm tiện íchTạo CF cho sheet "Dan file xuat vao day" thì tiện hơn, có thể bỏ sheet kiểm tra.
Đứng F2, vào Conditional Formatting:
Lựa màu font và nền tùy ý. Apllies To: =$A$2:$G$2000Mã:=(TRIM($F2)<>IF(YEAR($D2)<2015,"201501",TEXT($D2,"yyyymm")))*($D2<>"")
Xem file kèm.
Chúc bạn ngày vui.
p/s: cố gắng hạn chế viết tắt trên diễn đàn nha bạn.A/C hoặc D/C giống ký hiệu điện 1 chiều và xoay chiều quá.



May quá! Hôm trước a giúp e lên file tổng hợp rồi. Theo cách a hướng dẫn e đã làm theo được ở sheet BA0001A. Trường hợp này e đã mô phỏng lại. anh xem giúp nếu có nhiều sheet chi tiết thì chạy cùng lúc các sheet không? Hoặc cái nút ở sheet tổng hợp hôm trước anh làm có tích hợp được đoạn lệnh để khi chạy thì đồng thời lên biểu tổng hợp và ở chi tiết ko? Và khi ở chi tiết sai thì cũng cảnh báo bên sheet tổng hợp như nào đó để người dùng kiểm tra lại. Nhờ a xem lại file e gửi, E cảm ơn anh! http://www.mediafire.com/file/7xdh7ag88u4iuxn/Nho_giup_3.xlsb






Hi a, lại làm phiền bác chút vậy. E đã mô tả lại nhu cầu chi tiết hơn, anh xem giúp e với. Em cảm ơn http://www.mediafire.com/file/boexb3jca9035jk/Nho_giup_4.xlsbTrong sheet TH, dòng 2 tên các sheet, sau khi chạy code mà hiện màu đỏ là sheet đó có lỗi dữ liệu, "mắc làm gì thì làm", chứ không hình dung ra được sẽ báo lỗi cách nào.
Hi a, lại làm phiền bác chút vậy. E đã mô tả lại nhu cầu chi tiết hơn, anh xem giúp e với. Em cảm ơn http://www.mediafire.com/file/boexb3jca9035jk/Nho_giup_4.xlsb



Vâng, em cảm ơn anh. Như này quá tuyệt rồi!Tôi làm giúp đến bài #7 là "xong" rồi. Ý tưởng "chi tiết hơn" của bạn phải nhờ người khác xem sao.



Bác Ba tê hoặc Bác nào đi ngang qua ngó giúp e đoạn code xem sửa như nào thì chạy được, e tùy biến theo file thực tế thì báo lỗi> file đang chạy được và đúng ở #7 của bác Ba tê. File thực tế e đang dùng có sửa ở link này http://www.mediafire.com/file/mxdsabmdtietn7c/Nho_giup_5.xlsbTrong sheet TH, dòng 2 tên các sheet, sau khi chạy code mà hiện màu đỏ là sheet đó có lỗi dữ liệu, "mắc làm gì thì làm", chứ không hình dung ra được sẽ báo lỗi cách nào.