Sự kiện di chuyển đi các ô trong Sheet

[Phương Phương mito]

Em chào anh chị và các bạn
Em muốn một sự kiện nào đó sẽ xảy ra khi: Em di chuyển bất kỳ tại một ô nào đó trên bảng tính thì sẽ như thế nào ạ.

Private Sub Worksheet_Change(ByVal Target As Range)
If (Di chuyển bất kỳ ô nào trong sheet) Then
Sheet2.range("A1") = "Xin chao"
Else
End If
End Sub

 

[befaint]

di chuyển

Thì phải là Worksheet_SelectionChange, chứ Worksheet_Change là một thứ khác.

If (Di chuyển bất kỳ ô nào trong sheet) Then

Thì bỏ hết mớ IF đi là được

 

[Maika8008]

Em chào anh chị và các bạn
Em muốn một sự kiện nào đó sẽ xảy ra khi: Em di chuyển bất kỳ tại một ô nào đó trên bảng tính thì sẽ như thế nào ạ.

Private Sub Worksheet_Change(ByVal Target As Range)
If (Di chuyển bất kỳ ô nào trong sheet) Then
Sheet2.range("A1") = "Xin chao"
Else
End If
End Sub

Khi di chuyển chuột vào trong vùng E8:F12 sẽ thấy A2 hiện Xin chao! Còn ra ngoài vùng thì xóa 2 chữ đó:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Not Intersect(Target, Range("E8:F12")) Is Nothing Then
        [A2] = "Xin chao!"
    Else
        [A2] = ""
    End If
End Sub

 

[Phương Phương mito]

Thì phải là Worksheet_SelectionChange, chứ Worksheet_Change là một thứ khác.


Thì bỏ hết mớ IF đi là được

View attachment 262602

Chỗ này sai chỗ nào mà không được ạ: Target.Sheet2.Visible = True

Bài đã được tự động gộp: 17/7/21

Khi di chuyển chuột vào trong vùng E8:F12 sẽ thấy A2 hiện Xin chao! Còn ra ngoài vùng thì xóa 2 chữ đó:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Not Intersect(Target, Range("E8:F12")) Is Nothing Then
        [A2] = "Xin chao!"
    Else
        [A2] = ""
    End If
End Sub

Sao em dùng kiểu này không chạy ạ.
If Not Intersect(Target, Range("E8:F12")) Is Nothing Then
Sheet1.Visible = True

End If
End Sub

Bài đã được tự động gộp: 17/7/21

Khi di chuyển chuột vào trong vùng E8:F12 sẽ thấy A2 hiện Xin chao! Còn ra ngoài vùng thì xóa 2 chữ đó:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Not Intersect(Target, Range("E8:F12")) Is Nothing Then
        [A2] = "Xin chao!"
    Else
        [A2] = ""
    End If
End Sub

Em kiểm tra lại Code các anh giúp chạy rồi ạ ! Em cảm ơn ạ !

 

[Maika8008]

Chỗ này sai chỗ nào mà không được ạ: Target.Sheet2.Visible = True

Bài đã được tự động gộp: 17/7/21

Sao em dùng kiểu này không chạy ạ.
If Not Intersect(Target, Range("E8:F12")) Is Nothing Then
Sheet1.Visible = True

End If
End Sub

Vấn đề sheet1 đó là sheet nào? Có tồn tại không?

- Sheet1 là sheet hiện hành thì Sheet1.Visible = True là vô nghĩa vì nó đang được nhìn thấy và bạn đang thao tác trên nó.
- Sheet1 có tồn tại và đang trạng thái ẩn thì nó sẽ hiện ra
- Sheet1 có tồn tại và đang trạng thái thấy được (visible) thì nó sẽ vẫn như thế.