[Nhờ giúp đỡ] Hiển thị thông báo khi vào đúng sheet đã quy định (1 người xem)

[ranmatkinh]

Nhờ các bác giúp em bài "Hiển thị thông báo khi vào đúng sheet đã quy định" với ah.
- Tại sheet "Tong hop" sẽ có 2 cột "Tên sheet" và "Thông báo". (Trong file là "11" và "Bạn đã vào sheet 11")
Mong muốn: - Khi vào sheet "11" và gõ vào ô A2 nội dung bất kỳ sẽ phát ra 1 msgbox với nội dung "Bạn đã vào sheet 11"
- Khi vào sheet "10" và gõ vào ô A2 nội dung bất kỳ sẽ phát ra 1 msgbox với nội dung "Bạn đã vào sheet 10"

Em làm mãi mà không được. Mong các bác giúp đỡ.

 

[HyperLink]

Nhờ các bác giúp em bài "Hiển thị thông báo khi vào đúng sheet đã quy định" với ah.
- Tại sheet "Tong hop" sẽ có 2 cột "Tên sheet" và "Thông báo". (Trong file là "11" và "Bạn đã vào sheet 11")
Mong muốn: - Khi vào sheet "11" và gõ vào ô A2 nội dung bất kỳ sẽ phát ra 1 msgbox với nội dung "Bạn đã vào sheet 11"
- Khi vào sheet "10" và gõ vào ô A2 nội dung bất kỳ sẽ phát ra 1 msgbox với nội dung "Bạn đã vào sheet 10"

Em làm mãi mà không được. Mong các bác giúp đỡ.

bạn chép đoạn code thay thế cho sheet 10 thử nhé

Private Sub Worksheet_Change(ByVal Target As Range)

    If Target.Address = Range("A2").Address Then
        MsgBox "ban da vao sheet 10 "
    End If
    
End Sub

 

[ranmatkinh]

Thanks HyperLink. Tuy nhiên đề bài là msgbox từ cột B tương ứng của Sheet "Tong hop" khi vào sheet "10".
Mình Sheet("Tong hop").Select thì lại không nhảy nên không thực hiện được.

BRs!

 

[chuot0106]

Nhờ các bác giúp em bài "Hiển thị thông báo khi vào đúng sheet đã quy định" với ah.
- Tại sheet "Tong hop" sẽ có 2 cột "Tên sheet" và "Thông báo". (Trong file là "11" và "Bạn đã vào sheet 11")
Mong muốn: - Khi vào sheet "11" và gõ vào ô A2 nội dung bất kỳ sẽ phát ra 1 msgbox với nội dung "Bạn đã vào sheet 11"
- Khi vào sheet "10" và gõ vào ô A2 nội dung bất kỳ sẽ phát ra 1 msgbox với nội dung "Bạn đã vào sheet 10"

Em làm mãi mà không được. Mong các bác giúp đỡ.

Chép đoạn code này vào các sheet thử xem sao!

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [A2]) Is Nothing Then
MsgBox "Ban dang o sheet" & ActiveSheet.Name
End If
End Sub

 

[ranmatkinh]

Thanks Chuot. Tuy nhiên, là phát thông báo đã đc định nghĩa ở sheet "tong hop".

 

[Hai Lúa Miền Tây]

Thanks Chuot. Tuy nhiên, là phát thông báo đã đc định nghĩa ở sheet "tong hop".

Bạn dùng macro4 như file đính kèm nhé.

 

[ranmatkinh]

Tuyệt vời ông mặt trời. Cám ơn bác Miền Tây nhiều. Nhưng có cách nào dùng mảng không vậy bác?