Nhấn nút tự động nhảy về dòng cuối đang làm việc.

[anktdn]

Xin anh chị giúp đỡ code khi ta nhân nút thì sẽ tự động nhảy về dòng cuối cùng đang làm việc ở những file có dữ liệu hàng nghìn dòng,việc rê chuột sẽ mất nhiều thời gian hơn khi nhấn nút xác định dòng cuối đang làm việc, cảm ơn!

 

[SA_DQ]

Nó đây, xin mời bạn

Sub FindLastCell()
Dim LastColumn As Integer
Dim LastRow As Long
Dim LastCell As Range
 If WorksheetFunction.CountA(Cells) > 0 Then
'Search for any entry, by searching backwards by Rows.'
    LastRow = Cells.Find(What:="*", After:=[A1], _
          SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
'Search for any entry, by searching backwards by Columns.'
    LastColumn = Cells.Find(What:="*", After:=[A1], _
          SearchOrder:=xlByColumns, _
          SearchDirection:=xlPrevious).Column
    Cells(LastRow, LastColumn).Select
End If 
End Sub

Hãy làm cho nó 1 nút lệnh hay tổ hợp fím tắt để xài dần!

Chúc thành công.

 

[sealand]

Làm sao phải làm nút lệnh cho phức tạp:
Bạn thử như sau xem nó chạy về đâu nhé

-Đặt con trỏ vào ô nào đó trong vùng số liệu rồi nhấn Ctrl+(phải trái lên xuống, end , home)
- -Đặt con trỏ vào ô nào đó trong vùng trống rồi nhấn Ctrl+(phải trái lên xuống, end , home)
Bạn để ý xem nó chạy về đâu nếu thấy phù hợp thì sau cứ thế mà làm

 

[laobakien]

Nếu mà có tính riêng tư thì tạo mã hóa thì khó phá được, cụ thể là tạo signature cho chính file mình đang dùng, giả sử trường hợp rơi vào tay người khác nếu không có signnature chỉ có nhìn thôi không làm gì được luôn