Hoi ve cach xuat hien Message (1 người xem)

[hainhat]

Chao cac ban,

Minh muon hien thi mot thong bao trong excel khi co dien day du du lieu vao 2 cell. Minh co gui file kem theo de tai.

Vui long giup minh nhe. Cam on cac ban nhieu.

 

[SA_DQ]

Bạn thử cái ni nha:

Bạn phải chuột vô tên sheet1 (đang chứa 2 ô cần nhập đử dữ liệu) & chọn dòng cuối: View Code (nếu phần bên phải cửa sổ VBE chỉ là màu xám thì vô menu Insert -> module để VBE bày cho bạn CS soạn thảo) & chép đoạn code này vô:

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
  If Not Intersect(Target, Range("B2")) Is Nothing Then
    If IsDate(Range("B7")) Then MsgBox "CAN LAM GAP"
  ElseIf Not Intersect(Target, Range("B7")) Is Nothing Then
    If IsDate(Range("B2")) Then MsgBox "CAN LAM GAP"  
 End If
End Sub

'* * * * * * * * * * * * * * * * * * * * * * * * * *

Private Sub Worksheet_Change(ByVal Target As Range)
 
 If Not Intersect(Target, Range("A8")) Is Nothing And Target.Value >= 5 Then _
                 Target.Offset(0, 5).Value = "Can Lam Gap"
 If Not Intersect(Target, Range("A8")) Is Nothing And Target.Value < 5 Then _
        Target.Offset(0, 5).Value = ""
 If Not Intersect(Target, Range("F8")) Is Nothing And IsDate(Target.Value) Then _
         MsgBox "Da Lam Xong!"
 
End Sub

 

[nvson]

Bạn thử file sau:

 

[hainhat]

Cam on cac ban da nhiet tinh chi giao. Khong ngo moi gui ma cac ban da hoi am lien. Cac ban hay va gioi thiet.

Bay gio minh co nhu cau xuat hien message kieu khac. Cac ban vui long mo file dinh kem va giup minh nhe.

Cam on nhieu.

Chú ý: Bạn phải gõ đủ dấu, không bài sẽ bị xoá!

 

[SA_DQ]

Trả lời câu 2:

Mình đã ghi tại bài trên! (phần sau)

 

[nvson]

Code của mình cũng gần giống của bạn SA_DQ.
Bạn có thể tham khảo thêm.

 

[ThuNghi]

Cám ơn anh NVSon rất nhiều, tiện thể nhờ anh chỉ cụ thể VBA mà anh áp dụng vào hiển thị Msg. Cụ thể là target
Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo thoat
If Target.Value = "" Then End

If Target.Column = 1 Or Target.Column = 2 Then
If Cells(Target.Row, 4) = "Dau" Then
Cells(Target.Row, 6) = "Can lam gap"
Else
Cells(Target.Row, 6).Value = ""
...

 

[nvson]

Target chính là ô (hoặc vùng) mà bạn thay đổi đấy.