Cần giúp viết Code chọn (Bôi đen) từ ô hiện hành đến ô ở dòng cuối cùng chứa dữ liệu (2 người xem)

[hung2412]

Xin chào các bạn GPE!
Nhờ các bạn giúp đỡ cho tôi vấn đề này với, cụ thể như sau:
Có Code nào chọn (Bôi đen) từ ô hiện hành (ActiveCell) đến ô đích có tọa độ (Dòng và cột) như sau:
- Dòng của ô đích bằng với dòng cuối cùng chứa dữ liệu.
- Cột của ô đích bằng với cột của ô hiện hành (ActiveCell).
Ví dụ:
+ Trường hợp ô hiện hành (ActiveCell) nằm trên dòng cuối cùng chứa dữ liệu: Ô hiện hành (ActiveCell) là H7. Dòng cuối cùng chứa dữ liệu là dòng 19 => Chọn (Bôi đen) từ ô H7 đến ô H19.
+ Trường hợp ô hiện hành (ActiveCell) nằm dưới dòng cuối cùng chứa dữ liệu: Ô hiện hành (ActiveCell) là G21. Dòng cuối cùng chứa dữ liệu là dòng 19 => Chọn (Bôi đen) từ ô G21 đến ô G19.
Mong các bạn GPE chỉ giáo!
Trân trọng cảm ơn!
P/s: Có 01 File đính kèm.

 

[Kiều Mạnh]

Xin chào các bạn GPE!
Nhờ các bạn giúp đỡ cho tôi vấn đề này với, cụ thể như sau:
Có Code nào chọn (Bôi đen) từ ô hiện hành (ActiveCell) đến ô đích có tọa độ (Dòng và cột) như sau:
- Dòng của ô đích bằng với dòng cuối cùng chứa dữ liệu.
- Cột của ô đích bằng với cột của ô hiện hành (ActiveCell).
Ví dụ:
+ Trường hợp ô hiện hành (ActiveCell) nằm trên dòng cuối cùng chứa dữ liệu: Ô hiện hành (ActiveCell) là H7. Dòng cuối cùng chứa dữ liệu là dòng 19 => Chọn (Bôi đen) từ ô H7 đến ô H19.
+ Trường hợp ô hiện hành (ActiveCell) nằm dưới dòng cuối cùng chứa dữ liệu: Ô hiện hành (ActiveCell) là G21. Dòng cuối cùng chứa dữ liệu là dòng 19 => Chọn (Bôi đen) từ ô G21 đến ô G19.
Mong các bạn GPE chỉ giáo!
Trân trọng cảm ơn!
P/s: Có 01 File đính kèm.

đơn giản Record Macro có liền code hay

 

[SA_DQ]

Bạn chạy macro này rồi tiếp tục đi nha:

Option Explicit
Sub Test()
  Dim Rng As Range
  
  Set Rng = Sheet1.UsedRange
  MsgBox Cells.Find("*", Rng(1, 1), , , xlByRows, xlPrevious).Row, , ActiveCell.Address
End Sub

 

[Kiều Mạnh]

Xin chào các bạn GPE!
Nhờ các bạn giúp đỡ cho tôi vấn đề này với, cụ thể như sau:
Có Code nào chọn (Bôi đen) từ ô hiện hành (ActiveCell) đến ô đích có tọa độ (Dòng và cột) như sau:
- Dòng của ô đích bằng với dòng cuối cùng chứa dữ liệu.
- Cột của ô đích bằng với cột của ô hiện hành (ActiveCell).
Ví dụ:
+ Trường hợp ô hiện hành (ActiveCell) nằm trên dòng cuối cùng chứa dữ liệu: Ô hiện hành (ActiveCell) là H7. Dòng cuối cùng chứa dữ liệu là dòng 19 => Chọn (Bôi đen) từ ô H7 đến ô H19.
+ Trường hợp ô hiện hành (ActiveCell) nằm dưới dòng cuối cùng chứa dữ liệu: Ô hiện hành (ActiveCell) là G21. Dòng cuối cùng chứa dữ liệu là dòng 19 => Chọn (Bôi đen) từ ô G21 đến ô G19.
Mong các bạn GPE chỉ giáo!
Trân trọng cảm ơn!
P/s: Có 01 File đính kèm.

vào đây đọc lại bài của HYen17 nè 6,7 năm rồi vẫn hay
đây nha

 

[hung2412]

đơn giản Record Macro có liền code hay

Cái khó là làm thế nào để xác định được dòng cuối cùng có chứa dữ liệu (Vì dữ liệu biến thiên không cố định) bạn ạ.

 

[Kiều Mạnh]

Cái khó là làm thế nào để xác định được dòng cuối cùng có chứa dữ liệu (Vì dữ liệu biến thiên không cố định) bạn ạ.

vậy thì bạn sử dụng code bài #3 đi

 

[hung2412]

Bạn chạy macro này rồi tiếp tục đi nha:

Option Explicit
Sub Test()
  Dim Rng As Range
  
  Set Rng = Sheet1.UsedRange
  MsgBox Cells.Find("*", Rng(1, 1), , , xlByRows, xlPrevious).Row, , ActiveCell.Address
End Sub

Cảm ơn bạn đã gợi ý. Tôi viết tiếp Code của bạn:

Sub Test()
  Dim i As Long
  Dim Rng As Range
  Set Rng = Sheet1.UsedRange
  i = Cells.Find("*", Rng(1, 1), , , xlByRows, xlPrevious).Row
  Range(ActiveCell, Cells(i, ActiveCell.Column)).Select
End Sub

 

[Kiều Mạnh]

Cảm ơn bạn đã gợi ý. Tôi viết tiếp Code của bạn:

Sub Test()
  Dim i As Long
  Dim Rng As Range
  Set Rng = Sheet1.UsedRange
  i = Cells.Find("*", Rng(1, 1), , , xlByRows, xlPrevious).Row
  Range(ActiveCell, Cells(i, ActiveCell.Column)).Select
End Sub

ngày nào mình cũng vào GPE học bài. đọc bài của bạn nhiều mình biết mà cứ vậy đi nha

 

[Quang_Hải]

Sub MoreThanCows()
Range(ActiveCell, Cells(65536, ActiveCell.Column).End(3)).Select
End Sub

 

[hung2412]

Sub MoreThanCows()
Range(ActiveCell, Cells(65536, ActiveCell.Column).End(3)).Select
End Sub

Code này chọn (Bôi đen) từ ô hiện hành đến ô cuối có dữ liệu tại chính cột đó, chứ không phải là dòng cuối cùng chứa dữ liệu bạn ơi. Ví dụ:
[TABLE="width: 200"]
[TR]
[TD="align: center"]45[/TD]
[TD="align: center"]

Ô hiện hành​

[/TD]
[/TR]
[TR]
[TD="align: center"] 45[/TD]
[TD="align: center"]553[/TD]
[/TR]
[TR]
[TD="align: center"]545[/TD]
[TD="align: center"]13[/TD]
[/TR]
[TR]
[TD="align: center"]53[/TD]
[TD="align: center"][/TD]
[/TR]
[TR]
[TD="align: center"]34[/TD]
[TD][/TD]
[/TR]
[/TABLE]

=> Chỉ chọn (Bôi đen) được từ ô hiện hành đến ô có số 13.
Theo đề bài thì chọn (Bôi đen) từ ô hiện hành đến ô có dữ liệu thuộc dòng cuối cùng (Ô có số 34 mới là ô thuộc dòng cuối cùng) => Chọn (Bôi đen) từ ô hiện hành đến ô bên phải của ô có số 34.

 

[Quang_Hải]

Sub MoreThanCows()
Range(ActiveCell, ActiveCell.SpecialCells(11)).Select
End Sub

 

[SA_DQ]

Tìm dòng cuối của vùng dữ liệu không có cách nào khả dĩ hơn fương thức FIND()

Vì nếu xài fương thức SpecialCells() sẽ tiềm ẩn nguy cơ sai khi CSDL chưa được lưu trước khi chạy macro.