Tắt thông báo Security Warning Automatic update .... và di chuyển đến ô chứa dữ liệu cuối cùng của bảng (1 người xem)

[chothadiem]

Xin chào các anh/chị!
Xin được nhờ các anh/chị giúp em 02 vấn đề sau:
1/ Em mở file excel thì hiện thông báo "Security Warning Automatic update ...." (như hình 1) Vào đâu để tắt vĩnh viễn thông báo đó đi để lần sau mở file excel lên không thấy thông báo đó nữa và tắt thông báo đó đi dữ liệu liên kết với các file khác có bị ảnh hưởng gì không ạ?
2/ Em dùng tổ hợp phím (Ctrl + End) để di chuyển đến ô cuối cùng có chứa dữ liệu trông bàn tính (ý em là chỉ muốn di chuyển đến ô của dòng cuối cùng là ô nào đó của dòng thứ 145 nhưng khi sử dụng (Ctrl + End) lại di chuyển đến ô WWO148 (hình 2), em không hiểu tại sao? và làm thế nào để di chuyển đến ô AE145 (hình 3) ạ?
em có file đính kèm, em xin ảm ơn!

 

[befaint]

1/


2/
File kèm.

 

[viettho]

Bạn xem file đính kèm nhé. Dùng tổ hợp phím Ctrl+Shift+E
Code:
Public Sub End_Row()
Dim row_i As Long
row_i = Sheet1.Range("A" & Rows.Count).End(xlUp).Row
Cells(row_i, "A").Select
End Sub

 

[chothadiem]

1/
View attachment 235661

2/
File kèm.

Em cảm ơn thầy! thầy cho em hỏi ý 2:
2/ Em dùng tổ hợp phím (Ctrl + End) để di chuyển đến ô cuối cùng có chứa dữ liệu trông bàn tính (ý em là chỉ muốn di chuyển đến ô của dòng cuối cùng là ô nào đó của dòng thứ 145 nhưng khi sử dụng (Ctrl + End) lại di chuyển đến ô WWO148 (hình 2), em không hiểu tại sao? và làm thế nào để di chuyển đến ô AE145 (hình 3) ạ?
Nguyên nhân do đâu vậy ạ? em không hiểu? thầy có thể chỉ giúp em ạ!
Em cảm ơn thầy!

Bài đã được tự động gộp: 15/4/20

Bạn xem file đính kèm nhé. Dùng tổ hợp phím Ctrl+Shift+E
Code:
Public Sub End_Row()
Dim row_i As Long
row_i = Sheet1.Range("A" & Rows.Count).End(xlUp).Row
Cells(row_i, "A").Select
End Sub

Em cảm ơn anh!

 

[befaint]

Nguyên nhân do đâu vậy

Ctrl + End: Nhảy tới cell là giao điểm của Row và Column cuối cùng chứa dữ liệu.

Chứa dữ liệu ở đây không phải nhất thiết là có dữ liệu nhìn thấy mà có thể là đã từng ghi dữ liệu/ định dạng mà chưa Clear đi.

Giải thích chi tiết hơi dài dòng.
Bạn làm ví dụ như này:
Mở file Excel mới hoàn toàn.
Nhấn Ctrl + End => tới đâu?
Nhập vào G10 là số 1, enter rồi lại Delete đi.
Nhấn Ctrl + Home, rồi nhấn Ctrl + End => tới đâu.
--> Tự rút kết luận.

Đại khái thế.

 

[chothadiem]

Ctrl + End: Nhảy tới cell là giao điểm của Row và Column cuối cùng chứa dữ liệu.

Chứa dữ liệu ở đây không phải nhất thiết là có dữ liệu nhìn thấy mà có thể là đã từng ghi dữ liệu/ định dạng mà chưa Clear đi.

Giải thích chi tiết hơi dài dòng.
Bạn làm ví dụ như này:
Mở file Excel mới hoàn toàn.
Nhấn Ctrl + End => tới đâu?
Nhập vào G10 là số 1, enter rồi lại Delete đi.
Nhấn Ctrl + Home, rồi nhấn Ctrl + End => tới đâu.
--> Tự rút kết luận.

Đại khái thế.

Em cảm ơn thầy!
Vậy để xóa được vùng đã từng ghi dữ liệu/ định dạng thì vào đâu để xóa vậy ạ!
có phải là cái "Clear All" không thưa thầy?
Em đã thử "Clear All" nhưng không đúng.
Như ở trên thầy đã làm cách nào để giới hạn lại bảng tính là vùng bảng tính được giới hạn bởi ô AE145 và đã xóa bớt vùng bảng tính ban đầu đi?

 

[PacificPR]

Em cảm ơn thầy!
Vậy để xóa được vùng đã từng ghi dữ liệu/ định dạng thì vào đâu để xóa vậy ạ!
có phải là cái "Clear All" không thưa thầy?
Em đã thử "Clear All" nhưng không đúng.
Như ở trên thầy đã làm cách nào để giới hạn lại bảng tính là vùng bảng tính được giới hạn bởi ô AE145 và đã xóa bớt vùng bảng tính ban đầu đi?

Clear là là dầu gội đầu. Clear All là dầu tắm

 

[chothadiem]

Clear là là dầu gội đầu. Clear All là dầu tắm

hỳ, mình xóa cột, xóa dòng, xóa nội dung, xóa định dạng, xóa tất cả nhưng vẫn không được, nó vẫn quay về giao nhau giữ cột và dòng ở chỗ đã bị xóa đó, ở trên thầy befaint đã xóa được.

 

[chothadiem]

Bạn xem file đính kèm nhé. Dùng tổ hợp phím Ctrl+Shift+E
Code:
Public Sub End_Row()
Dim row_i As Long
row_i = Sheet1.Range("A" & Rows.Count).End(xlUp).Row
Cells(row_i, "A").Select
End Sub

Cho em hỏi Có thể không sử dụng code được không ạ?

 

[viettho]

Cho em hỏi Có thể không sử dụng code được không ạ?

được nhé bạn
xem file đính kèm

 

[chothadiem]

được nhé bạn
xem file đính kèm

Vâng em cảm ơn anh, có cái này muốn hỏi anh thêm chút nữa:
Giả sử tại ô AI400 em lỡ tay gõ nội dung bất kỳ nào vào ô đó và sau đó xóa nội dung đó đi.
Tiếp đó thực hiện thao tác (Ctrl + End) thì sẽ di chuyển đến Ô AI400 mà không phải di chuyến đến ô AE145 như anh giúp!
Giờ có cách nào để nhấn (Ctrl + End) cho kết quả di chuyển đến ô AE145 mà không phải ô AI400
Ở bài #2 thầy befaint đã xóa kiểu gì đó (như trong trường hợp này xóa kiểu gì đó ở Ô AI400 ) để khi nhấn (Ctrl + End) di chuyển đến ô mong muốn là AE145

 

[viettho]

Vâng em cảm ơn anh, có cái này muốn hỏi anh thêm chút nữa:
Giả sử tại ô AI400 em lỡ tay gõ nội dung bất kỳ nào vào ô đó và sau đó xóa nội dung đó đi.
Tiếp đó thực hiện thao tác (Ctrl + End) thì sẽ di chuyển đến Ô AI400 mà không phải di chuyến đến ô AE145 như anh giúp!
Giờ có cách nào để nhấn (Ctrl + End) cho kết quả di chuyển đến ô AE145 mà không phải ô AI400
Ở bài #2 thầy befaint đã xóa kiểu gì đó (như trong trường hợp này xóa kiểu gì đó ở Ô AI400 ) để khi nhấn (Ctrl + End) di chuyển đến ô mong muốn là AE145

Nhấp chuột phải vào ô AI400 chọn Clear content

 

[chothadiem]

K

Nhấp chuột phải vào ô AI400 chọn Clear content

Không được anh, xóa bằng ( Clear content ) rồi nhưng khi ấn (Ctrl + End) vẫn di chuyển tới ô đó.

 

[Nhattanktnn]

K

Không được anh, xóa bằng ( Clear content ) rồi nhưng khi ấn (Ctrl + End) vẫn di chuyển tới ô đó.

Clear all đi, sau đó save rồi mở lại. Để file như vậy chưa tắt thì nó không có tác dụng

 

[chothadiem]

Clear all đi, sau đó save rồi mở lại. Để file như vậy chưa tắt thì nó không có tác dụng

Cảm ơn anh!

 

[be_09]

Không được anh, xóa bằng ( Clear content ) rồi nhưng khi ấn (Ctrl + End) vẫn di chuyển tới ô đó.

Trong Sheet TT 03, Excel nó hiểu đã sử dụng đến Cell WWO148, nếu bạn muốn di chuyển đến Cell AE145 thì thực hiện như sau:
- Xóa tất cả các cột trống bên phải: Chọn cột AF, nhấn Shift rồi kéo thanh cuộn sang phải chọn cột XFD và click phải chuột chọn Delete.
- Xóa tất cả các dòng trống bên dưới: Chọn dòng 146, nhấn Shift rồi kéo thanh cuộn xuống chọn dòng cuối cùng và click phải chuột chọn Delete.

 

[chothadiem]

Trong Sheet TT 03, Excel nó hiểu đã sử dụng đến Cell WWO148, nếu bạn muốn di chuyển đến Cell AE145 thì thực hiện như sau:
- Xóa tất cả các cột trống bên phải: Chọn cột AF, nhấn Shift rồi kéo thanh cuộn sang phải chọn cột XFD và click phải chuột chọn Delete.
- Xóa tất cả các dòng trống bên dưới: Chọn dòng 146, nhấn Shift rồi kéo thanh cuộn xuống chọn dòng cuối cùng và click phải chuột chọn Delete.

Em có vấn đề sau xin được nhờ thầy giúp thêm:
Tạo đoạn code di chuyển đến ô giao nhau của cột đầu tiên chứa dữ liệu (cột đầu tiên tính theo chiều từ trái sang) và dòng cuối cùng chứa dữ liệu (chỉ chứa dữ liệu chứ không tính đến định dạng ô), code này có tác dụng trên trên sheet hiện hành bất kỳ trong file excel.
Em có đoạn code sau được tạo giúp bởi các anh, chị trên GPE nhưng mỗi lần sử dựng code trên sheet nào đó phải đổi tên sheet., nhờ các anh, chị chỉnh sửa giúp em để code đáp ứng được vấn đề em nêu trên ạ! đoạn code như sau:

Public Sub End_Row()
Dim row_i As Long
row_i = Sheet1.Range("A" & Rows.Count).End(xlUp).Row
Cells(row_i, "A").Select
End Sub

Em cảm ơn thầy!

 

[HieuCD]

Em có vấn đề sau xin được nhờ thầy giúp thêm:
Tạo đoạn code di chuyển đến ô giao nhau của cột đầu tiên chứa dữ liệu (cột đầu tiên tính theo chiều từ trái sang) và dòng cuối cùng chứa dữ liệu (chỉ chứa dữ liệu chứ không tính đến định dạng ô), code này có tác dụng trên trên sheet hiện hành bất kỳ trong file excel.
Em có đoạn code sau được tạo giúp bởi các anh, chị trên GPE nhưng mỗi lần sử dựng code trên sheet nào đó phải đổi tên sheet., nhờ các anh, chị chỉnh sửa giúp em để code đáp ứng được vấn đề em nêu trên ạ! đoạn code như sau:

Public Sub End_Row()
Dim row_i As Long
row_i = Sheet1.Range("A" & Rows.Count).End(xlUp).Row
Cells(row_i, "A").Select
End Sub

Em cảm ơn thầy!

ActiveSheet.

 

[be_09]

Em có vấn đề sau xin được nhờ thầy giúp thêm:
Tạo đoạn code di chuyển đến ô giao nhau của cột đầu tiên chứa dữ liệu (cột đầu tiên tính theo chiều từ trái sang) và dòng cuối cùng chứa dữ liệu (chỉ chứa dữ liệu chứ không tính đến định dạng ô), code này có tác dụng trên trên sheet hiện hành bất kỳ trong file excel.
Em có đoạn code sau được tạo giúp bởi các anh, chị trên GPE nhưng mỗi lần sử dựng code trên sheet nào đó phải đổi tên sheet., nhờ các anh, chị chỉnh sửa giúp em để code đáp ứng được vấn đề em nêu trên ạ! đoạn code như sau:

Public Sub End_Row()
Dim row_i As Long
row_i = Sheet1.Range("A" & Rows.Count).End(xlUp).Row
Cells(row_i, "A").Select
End Sub

Em cảm ơn thầy!

Tôi không biết chọn Cell cuối với mục đích để làm gì? Nên chỉ đưa ra cái chung thôi.
1/ Chọn Cell có chứa dữ liệu cuối cùng cột A:

Sub ChonCellCuoi_CoDuLieu()
    ActiveSheet.Cells(10000, 1).End(xlUp).Select
End Sub

2/ Chọn Cell trống cuối cùng có chứa dữ liệu cột A:

Sub ChonCellTrong_CuoiCung()
    ActiveSheet.Cells(65536, 1).End(xlUp).Offset(1, 0).Select
End Sub

 

[VetMini]

Hàm nhận một tham số Optional là Sheet cần nhảy qua.

Bên trong hàm, nếu Sheet cần nhảy qua là trống thì làm việc trên sheet hiện hành. Nếu không trống thì activate sheet này.

 

[chothadiem]

Tôi không biết chọn Cell cuối với mục đích để làm gì? Nên chỉ đưa ra cái chung thôi.
1/ Chọn Cell có chứa dữ liệu cuối cùng cột A:

Sub ChonCellCuoi_CoDuLieu()
    ActiveSheet.Cells(10000, 1).End(xlUp).Select
End Sub

2/ Chọn Cell trống cuối cùng có chứa dữ liệu cột A:

Sub ChonCellTrong_CuoiCung()
    ActiveSheet.Cells(65536, 1).End(xlUp).Offset(1, 0).Select
End Sub

Dạ! em cảm ơn thầy!
Vậy để chọn ô giao nhau giữa cột chứa dữ liệu đầu tiên (tính từ trái sang ) và dòng cuối cùng chứa dữ liệu (chứa dữ liệu trong ô bất kỳ)

Tôi không biết chọn Cell cuối với mục đích để làm gì? Nên chỉ đưa ra cái chung thôi.
1/ Chọn Cell có chứa dữ liệu cuối cùng cột A:

Sub ChonCellCuoi_CoDuLieu()
    ActiveSheet.Cells(10000, 1).End(xlUp).Select
End Sub

2/ Chọn Cell trống cuối cùng có chứa dữ liệu cột A:

Sub ChonCellTrong_CuoiCung()
    ActiveSheet.Cells(65536, 1).End(xlUp).Offset(1, 0).Select
End Sub

Dạ! Nếu chọn ô cuối cùng trong cột chứa dữ liệu đầu tiên tính từ trái sang (Có thể là cột B hay C hoặc cột bất kỳ nào đó chứa dữ liệu) thì phải sửa đoạn code như thế nào vậy ạ?
Em cảm ơn thầy!

 

[chothadiem]

Dạ! em cảm ơn thầy!
Vậy để chọn ô giao nhau giữa cột chứa dữ liệu đầu tiên (tính từ trái sang ) và dòng cuối cùng chứa dữ liệu (chứa dữ liệu trong ô bất kỳ)

Dạ! Nếu chọn ô cuối cùng trong cột chứa dữ liệu đầu tiên tính từ trái sang (Có thể là cột B hay C hoặc cột bất kỳ nào đó chứa dữ liệu) thì phải sửa đoạn code như thế nào vậy ạ?
Em cảm ơn thầy!

Anh HieuCD giúp em với ạ!

 

[be_09]

Dạ! em cảm ơn thầy!
Vậy để chọn ô giao nhau giữa cột chứa dữ liệu đầu tiên (tính từ trái sang ) và dòng cuối cùng chứa dữ liệu (chứa dữ liệu trong ô bất kỳ)

Dạ! Nếu chọn ô cuối cùng trong cột chứa dữ liệu đầu tiên tính từ trái sang (Có thể là cột B hay C hoặc cột bất kỳ nào đó chứa dữ liệu) thì phải sửa đoạn code như thế nào vậy ạ?
Em cảm ơn thầy!

Bạn diễn giải khó hiểu quá, vậy thử code sau nó sẽ chọn dữ liệu của Sheet1 từ tiêu đề A5 đến dòng cuối có chứa dữ liệu của cột F:

Sub ChonDataCotA_DenF()
Dim ws As Worksheet, DongCuoi As Long

Set ws = Worksheets("Sheet1")
DongCuoi = ws.Range("A" & ws.Rows.Count).End(xlUp).Row
    ws.Range("A5:F" & DongCuoi).Select
End Sub

Lưu ý:
- Muốn chọn dữ liệu bắt đầu là cột B5 thì thay A5 thành B5.
- Muốn chọn dữ liệu bắt đầu là cột B đến dòng cuối có chứa dữ liệu của cột K thì thay "A5:F" & DongCuoi thành "B5:K" & DongCuoi

 

[ptm0412]

Bạn diễn giải khó hiểu quá, vậy thử code sau nó sẽ chọn dữ liệu của Sheet1 từ tiêu đề A5 đến dòng cuối có chứa dữ liệu của cột F:

Diễn giải thế này:
cột đầu tiên có dữ liệu là cột B
Dòng cuối chứa dữ liệu là dòng 200, nằm ở cột D (hoặc cột bất kỳ)
Giao của cột B và dòng 200 là B200, dù cho B200 không có dữ liệu. Chắc không cần nhắc GIAO là gì.

 

[chothadiem]

Bạn diễn giải khó hiểu quá, vậy thử code sau nó sẽ chọn dữ liệu của Sheet1 từ tiêu đề A5 đến dòng cuối có chứa dữ liệu của cột F:

Sub ChonDataCotA_DenF()
Dim ws As Worksheet, DongCuoi As Long

Set ws = Worksheets("Sheet1")
DongCuoi = ws.Range("A" & ws.Rows.Count).End(xlUp).Row
    ws.Range("A5:F" & DongCuoi).Select
End Sub

Lưu ý:
- Muốn chọn dữ liệu bắt đầu là cột B5 thì thay A5 thành B5.
- Muốn chọn dữ liệu bắt đầu là cột B đến dòng cuối có chứa dữ liệu của cột K thì thay "A5:F" & DongCuoi thành "B5:K" & DongCuoi

Ở trên em diễn giải không rõ nghĩa:
Ở bài #23 em lại dùng từ chọn.
Em xin diễn giải lại:
Bảng tính của em gồm nhiều cột và hàng, nhiều dữ liệu. Em muốn code di chuyển nhanh con trỏ chuột đến ô giao nhau của cột đầu tiên chứa dữ liệu và dòng cuối cùng chứa dữ liệu (dữ liệu ở dòng này có thể nằm ở cột bất kỳ nào mà thỏa mãn là dòng cuối cùng).
Khi chạy code có tác dụng trên sheet hiện hành mà không phải thay đổi tên sheet mỗi lần chạy.
Thầy giúp em thêm một chút nữa nhé!
Em cảm ơn thầy!

 

[HieuCD]

Anh HieuCD giúp em với ạ!

Sub ChonDongCuoi_CotDau()
  With ActiveSheet
    .Cells(.UsedRange.Row + .UsedRange.Rows.Count - 1, .UsedRange.Column).Select
  End With
End Sub

 

[chothadiem]

Sub ChonDongCuoi_CotDau()
  With ActiveSheet
    .Cells(.UsedRange.Row + .UsedRange.Rows.Count - 1, .UsedRange.Column).Select
  End With
End Sub

Dạ! em cảm ơn anh!