Cách chỉ cho nhập liệu một lần duy nhất trên môt ô trong trang tính. (2 người xem)

[kiennd1978]

Các sư huynh, sư tỉ nào biết cách chỉ cho nhập liệu 1 lần vào 1 ô trên trang tính chỉ em với ạ. Thanks!

 

[anhtuan2939]

Các sư huynh, sư tỉ nào biết cách chỉ cho nhập liệu 1 lần vào 1 ô trên trang tính chỉ em với ạ. Thanks!

Dùng vba, bạn copy code này vào phần nhập code trên worksheet của sheet bạn cần.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)   
    If Target.Count > 1 Then Exit Sub
    If Not IsEmpty(Target) Then Target.Offset(0, 1).Select
End Sub

 

[snow25]

Dùng vba, bạn copy code này vào phần nhập code trên worksheet của sheet bạn cần.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)  
    If Target.Count > 1 Then Exit Sub
    If Not IsEmpty(Target) Then Target.Offset(0, 1).Select
End Sub

Code này hoạt động thế nào bạn ơi.

 

[anhtuan2939]

Code này hoạt động thế nào bạn ơi.

Theo ý của chủ thớt thì không cho nhập dữ liệu vào ô đã có dữ liệu nên cách của mình là không cho chọn ô đã có dữ liệu, không chọn được ô có dữ liệu thì không nhập được dữ liệu, haha.

 

[snow25]

Theo ý của chủ thớt thì không cho nhập dữ liệu vào ô đã có dữ liệu nên cách của mình là không cho chọn ô đã có dữ liệu, không chọn được ô có dữ liệu thì không nhập được dữ liệu, haha.

Vấn đề là ô không có dữ liệu nhưng được kẻ bảng nó cũng không cho nhập à.

 

[ptm0412]

Theo ý của chủ thớt thì không cho nhập dữ liệu vào ô đã có dữ liệu nên cách của mình là không cho chọn ô đã có dữ liệu, không chọn được ô có dữ liệu thì không nhập được dữ liệu, haha.

Nếu muốn nhập dữ liệu vào C1, mà B1 đã có dữ liệu, thì người ta click vào B1, code nhảy sang C1. Nhập vào C1 "Code kỳ quá"
Hoặc muốn nhập dữ liệu vào B1, mà B1 đã có dữ liệu, tôi chọn khối B1:B2 hoặc B1:C1, xong tôi nhập vào ô B1 "Code dỏm"

Vấn đề là ô không có dữ liệu nhưng được kẻ bảng nó cũng không cho nhập à.

Thử biết liền. Tôi chắc là bạn chưa thử.

 

[le_vis]

Các sư huynh, sư tỉ nào biết cách chỉ cho nhập liệu 1 lần vào 1 ô trên trang tính chỉ em với ạ. Thanks!

Chắc bạn muốn thế này chăng : (Thử nhập liệu vào Ô F8 xem)

Private Sub Worksheet_Change(ByVal Target As Range)
Dim C21 As Range
ActiveSheet.Unprotect ""
For Each C2l In Range("F8")
C2l.Locked = (C2l <> "")
Next
ActiveSheet.Protect ""
End Sub

 

[anhtuan2939]

Nếu muốn nhập dữ liệu vào C1, mà B1 đã có dữ liệu, thì người ta click vào B1, code nhảy sang C1. Nhập vào C1 "Code kỳ quá"
Hoặc muốn nhập dữ liệu vào B1, mà B1 đã có dữ liệu, tôi chọn khối B1:B2 hoặc B1:C1, xong tôi nhập vào ô B1 "Code dỏm"

Cách của em có 2 mục đích:
1. Những ô đã chứa dữ liệu thì khi click vào thì nó sẽ nhảy sang ô bên phải gần nhất mà chưa có dữ liệu, cái này đồng nghĩa với không thể click vào ô đã có dữ liệu để sửa đổi.
2. Vì 1 lý do nào đó mà bắt buộc phải sửa những ô đã có dữ liệu thì dùng phương pháp như thầy nói: "chọn khối B1:B2 hoặc B1:C1, xong tôi nhập vào ô B1".

 

[VetMini]

Nếu muốn nhập dữ liệu vào C1, ...

Cỡ cha nội là sư bác, sư ông thì ngồi ngoài đi. Người ta muốn huynh tỷ mờ.