Nếu sai thì hiện Message, và nhập dữ liệu vào

[thlpro]

Chào ACE!

ACE xem file đính kèm và giúp mình giải quyết vấn đề này với nhé. Yêu cầu co ghi rõ trong file đình kèm. Xin chân thành ACE đã giúp đỡ mình.

 

[chibi]

Cái này bạn nên xây dựng form để nhập dữ liệu.

 

[SA_DQ]

Bạn có thể dùng macro sự kiện sau

Private Sub Worksheet_Change(ByVal Target As Range)
 If Not Intersect(Target, Range([D4], [D2999])) Is Nothing Then
   If UCase(Target.Value) <> "P" Then
      With Target.Offset(, 1)
         .Value = "Hay Nhap Ngay"
         .Offset(, 1).Value = "Phai Nhap Du Lieu"
      End With
 End If:                End If
End Sub

Lưu ý: Macro này để ở trang tính cần nhập liệu.

 

[thlpro]

Sao ko có ai giúp mình hết vậy. Hic Hic.

 

[concogia]

Chào ACE!

ACE xem file đính kèm và giúp mình giải quyết vấn đề này với nhé. Yêu cầu co ghi rõ trong file đình kèm. Xin chân thành ACE đã giúp đỡ mình.

Mình nghĩ Thầy chibi nói đúng, tạo cái form nhập dữ liệu cho nó "hoành tráng' và "zồ" nhưng mình "hổng" làm nổi, mình chỉ khoái làm theo yêu cầu tác giả topic thôi
Hôm nay trời nóng quá nên dễ....nực, làm đại một cái cho bạn tham khảo
Sẵn tiện đây xin hỏi các Thầy và anh chị em trên diễn đàn: mình có bỏ được cái "thằng" X ở góc trên bên phải UserForm (trong bài) được không? nếu được xin hướng dẫn
Cám ơn

 

[ndu96081631]

Sẵn tiện đây xin hỏi các Thầy và anh chị em trên diễn đàn: mình có bỏ được cái "thằng" X ở góc trên bên phải UserForm (trong bài) được không? nếu được xin hướng dẫn
Cám ơn

Được chứ anh!
Anh xem topic này:
http://www.giaiphapexcel.com/forum/showthread.php?t=24123
Ngày bài đầu tiên luôn đấy (có cả file mẫu)

 

[thlpro]

ACE GPE nào còn giải pháp khác ko? Nếu có thì xin chỉ giáo em với. Thánks

 

[ndu96081631]

ACE GPE nào còn giải pháp khác ko? Nếu có thì xin chỉ giáo em với. Thánks

1 cách hơi "tà đạo"
Xem file đính kèm này nhé
(không chính xác lắm nhưng có lẽ tạm dùng được)
Tóm lại, file này làm việc theo phương thức: Phải nhập đầy đủ vào 2 cell bên phải thì nó mới cho phép nhập chữ "F" vào cột D