Tô màu theo điều nếu kết quả là số lẻ thì tô màu.

[HUYNHTIEN0202]

Chào các Anh.
Em đang áp dụng code so sánh để tô màu nhưng phải bổ sung thêm cột phụ,bây giờ muốn sửa code không áp dụng cột phụ mà vẫn tô màu.Điều kiện tô màu như sau
- Lấy số lượng trong bảng 2 chia cho số lượng bảng 1 nếu kết quả không phải số nguyên thì tô màu.
- Các Anh xem file đính kèm.

 

[befaint]

kết quả lẻ

Thế nào là lẻ, thế nào là không lẻ?

 

[hocexcel_1991]

Chào các Anh.
Em đang áp dụng code so sánh để tô màu nhưng phải bổ sung thêm cột phụ,bây giờ muốn sửa code không áp dụng cột phụ mà vẫn tô màu.Điều kiện tô màu như sau
- Lấy số lượng trong bảng 2 chia cho số lượng bảng 1 nếu kết quả không phải số nguyên thì tô màu.
- Các Anh xem file đính kèm.

Mình không biết dùng VBA, dùng công thức tham khảo nhé

 

[HUYNHTIEN0202]

Thế nào là lẻ, thế nào là không lẻ?

Mình ghi sai mình sửa lại như sau nếu kết quả không phải số nguyên thì tô màu.

 

[hocexcel_1991]

...........

 

[befaint]

Sub vidu()
    Dim Rng As Range, Cll As Range, b1, b2, i, r, mR1, s, k
    b1 = Sheet1.Range("A6:B12").Value
    b2 = Sheet1.Range("E6:F9").Value
    Set Cll = Sheet1.Range("E6:F6")
    mR1 = UBound(b1, 1)
    For i = 1 To UBound(b2, 1)
        s = b2(i, 1)
        For r = 1 To mR1
            If b1(r, 1) = s Then
                If b2(i, 2) Mod b1(r, 2) <> 0 Then
                    k = k + 1
                    If k = 1 Then
                        Set Rng = Cll.Offset(i - 1)
                    Else
                        Set Rng = Union(Rng, Cll.Offset(i - 1))
                    End If
                   Exit For
                End If
            End If
        Next r
    Next i
    If k > 0 Then Rng.Interior.ColorIndex = 10
End Sub

 

[VetMini]

Sub vidu()
...
    If k > 0 Then Rng.Interior.ColorIndex = 10
End Sub

Theo nguyên tắc hoa lá cành:
Mùa xuân em mặc áo hồng đào rơi
Mùa thu áo biếc da trời
Sang đông em lại đổi dời áo hoa
(Phạm Thiên Thư)

Nếu không đạt điều kiện thì phải cho nó màu khác hoặc trả nó về màu mặc định chứ.
Chả nhẽ hôm nay chạy, bôi đỏ 1 mớ, ngày mai bôi một mớ nữa, một tháng sau cả bảng tính đỏ loét.

 

[befaint]

Nếu không đạt điều kiện thì phải cho nó màu khác hoặc trả nó về màu mặc định chứ.
Chả nhẽ hôm nay chạy, bôi đỏ 1 mớ, ngày mai bôi một mớ nữa, một tháng sau cả bảng tính đỏ loét.

"Ngày nguy hiểm."

 

[huonglien1901]

Chào các Anh.
Em đang áp dụng code so sánh để tô màu nhưng phải bổ sung thêm cột phụ,bây giờ muốn sửa code không áp dụng cột phụ mà vẫn tô màu.Điều kiện tô màu như sau
- Lấy số lượng trong bảng 2 chia cho số lượng bảng 1 nếu kết quả không phải số nguyên thì tô màu.
- Các Anh xem file đính kèm.

BẠN XEM FILE(KHÔNG DÙNG CỘT PHỤ CHỈ DÙNG NAME)

 

[ndu96081631]

Chào các Anh.
Em đang áp dụng code so sánh để tô màu nhưng phải bổ sung thêm cột phụ,bây giờ muốn sửa code không áp dụng cột phụ mà vẫn tô màu.Điều kiện tô màu như sau
- Lấy số lượng trong bảng 2 chia cho số lượng bảng 1 nếu kết quả không phải số nguyên thì tô màu.
- Các Anh xem file đính kèm.

Sao bạn không dùng Conditional Formating để tô màu mà phải code?

 

[HUYNHTIEN0202]

Sao bạn không dùng Conditional Formating để tô màu mà phải code?

Cám ơn Anh
Trên thực tế mình có 2 file Bảng 1 là số liệu đóng gói của sản phẩm (A,B...) Bảng 2 là file kế hoạch bao gồm số lượng
Hiện tại mình đang áp dụng code như sau tại File bảng 1 chạy code mở File bảng 2 lên nếu số lượng sản phẩm nào sai qui cách thì tô màu.
Trên thực tế sau khi chay code tô màu trên xong bổ sung thêm lệnh xóa mất cột phụ thì được,nhưng mình muốn code ngắn gọn hơn.