Muốn chức năng Auto corect chỉ áp dụng cho 1 file excel

[kimdong80]

Mình có 1 file danh sách nhân sự cần nhập user. Có 3 ca là S1, S2, S3, giờ làm các ca này không trùng nhau. Danh sách user nằm ở cột F. Mình cần mỗi lần click chuột thì user sẽ đi tuần tự từ 16001, 16003, 16011...(CÁCH 1). Nhưng mình thấy cách này hơi khó nên mình mới nghĩ ra cách 2, nhập các con số sau đó muốn ai không đăng kí ca nào thì xóa ca đó. Các con số từ 1->20 sẽ tự động nhảy theo. Sau khi sắp xếp xong thì sẽ dùng chức năng autocorrect để chuyển các con số từ 1->20 thành các user tương ứng. Nhưng vấn đề phát sinh là auto corect sẽ áp dụng cho toàn bộ các file excel trên máy mình. Mình muốn nó chỉ chạy trên 1 sheet "file dang ki" của file mẫu này thôi.
Mong mọi người giúp mình nhé

 

[befaint]

Với điều kiện trong Excel Options/ Advanced / Editing options:
Check dòng "After pressing Enter, move selection" / Mục Direction = Down.
Chép vào Sheet "File dang ky":

Private Sub Worksheet_Change(ByVal Target As Range)
Dim user() As Variant, i As Integer, n As Integer
n = Sheet1.Range("F1048576").End(xlUp).Row
user() = Sheet1.Range("F6:F" & n)
For i = 1 To (n - 6 + 1)
    If ActiveCell.Row = 1 Then Exit Sub
    If ActiveCell.Offset(-1, 0) = i Then
        ActiveCell.Offset(-1, 0) = user(i, 1)
    End If
Next
End Sub

Bạn tải file đính kèm về thử xem nhé.
TT!

 

[kimdong80]

Mình đã sử dụng code của bạn. Nhưng lại có vấn đề phát sinh là phải Dclick vô cell rồi bấm enter mới ra kết quả (do những số 1, 2 3 mình nhập sẵn). Mà làm như vậy mỏi ngón trỏ quá vì nhiều dữ liệu. Có cách nào thay đổi để mình chọn hết vùng dữ liệu rồi bấm phím đặc biệt nào đó. VD: %^ chẳng hạn thì nó macro sẽ chạy ra kết quả cho mình luôn không?

 

[befaint]

Mình đã sử dụng code của bạn. Nhưng lại có vấn đề phát sinh là phải Dclick vô cell rồi bấm enter mới ra kết quả (do những số 1, 2 3 mình nhập sẵn). Mà làm như vậy mỏi ngón trỏ quá vì nhiều dữ liệu. Có cách nào thay đổi để mình chọn hết vùng dữ liệu rồi bấm phím đặc biệt nào đó. VD: %^ chẳng hạn thì nó macro sẽ chạy ra kết quả cho mình luôn không?

Thử F2 rồi Enter xem sao.
Nhập sẵn rồi thì ngay cả auto correct cũng không được. Chắc phải dùng cách tìm kiếm và thay thế thôi...