Thay đổi vùng theo điều kiện (1 người xem)

[dinhphuong9327]

Chào các Anh Chị GPE,

Mong các A/C hướng dẫn giúp em cách chọn và tô màu 1 vùng theo 1 điều kiện nào đó. Em xin gởi file đính kèm.

Em xin cảm ơn

 

[giangleloi]

Chào các Anh Chị GPE,

Mong các A/C hướng dẫn giúp em cách chọn và tô màu 1 vùng theo 1 điều kiện nào đó. Em xin gởi file đính kèm.

Em xin cảm ơn

Chọn G2 xem kết quả nhé:

 

[giangleloi]

Oh. Sao làm được hay vậy đại ka??? dùng cái gì mà hay thế???


Chỉ mới đáp ứng việc tô màu.........Còn cái chọn nữa (chắc là Selection đó.....)

Cái đó là dùng CF với data validation để đơn giản hơn thôi (đừng hỏi đểu, ngại lắm cơ). Chứ còn muốn hơn nữa thì phải "cót két" mới được.

 

[dinhphuong9327]

Dạ cám ơn A. HKPhuong và A.Giangleloi đã quan tâm,

Ý em muốn là khi em click chuột vào G3 hoặc H3 hoặc I3 thì tên nhân viên sẽ được chọn và tô màu tương ứng, ko click chuột vào thi ko có màu gì cả.

Trân trọng

 

[doatmenhhon]

Bạn xem có đúng ý bạn không ?

 

[phulien1902]

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim Cll As Range, Clls As Range
    If Intersect(Target, [G3:J3]) Is Nothing Then
        Cells.Interior.ColorIndex = 0
        Exit Sub
    Else
        Cells.Interior.ColorIndex = 0
    For Each Cll In Target
        For Each Clls In Range("C2:C18")
            If Cll.Offset(-1, 0).Value = Clls.Value Then
                Clls.Offset(, -1).Interior.ColorIndex = 3
            End If
        Next Clls
    Next Cll
    End If
End Sub

Có thể thay:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

Bằng:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Mỏi tay quá,hii

 

[dinhphuong9327]

Dạ cám ơn mọi người. Đúng ý em rồi ạ.

Em còn 1 file cũng tương tự file trước. nhưng em lại không biết gì về VBA cả. Rất mong các Anh giúp đỡ.

nội dung của file này là: theo bảng kết quả: Tô màu các Code có Rank nhỏ hơn hoặc bằng Rank trong bảng kết quả và theo tháng tương ứng.

Ví dụ khi click vào Ô H3 thì các Code từ B2:B14 được tô màu, khi click vào I3 thì Code từ B35:B43 được tô màu.

 

[kbw1]

Chọn G2 xem kết quả nhé:

Bạn ứng dụng hay quá.

 

[kbw1]

Tặng bạn đoạn code Click vào vùng G3:J3 sẽ tô màu như ý muốn. Paste code vào sheet nha , không phải Module

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Cll As Range, Clls As Range
    If Intersect(Target, [G3:J3]) Is Nothing Then
        Cells.Interior.ColorIndex = 0
        Exit Sub
    Else
        Cells.Interior.ColorIndex = 0
    For Each Cll In Target
        For Each Clls In Range("C2:C18")
            If Cll.Offset(-1, 0).Value = Clls.Value Then
                Clls.Offset(, -1).Interior.ColorIndex = 3
            End If
        Next Clls
    Next Cll
    End If
End Sub

Cái này copy mục thư ký bị lỗi. Ko được tô màu bạn ạ. Code lỗi rồi thì phải.

 

[doatmenhhon]

Cái này copy mục thư ký bị lỗi. Ko được tô màu bạn ạ. Code lỗi rồi thì phải.

code lấy theo tên cột C2: C18 bằng tên cột lựa chọn G3 đến J3 thì tô màu. Check lại các tên một bên là thư "ký" một bên là thư "Ký"

 

[dinhphuong9327]

oh hay quá cám ơn mọi người và Anh hpkhuong.

Anh hpkhuong ơi thêm 1 í nhỏ nữa là làm sao để con trỏ nó có thể di chuyển đến vùng được tô màu nhỉ. có nghĩa là khi em chọn vào ô K3 chẳng hạn con trỏ sẽ đi tới vùng B89:B97 Anh đã tô màu.

Em cám ơn

 

[dinhphuong9327]

Có giải pháp nào không Anh hpkhuong nhỉ? Anh ơi nếu click chuột vào H3 ( Hoặc I3,J3....) thì tại ô G6 hiển thị các nội dung Tháng, Code, Sum of Sale_net, Lũy kế, Rank tương ứng với vùng màu đã chọn được không nhỉ, không biết VBA có giải quyết được không??

Cám ơn Anh

 

[Sheva87]

Cám ơn Anh hpkhuong,

Nhưng ý của em là khi click chuột vào các H3 ( Hoặc I3,J3....), thì tại Ô G6 sẽ hiển thị các nội dung Tháng, Code, Sum of Sale_net, Lũy kế, Rank tương ứng với vùng màu đã được chọn.

Ví dụ: như hình đính kèm

 

[doveandrose]

Muốn thì có luôn. Đổi sang tô màu vàng cho đỡ chói mắt.....

quá mạnh mẽ . dạo này anh í viết code như hát hay vậy . ngưỡng mộ quá đi

 

[dinhphuong9327]

Trùi ui quá chuẩn luôn, đúng í em rồi cám ơn sự hỗ trợ nhiệt tình của Anh hpkhuong. Mong rằng sẽ luôn nhận được giúp đỡ của anh .

Trân trọng

 

[bautroixanhngat]

còn nếu e muốn chọn vị trí khác, không phải G6 để hiện kết quả thì phải sửa code này như thế nào (không cần tô màu cũng được)
nhờ các sư huynh chỉ giáo