Gán giá trị dựa trên những giá trị trùng lặp thỏa mãn điều kiện

[anh.le.t]

Mình xin tư vấn cách trả giá trị ở cột C cho nội dung dưới đây:

Khi ký tự "M" xuất hiện ở ô nào đó trong cột B, gióng sang cột A có sẵn giá trị nào đó (ví dụ M xuất hiện ở ô B7, gióng sang A7 có giá trị ví dụ là X)
Thì từ hàng số 7 trở lên, cột A có chữ X nào thì cột C sẽ trả lại giá trị Clear tương ứng
Lưu ý: chỉ áp dụng từ hàng 7 đó trở lên, chứ không áp dụng cho hàng số 8 trở xuống. Cụ thể, ô A10 cũng có giá trị X nhưng C10 không bị trả lại giá trị "Clear"

Tương tự, khi M xuất hiện ở ô B9, tương ứng với nó A9 có giá trị là Y. Khi đó các ô A5, A9 có giá trị Y thì cột C 5, C9 sẽ trả lại xuất hiện ký tự "Clear". Và ô A11 có Y nhưng C11 không hiện "Clear"



Cảm ơn mọi người

 

[Maika8008]

Mình xin tư vấn cách trả giá trị ở cột C cho nội dung dưới đây:

Khi ký tự "M" xuất hiện ở ô nào đó trong cột B, gióng sang cột A có sẵn giá trị nào đó (ví dụ M xuất hiện ở ô B7, gióng sang A7 có giá trị ví dụ là X)
Thì từ hàng số 7 trở lên, cột A có chữ X nào thì cột C sẽ trả lại giá trị Clear tương ứng
Lưu ý: chỉ áp dụng từ hàng 7 đó trở lên, chứ không áp dụng cho hàng số 8 trở xuống. Cụ thể, ô A10 cũng có giá trị X nhưng C10 không bị trả lại giá trị "Clear"

Tương tự, khi M xuất hiện ở ô B9, tương ứng với nó A9 có giá trị là Y. Khi đó các ô A5, A9 có giá trị Y thì cột C 5, C9 sẽ trả lại xuất hiện ký tự "Clear". Và ô A11 có Y nhưng C11 không hiện "Clear"

View attachment 262112

Cảm ơn mọi người

Thêm đoạn code này trong trang VBA của sheet cần làm

Private Sub Worksheet_Change(ByVal Target As Range)
Dim i&, Rng As Range
  If Target.Row > 2 And Target.Row < 12 And Target.Column = 2 And Target.Count = 1 Then
    If Target = "M" Then
      Application.EnableEvents = False
        For i = 3 To Target.Row
          If Cells(i, 1) = Target.Offset(, -1) Then
            If Rng Is Nothing Then
              Set Rng = Cells(i, 3)
            Else
              Set Rng = Union(Rng, Cells(i, 3))
            End If
          End If
        Next
      Rng.Formula = "Clear"
      Application.EnableEvents = True
    End If
  End If
End Sub

 

[anh.le.t]

Thêm đoạn code này trong trang VBA của sheet cần làm

Private Sub Worksheet_Change(ByVal Target As Range)
Dim i&, Rng As Range
  If Target.Row > 2 And Target.Row < 12 And Target.Column = 2 And Target.Count = 1 Then
    If Target = "M" Then
      Application.EnableEvents = False
        For i = 3 To Target.Row
          If Cells(i, 1) = Target.Offset(, -1) Then
            If Rng Is Nothing Then
              Set Rng = Cells(i, 3)
            Else
              Set Rng = Union(Rng, Cells(i, 3))
            End If
          End If
        Next
      Rng.Formula = "Clear"
      Application.EnableEvents = True
    End If
  End If
End Sub

Cảm ơn bạn. Mình rất tiếc là mình chưa biết dùng VBA, định hỏi về hàm có sẵn thôi (

 

[Phuocam]

Mình xin tư vấn cách trả giá trị ở cột C cho nội dung dưới đây:

Khi ký tự "M" xuất hiện ở ô nào đó trong cột B, gióng sang cột A có sẵn giá trị nào đó (ví dụ M xuất hiện ở ô B7, gióng sang A7 có giá trị ví dụ là X)
Thì từ hàng số 7 trở lên, cột A có chữ X nào thì cột C sẽ trả lại giá trị Clear tương ứng
Lưu ý: chỉ áp dụng từ hàng 7 đó trở lên, chứ không áp dụng cho hàng số 8 trở xuống. Cụ thể, ô A10 cũng có giá trị X nhưng C10 không bị trả lại giá trị "Clear"

Tương tự, khi M xuất hiện ở ô B9, tương ứng với nó A9 có giá trị là Y. Khi đó các ô A5, A9 có giá trị Y thì cột C 5, C9 sẽ trả lại xuất hiện ký tự "Clear". Và ô A11 có Y nhưng C11 không hiện "Clear"


Cảm ơn mọi người

Thử công thức này trong C3:

=IF(B3="X","Clear",IF(IFERROR(VLOOKUP(A3,A4:$B$30000,2,0),"")="X","Clear",""))

.

 

[Maika8008]

Cảm ơn bạn. Mình rất tiếc là mình chưa biết dùng VBA, định hỏi về hàm có sẵn thôi (

Vậy sao lại đăng vào box Lập trình?