hàm trả về vị trí cuối của cột D (1 người xem)

[titanic]

em có 1 đoạn code này chưa hiểu nhờ các anh giúp .( đoàn code phía dưới này có nghĩa là khi mình nhập dữ liệu tại bất kì ô nào sau khi nhấn "tab" hoặc "enter" thì nó sẻ duy chuyển về vị trí có dữ liệu cuối cùng của cột D . nhưng em thì muốn sau khi mình nhấn 3 lần phím "tab" thì nó mới duy chuyển vào ô có nội dung cuối cùng của cột D thì phải sửa lại code này như thế nào mong các anh chỉ giúp. cảm ơn)

Private Sub Worksheet_Change(ByVal Target As Range) [D65536].End(xlUp).Offset(1, 0).Select End Sub

 

[Quang_Hải]

em có 1 đoạn code này chưa hiểu nhờ các anh giúp .( đoàn code phía dưới này có nghĩa là khi mình nhập dữ liệu tại bất kì ô nào sau khi nhấn "tab" hoặc "enter" thì nó sẻ duy chuyển về vị trí có dữ liệu cuối cùng của cột D . nhưng em thì muốn sau khi mình nhấn 3 lần phím "tab" thì nó mới duy chuyển vào ô có nội dung cuối cùng của cột D thì phải sửa lại code này như thế nào mong các anh chỉ giúp. cảm ơn)

Private Sub Worksheet_Change(ByVal Target As Range) [D65536].End(xlUp).Offset(1, 0).Select End Sub

Mục đích bạn nhấn 3 lần phím Tab để làm gì? Hay là bạn tự tạo ra rắc rối cho 1 vấn đề đơn giản?

 

[titanic]

à tại vì cột D là vị trí của mã hàng được nhập dữ liệu từ đầu đọc mã vạch nên cái đó đâu có làm bằng tay được. khó nên mình mới hỏi chứ có cố tình làm khó đâu bạn thông cảm

 

[Quang_Hải]

à tại vì cột D là vị trí của mã hàng được nhập dữ liệu từ đầu đọc mã vạch nên cái đó đâu có làm bằng tay được. khó nên mình mới hỏi chứ có cố tình làm khó đâu bạn thông cảm

Nếu không có file thì bạn tự đưa code vào file

Private Sub Worksheet_Change(ByVal Target As Range)
If [IV1] = 3 Then
   [D65536].End(xlUp).Offset(1).Select
   [IV1] = 0
End If
End Sub

Chèn thêm 2 Sub này vào 1 module

Sub test()
[IV1] = [IV1] + 1
End Sub

Sub auto_open()
Application.OnKey "{TAB}", "test"
End Sub