Sự kiện chỉ cho nhập "X" trong 3 cột theo nhóm liên tiếp (1 người xem)

[hcm2015]

Chào các bạn,

Các bạn giúp tôi code sự kiện Change theo điều kiện:

Làm sự kiện cho vùng F3:AI17. Tương đương với 10 nhóm Tờ trình, mỗi nhóm liên tiếp có 3 cột cần sự kiện change

Cột TT (tán thành) mặc định là sẽ đánh X hết vào
Cột KTT (Không tán thành) & Khác (ý kiến khác) sẽ được gõ bằng tay vào sau.

Các bạn giúp code sao cho khi Thay đổi dữ liệu (gõ X vào) tại cột TT thì 2 cột liên tiếp (là cột KTT & Khác) của nhóm đó sẽ tự động xóa. Nếu cột KTT gõ X vào thì cột KT & Khác sẽ xóa dữ liệu (rỗng)

TƯơng tự cột Khác nếu gõ X vào thì cột TT & KTT sẽ bị xóa (rỗng)

Mục đích của việc trên là chỉ cho phép gõ dữ liệu 1 trong 3 cột theo nhóm từ Tờ trình 1 tới tờ trình 10

P/s: Mục đích để cập nhật ý kiến tán thành, không tán thành, ý kiến khác cho Đại hội đồng cổ đông sắp tới => Tránh việc nhập nhiều hơn 1 cột ý kiến của cổ đông.

Chân thanh cảm ơn các bạn!

 

[giaiphap]

Bạn sử dụng sự kiện này cho sheet nhé.

Private Sub Worksheet_Change(ByVal Target As Range)
If (Not Intersect(Range("f3:ai17"), Target) Is Nothing) And (Target.Cells.Count = 1) Then
    If (Target.Value = "X") And (Cells(2, Target.Column).Value = "TT") Then
       Target.Offset(, 1).Resize(, 2).Value = ""
    ElseIf (Target.Value = "X") And (Cells(2, Target.Column).Value = "KTT") Then
       Target.Offset(, 1).Value = ""
       Target.Offset(, -1).Value = ""
    ElseIf (Target.Value = "X") And (Cells(2, Target.Column).Value = "Khác") Then
       Target.Offset(, -3).Resize(, 2).Value = ""
    End If
End If
End Sub

 

[vu_tuan_manh_linh]

Chào các bạn,

Các bạn giúp tôi code sự kiện Change theo điều kiện:

Làm sự kiện cho vùng F3:AI17. Tương đương với 10 nhóm Tờ trình, mỗi nhóm liên tiếp có 3 cột cần sự kiện change

Cột TT (tán thành) mặc định là sẽ đánh X hết vào
Cột KTT (Không tán thành) & Khác (ý kiến khác) sẽ được gõ bằng tay vào sau.

Các bạn giúp code sao cho khi Thay đổi dữ liệu (gõ X vào) tại cột TT thì 2 cột liên tiếp (là cột KTT & Khác) của nhóm đó sẽ tự động xóa. Nếu cột KTT gõ X vào thì cột KT & Khác sẽ xóa dữ liệu (rỗng)

TƯơng tự cột Khác nếu gõ X vào thì cột TT & KTT sẽ bị xóa (rỗng)

Mục đích của việc trên là chỉ cho phép gõ dữ liệu 1 trong 3 cột theo nhóm từ Tờ trình 1 tới tờ trình 10

P/s: Mục đích để cập nhật ý kiến tán thành, không tán thành, ý kiến khác cho Đại hội đồng cổ đông sắp tới => Tránh việc nhập nhiều hơn 1 cột ý kiến của cổ đông.

Chân thanh cảm ơn các bạn!

Bạn chép đoạn code sau vào sheet!

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column >= 6 And Target.Column <= 36 Then
    If Target.Row >= 3 Then
        If Target.Value = "X" Then
            If Cells(2, Target.Column).Value = "TT" Then
                Target.Offset(0, 1).ClearContents
                Target.Offset(0, 2).ClearContents
            Else
                If Cells(2, Target.Column).Value = "KTT" Then
                    Target.Offset(0, -1).ClearContents
                    Target.Offset(0, 1).ClearContents
                Else
                    Target.Offset(0, -2).ClearContents
                    Target.Offset(0, -1).ClearContents
                End If
            End If
        End If
    End If
End If
End Sub