Nhờ giúp cách chọn điều kiện theo vùng cho trước

[mayxanh0301]

Các điều kiện em để trong file đính kèm nhờ a/c coi qua giúp em với!
Thanks cả nhà GPE!

 

[leonguyenz]

Các điều kiện em để trong file đính kèm nhờ a/c coi qua giúp em với!
Thanks cả nhà GPE!

Có phải ý bạn là tìm thấy C2 trong bảng DK thì lấy KQ 1, không tìm thấy là KQ 2?
Nếu vậy thì bạn dùng hàm COUNTIF:

=IF(COUNTIF(DK,C2),K2,K3)

 

[chuot0106]

Các điều kiện em để trong file đính kèm nhờ a/c coi qua giúp em với!
Thanks cả nhà GPE!

Với bài tập này em dùng sự kiện Worksheet_Change nhưng không biết nhầm ở đâu mà nó ra kết quả sai lung tung cả đi. Chỉ nhập số 6 là cho kết quả đúng mong các thầy các anh chị và các bạn xem giúp!

Option Explicit
Public Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
Dim rng As Range, cll As Range
Set rng = Range("D2:I10")
If Not Intersect(Target, Range("C2")) Is Nothing Then
For Each cll In rng
If cll = Range("C2") Then
Range("L2") = Range("K2")
Else
Range("L2") = Range("K3")
End If
Next cll
End If
Application.EnableEvents = True
End Sub

Thực ra đã có cách đơn giản là dùng công thức của leonguyen rồi nhưng do đang học VBA nên mình làm thử bằng VBA.

 

[concogia]

Với bài tập này em dùng sự kiện Worksheet_Change nhưng không biết nhầm ở đâu mà nó ra kết quả sai lung tung cả đi. Chỉ nhập số 6 là cho kết quả đúng mong các thầy các anh chị và các bạn xem giúp!

Thực ra đã có cách đơn giản là dùng công thức của leonguyen rồi nhưng do đang học VBA nên mình làm thử bằng VBA.

Nhập số 6 ra kết quả đúng vì code bạn viết nó như thế
Bạn cho chạy hết bảng, thì nó......chạy hết bảng, thằng cuối cùng của bảng là 6 nên chỉ có nhập số 6 mới có kết quả đúng, bi nhiêu còn lại là "tèo" hết. Híc
Thân

 

[susu16b]

Với bài tập này em dùng sự kiện Worksheet_Change nhưng không biết nhầm ở đâu mà nó ra kết quả sai lung tung cả đi. Chỉ nhập số 6 là cho kết quả đúng mong các thầy các anh chị và các bạn xem giúp!

Option Explicit
Public Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
Dim rng As Range, cll As Range
Set rng = Range("D2:I10")
If Not Intersect(Target, Range("C2")) Is Nothing Then
For Each cll In rng
If cll = Range("C2") Then
Range("L2") = Range("K2")
Else
Range("L2") = Range("K3")
End If
Next cll
End If
Application.EnableEvents = True
End Sub

Thực ra đã có cách đơn giản là dùng công thức của leonguyen rồi nhưng do đang học VBA nên mình làm thử bằng VBA.

Bạn xem lại chỗ màu đỏ.
Xét tất cả các ô trong vùng D2:I10, nếu không có ô nào bằng C2 thì L2 = K3, ngược lại nếu có 1 ô bằng C2 thì L2 = K2
Code của bạn sửa lại thành:

Public Sub Worksheet_Change(ByVal Target As Range)
    Application.EnableEvents = False
    Dim rng As Range, cll As Range
    Set rng = Range("D2:I10")
    If Not Intersect(Target, Range("C2")) Is Nothing Then
        Range("L2") = Range("K3")
        For Each cll In rng
            If cll = Range("C2") Then
                Range("L2") = Range("K2")
                Exit Sub
            End If
        Next cll
    End If
    Application.EnableEvents = True
End Sub

 

[chuot0106]

Bạn xem lại chỗ màu đỏ.
Xét tất cả các ô trong vùng D2:I10, nếu không có ô nào bằng C2 thì L2 = K3, ngược lại nếu có 1 ô bằng C2 thì L2 = K2
Code của bạn sửa lại thành:

Public Sub Worksheet_Change(ByVal Target As Range)
    Application.EnableEvents = False
    Dim rng As Range, cll As Range
    Set rng = Range("D2:I10")
    If Not Intersect(Target, Range("C2")) Is Nothing Then
        Range("L2") = Range("K3")
        For Each cll In rng
            If cll = Range("C2") Then
                Range("L2") = Range("K2")
                Exit Sub
            End If
        Next cll
    End If
    Application.EnableEvents = True
End Sub

Bạn xem lại, tôi vừa test thử code của bạn thấy cũng không ra kết quả như tác giả yêu cầu!

 

[susu16b]

Bạn xem lại, tôi vừa test thử code của bạn thấy cũng không ra kết quả như tác giả yêu cầu!

Oh. Mình không để ý kỹ code của bạn có cặp lệnh:

Application.EnableEvents = False
....................
    Application.EnableEvents = True

Thực tế thì code của bạn không cần 2 lệnh này.
Nên đoạn Code mình sửa ở trên bạn có thể sửa lại theo 1 trong các cách sau:
1 - Bỏ 2 lệnh:
Application.EnableEvents = False
Application.EnableEvents = True
2 - Thay Exit Sub bằng Exit For
3 - Thêm Application.EnableEvents = True vào trên dòng Exit Sub

Cảm ơn bạn đã nhắc nhở!

 

[chuot0106]

Oh. Mình không để ý kỹ code của bạn có cặp lệnh:

Application.EnableEvents = False
....................
    Application.EnableEvents = True

Thực tế thì code của bạn không cần 2 lệnh này.
Nên đoạn Code mình sửa ở trên bạn có thể sửa lại theo 1 trong các cách sau:
1 - Bỏ 2 lệnh:
Application.EnableEvents = False
Application.EnableEvents = True
2 - Thay Exit Sub bằng Exit For
3 - Thêm Application.EnableEvents = True vào trên dòng Exit Sub
Cảm ơn bạn đã nhắc nhở!

Cảm ơn Susu16 nhiều nhé! Có thể giải thích giúp tôi tại sao trong trường hợp này bỏ 2 dòng lệnh:

Application.EnableEvents = False
Application.EnableEvents = True

đi thì lại được không?

 

[chuot0106]

Nhập số 6 ra kết quả đúng vì code bạn viết nó như thế
Bạn cho chạy hết bảng, thì nó......chạy hết bảng, thằng cuối cùng của bảng là 6 nên chỉ có nhập số 6 mới có kết quả đúng, bi nhiêu còn lại là "tèo" hết. Híc
Thân

Em đã hiểu ý của anh rồi! Nếu trong vùng đó mà tìm thấy cll có giá trị bằng Range("C2") thì phải dừng vòng lập For ngay bằng Exit For.
Và đã thành công!
Cảm ơn anh!

ption Explicit
Public Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
Dim rng As Range, cll As Range
Set rng = Range("D2:I10")
If Not Intersect(Target, Range("C2")) Is Nothing Then
For Each cll In rng
If cll = Range("C2") Then
Range("L2") = Range("K2")
Exit For
Else
Range("L2") = Range("K3")
End If
Next cll
End If
Application.EnableEvents = True
End Sub

 

[susu16b]

Cảm ơn Susu16 nhiều nhé! Có thể giải thích giúp tôi tại sao trong trường hợp này bỏ 2 dòng lệnh:

Application.EnableEvents = False
Application.EnableEvents = True

đi thì lại được không?

2 dòng lệnh trên là nó tắt/bật chức năng kích hoạt sự kiện của Excel (ở đây là Worksheet_Change). Sau khi tắt (để tránh vòng lặp vô tận) bạn phải bật lại ở cuối Sub. Lệnh Exit Sub mà không có Application.EnableEvents = True ở trên. Nên nó không bật lại chức năng này sau khi đã tắt, nên chạy lần sau sự kiện Worksheet_Change không hoạt động.

Nên bạn có thể khắc phục bằng cách thay Exit Sub bằng Exit For để Code chạy tới Application.EnableEvents = True rồi mới thoát khỏi Sub

Nếu sử dụng Exit Sub thì phải thêm Application.EnableEvents = True vào trên dòng Exit Sub.

Thực tế ở Code trên có dòng lệnh:

[COLOR=#000000][I]If Not Intersect(Target, Range("C2")) Is Nothing Then[/I][/COLOR]

và Code không làm thay đổi giá trị của ô C2, nên 2 dòng lệnh:

Application.EnableEvents = False
Application.EnableEvents = True

Không thực sự cần thiết, bạn có thể bỏ nó đi và sử dụng Exit Sub như bình thường.

P/s: Nếu có thiếu sót mong các Thầy đóng góp thêm.

 

[mayxanh0301]

Thanks bạn leonguyenz đúng là công thức mình cần tìm.