Tạo rule tô màu hàng theo điều kiện.

[Nhatminh0208]

Em xin chào các Anh/Chị. Em muốn nhờ các Anh/Chị cho em xin công thức tạo rule tô màu vào 1 ô trong hàng có điều kiện ạ. Em xin gửi tệp (tệp ví dụ thôi ạ, sơ sài Anh/Chị bỏ qua ạ), em có ghi yêu cầu trong tệp. Mong Anh/Chị giúp em ạ. Em xin cám ơn.

 

[Hoàng Tuấn 868]

Em xin chào các Anh/Chị. Em muốn nhờ các Anh/Chị cho em xin công thức tạo rule tô màu vào 1 ô trong hàng có điều kiện ạ. Em xin gửi tệp (tệp ví dụ thôi ạ, sơ sài Anh/Chị bỏ qua ạ), em có ghi yêu cầu trong tệp. Mong Anh/Chị giúp em ạ. Em xin cám ơn.

99% bài này dùng công thức là không thực hiện được rồi.

 

[Nhatminh0208]

99% bài này dùng công thức là không thực hiện được rồi.

Dạ em cám ơn Anh đã phản hồi, Anh có hướng nào giúp em với ạ.

 

[SA_DQ]

Đây là 1 hướng:

Sub BoiMauTheoTong()
 Dim Rng As Range, Cls As Range
 Dim Tong As Double
 Const Max_ As Integer = 10
 
 Set Rng = [B6].CurrentRegion
 Rng.Interior.ColorIndex = 0
 For Each Cls In Rng
    Tong = Tong + Cls.Value
    If Tong >= Max_ Then
        Cls.Interior.ColorIndex = 38
        Tong = 0
    End If
 Next Cls
End Sub

 

[Nhatminh0208]

Đây là 1 hướng:

Sub BoiMauTheoTong()
 Dim Rng As Range, Cls As Range
 Dim Tong As Double
 Const Max_ As Integer = 10
 
 Set Rng = [B6].CurrentRegion
 Rng.Interior.ColorIndex = 0
 For Each Cls In Rng
    Tong = Tong + Cls.Value
    If Tong >= Max_ Then
        Cls.Interior.ColorIndex = 38
        Tong = 0
    End If
 Next Cls
End Sub

Dạ em cám ơn Thầy đã giúp ạ, Thầy cho em hỏi thêm nếu em muốn mở rộng thêm cột trên dòng đó thì sửa code dòng nào ạ.

Bài đã được tự động gộp: 21/12/22

Đây là 1 hướng:

Sub BoiMauTheoTong()
 Dim Rng As Range, Cls As Range
 Dim Tong As Double
 Const Max_ As Integer = 10
 
 Set Rng = [B6].CurrentRegion
 Rng.Interior.ColorIndex = 0
 For Each Cls In Rng
    Tong = Tong + Cls.Value
    If Tong >= Max_ Then
        Cls.Interior.ColorIndex = 38
        Tong = 0
    End If
 Next Cls
End Sub[/
[/QUOTE]

Đây là 1 hướng:

Sub BoiMauTheoTong()
 Dim Rng As Range, Cls As Range
 Dim Tong As Double
 Const Max_ As Integer = 10
 
 Set Rng = [B6].CurrentRegion
 Rng.Interior.ColorIndex = 0
 For Each Cls In Rng
    Tong = Tong + Cls.Value
    If Tong >= Max_ Then
        Cls.Interior.ColorIndex = 38
        Tong = 0
    End If
 Next Cls
End Sub

Dạ em cám ơn Thầy. Em thử thấy chạy đúng rồi ạ

 

[Hoàng Tuấn 868]

Dạ em cám ơn Anh đã phản hồi, Anh có hướng nào giúp em với ạ.

Có bài #4 giúp bạn rồi nhé, mình có làm cũng không bằng được bài đấy đâu.

 

[Nhatminh0208]

Có bài #4 giúp bạn rồi nhé, mình có làm cũng không bằng được bài đấy đâu.

Vâng em cám ơn Anh. Từ bài viết #4 của Thầy SA_DQ em sửa theo đúng tệp của em rồi. Nó chạy rất tốt. Em xin cám ơn Anh và Thầy đã giúp