Đánh dấu theo điều kiện

[Chian91]

E có bài toán như file đính kèm. Mong được cả nhà giúp đỡ ạ. Tự động chạy khi nhập dữ liệu. E muốn lập bằng VBA chứ k phải công thức. Em cám ơn nhiều ạ.

 

[huonglien1901]

E có bài toán như file đính kèm. Mong được cả nhà giúp đỡ ạ. Em cám ơn nhiều ạ

=IF($E5="Táo","X","")

 

[Chian91]

=IF($E5="Táo","X","")

E muốn VBA chị ơi

 

[snow25]

E muốn VBA chị ơi

VBA nêu rõ ý đi chứ có mỗi tẹo teo thế mà cần VBA

 

[FPT_online]

Bạn xem file đúng ý chưa?

 

[huonglien1901]

E có bài toán như file đính kèm. Mong được cả nhà giúp đỡ ạ. Tự động chạy khi nhập dữ liệu. E muốn lập bằng VBA chứ k phải công thức. Em cám ơn nhiều ạ.

copy code này vào sheet 1 rồi chạy sự kiện này.

Private Sub Worksheet_Change(ByVal Target As Excel.Range)

Application.EnableEvents = False

Dim i As Long, Lr As Long

Lr = Sheet1.Range("E65000").End(xlUp).Row

For i = 5 To Lr

    If Cells(i, 5) = "Táo" Then

    Cells(i, 8) = "X"

    Else

    Cells(i, 8) = ""

    End If

Next i

Application.EnableEvents = True

End Sub

 

[Chian91]

Bạn xem file đúng ý chưa?

Chuẩn rồi ạ, em cám ơn nhiều

Bài đã được tự động gộp: 30/10/18

copy code này vào sheet 1 rồi chạy sự kiện này.

Private Sub Worksheet_Change(ByVal Target As Excel.Range)

Application.EnableEvents = False

Dim i As Long, Lr As Long

Lr = Sheet1.Range("E65000").End(xlUp).Row

For i = 5 To Lr

    If Cells(i, 5) = "Táo" Then

    Cells(i, 8) = "X"

    Else

    Cells(i, 8) = ""

    End If

Next i

Application.EnableEvents = True

End Sub

em cám ơn chị ạ

 

[Ba Tê]

Chuẩn rồi ạ, em cám ơn nhiều

Bài đã được tự động gộp: 30/10/18

em cám ơn chị ạ

Nhập dòng nào thì đánh dấu dòng đó thôi.
Chứ nhập vào dòng 1000 phải xét và đánh dấu lại từ dòng 1 đến 1000 có phí lắm không?