Em muốn ô B2 sẽ không thể nhập được dữ liệu nếu ô A2 không phải là một số (ô B2 lấy kết quả từ ô A2) theo các anh chị mình có thể làm được không? Tương tự như vậy ô B2 sẽ không thể nhập dữ liệu nếu ô A2 không phải là chữ? Mong các anh chị giúp đỡ
C1: Bạn chọn ở ô B2 rồi vào Data -> Validation -> tại Tab Settings, mục Allow: Custom; mục Formula: =IF(A2="",False,True). Tại Tab Error Alert, bạn chọn Style: Stop, Title: Thông báo!, Error message: Bạn chưa nhập dữ liệu ở ô A2!C2: Bạn nhấn Alt + F11, nhấp vào Sheet1 bên cửa sổ Project (Đây là sheet mà bạn muốn làm chức năng này). Rồi nhập vào đoạn code sau:
Mã:
Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Address = "$B$2" And [B]Sheet1[/B].Range("A2") = "" Then [COLOR=green]'Đây là điều kiện của lệnh[/COLOR] MsgBox ("Ban chua nhap du lieu o o A2!") [COLOR=green]'Hiện thông báo[/COLOR] [B]Sheet1[/B].Range("A2").Select [COLOR=green]'Yêu cầu nhập dữ liệu ở ô A2[/COLOR] End If End Sub
Tùy thuộc vào sheet hiện hành bạn thay đổ Sheet1 đúng thành sheet mà mình chọn. Thân.
Em muốn ô B2 sẽ không thể nhập được dữ liệu nếu ô A2 không phải là một số (ô B2 lấy kết quả từ ô A2)theo các anh chị mình có thể làm được không? Tương tự như vậy ô B2 sẽ không thể nhập dữ liệu nếu ô A2 không phải là chữ? Mong các anh chị giúp đỡ
C1: Bạn chọn ở ô B2 rồi vào Data -> Validation -> tại Tab Settings, mục Allow: Custom; mục Formula: =IF(A2="",False,True). Tại Tab Error Alert, bạn chọn Style: Stop, Title: Thông báo!, Error message: Bạn chưa nhập dữ liệu ở ô A2!
C2: Bạn nhấn Alt + F11, nhấp vào Sheet1 bên cửa sổ Project (Đây là sheet mà bạn muốn làm chức năng này). Rồi nhập vào đoạn code sau:
Mã:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = "$B$2" And [B]Sheet1[/B].Range("A2") = "" Then [COLOR=green]'Đây là điều kiện của lệnh[/COLOR]
MsgBox ("Ban chua nhap du lieu o o A2!") [COLOR=green]'Hiện thông báo[/COLOR]
[B]Sheet1[/B].Range("A2").Select [COLOR=green]'Yêu cầu nhập dữ liệu ở ô A2[/COLOR]
End If
End Sub
Tùy thuộc vào sheet hiện hành bạn thay đổ Sheet1 đúng thành sheet mà mình chọn.
Thân.
Em muốn ô B2 sẽ không thể nhập được dữ liệu nếu ô A2 không phải là một số (ô B2 lấy kết quả từ ô A2) theo các anh chị mình có thể làm được không? Tương tự như vậy ô B2 sẽ không thể nhập dữ liệu nếu ô A2 không phải là chữ? Mong các anh chị giúp đỡ
Bạn mở Validation để xem công thức nha! (Nhớ, trước tiên phải quét chọn toàn bộ cột C rồi mới nhập công thức vào) Bổ sung thêm code:
PHP:
Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Column = "3" And (Sheet1.Range("A" & Target.Row) = "" And Sheet1.Range("B" & Target.Row) = "") Then MsgBox ("Ban chua nhap du lieu o o A" & Target.Row & " va o o B" & Target.Row & "!") Sheet1.Range("A" & Target.Row).Select ElseIf (Target.Column = "3" And Sheet1.Range("A" & Target.Row) = "") Then MsgBox ("Ban chua nhap du lieu o o A" & Target.Row & "!") Sheet1.Range("A" & Target.Row).Select ElseIf Target.Column = "3" And Sheet1.Range("B" & Target.Row) = "" Then MsgBox ("Ban chua nhap du lieu o o B" & Target.Row & "!") Sheet1.Range("B" & Target.Row).Select End If End Sub
