Tự động xác định dòng cuối để nhảy theo cột xác định khi nhập liệu

Liên hệ QC

anktdn

Thành viên chính thức
Tham gia
18/6/06
Bài viết
72
Được thích
77
Nghề nghiệp
acc
Nhờ các anh chị giúp . File mẫu

Nhờ anh chị giúp. File mẫu
 

File đính kèm

  • Tu dong xd dong cuoi.xls
    13.5 KB · Đọc: 79
Chỉnh sửa lần cuối bởi điều hành viên:
Bạn thừ với macro sau

Nó còn hạn chế là chưa xài được với fím {ESC}, mà chỉ là {ENTER} & {TAB}

PHP:
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
 If Not Intersect(Target, Columns("E:E")) Is Nothing And Target.Count = 1 Then
   Target.Offset(1, -3).Select
 ElseIf Not Intersect(Target, Columns("B:B")) Is Nothing And Target.Count = 1 Then
   Target.Offset(, 2).Select
 ElseIf Not Intersect(Target, Columns("D:D")) Is Nothing And Target.Count = 1 Then
   Target.Offset(, 1).Select
 End If
End Sub
 
Upvote 0
Web KT

Bài viết mới nhất

Back
Top Bottom