Đặt chế độ nhập có điều kiện (1 người xem)

[thanh258]

Mình có 3 ô: A1,B1,C1
Bây giờ mình muốn ô A1 chỉ nhập được dữ liệu khi thỏa điều kiện:
1. Dữ liệu nhập vào ô A1 phải đúng 6 ký tự
2. Ô B1 và C1 phải không có dữ liệu, nếu có dữ liệu sẽ báo lỗi.

Mình đã đặt công thức sau cho Data -> Validation (Chế độ Custom)
=and(len(A1)=6,len(B1)+len(C1)=0)
Nhưng kô có kết quả.
Mình không biết phải đặt hàm thế nào để thỏa được điều kiện trên.
Bạn nào biết thì giúp mình nghe!

Thân!

 

[chibi]

Thử dùng qua 1 ô phụ xem. Ví dụ A2 có công thức là And(...) như trên, còn Validation = A2.

 

[thanh258]

Thử dùng qua 1 ô phụ xem. Ví dụ A2 có công thức là And(...) như trên, còn Validation = A2.

Mình chưa hiểu ý của bạn cho lắm. Bạn có thể up file cụ thể lên dùm mình được không?

Thân!

 

[nhanvvGPE]

Mình chưa hiểu ý của bạn cho lắm. Bạn có thể up file cụ thể lên dùm mình được không?

Thân!

Hi Bạn
Ý của bạn trên là làm như vầy:
1. Giả sử bạn chọn ô D1 làm điều kiện, gõ công thức dk vào đây. =and(len(A1)=6,len(B1)+len(C1)=0)
2. Kích vào ô A1 chọn Data-> Data Validation.
3. Trong phần setting chọn Allow Custom, Formula =D1.
4. Nếu muốn hiện thông báo lỗi thì vào Error Alert, nhập tiêu đề và message.

Thân!

 

[thanh258]

Hi Bạn
Ý của bạn trên là làm như vầy:
1. Giả sử bạn chọn ô D1 làm điều kiện, gõ công thức dk vào đây. =and(len(A1)=6,len(B1)+len(C1)=0)
2. Kích vào ô A1 chọn Data-> Data Validation.
3. Trong phần setting chọn Allow Custom, Formula =D1.
4. Nếu muốn hiện thông báo lỗi thì vào Error Alert, nhập tiêu đề và message.

Thân!

Uk mình hiểu rùi. Thanks bạn nhiều.
Nhưng có cách nào khách kô. Không lẽ mình có 10 ô cần nhập dữ liệu thì phải tạo 10 ô phụ như za?
Mình thắc mắc tại sao lại không đặt trực tiếp vào DATA -> Validation được mà phải thông qua ô phụ.

Thân!

 

[thanhsangnguyen1982]

Chép code này vào sheet chứa điều kiện
Private Sub Worksheet_Change(ByVal Target As Range)
If Len(Target(, 1)) <> 6 _
And Len(Target(, 1)) <> 0 And Len(Target(, 1)) <> 0 Then
MsgBox "So lieu nhap khong dung, xem lai"
End If
End Sub

 

[thanh258]

Chép code này vào sheet chứa điều kiện
Private Sub Worksheet_Change(ByVal Target As Range)
If Len(Target(, 1)) <> 6 _
And Len(Target(, 1)) <> 0 And Len(Target(, 1)) <> 0 Then
MsgBox "So lieu nhap khong dung, xem lai"
End If
End Sub

Thanks bạn nhiều!
Nhưng mình chưa rành về code cho lắm, nên mình chỉ dùng hàm thôi.
Mình cũng đã làm được rồi. Mình đặt tất cả điều kiện vào chung 1 ô. Nếu nó trả về giá trị TRUE thì cho nhập còn FALSE thì ko cho nhập.
Thân!