Nhờ tìm hàng đầu tiên và cuối cùng của selection

[sown.nuce]

em mới tìm hiểu được 1 chút vba, có 1 dự án em cần như sau: có 1 ô em đã merge (A1:A20). Giờ em chọn ô đó thì kết quả khi chạy hàm trả về cho 2 giá trị là 1 và 20 ạ. Rất mong ace diễn đàn giúp đỡ ạ

 

[Phuocam]

em mới tìm hiểu được 1 chút vba, có 1 dự án em cần như sau: có 1 ô em đã merge (A1:A20). Giờ em chọn ô đó thì kết quả khi chạy hàm trả về cho 2 giá trị là 1 và 20 ạ. Rất mong ace diễn đàn giúp đỡ ạ

Thử

Public Sub RowsSelect()
Dim firstRow  As Long
Dim lastRow As Long
Dim rng As Range
Set rng = Selection
firstRow = rng.Cells(1, 1).Row
lastRow = firstRow + rng.Rows.Count - 1
MsgBox "First row is: " & firstRow & ChrW(10) & "Last Row is: " & lastRow
End Sub

 

[tigertiger]

em mới tìm hiểu được 1 chút vba, có 1 dự án em cần như sau: có 1 ô em đã merge (A1:A20). Giờ em chọn ô đó thì kết quả khi chạy hàm trả về cho 2 giá trị là 1 và 20 ạ. Rất mong ace diễn đàn giúp đỡ ạ

Hàng đầu tiên
Range.Row()
Hàng cuối thì
Range.Row()+Range.Rows.Count-1

trong đó: Range là vùng chọn

 

[be_09]

em mới tìm hiểu được 1 chút vba, có 1 dự án em cần như sau: có 1 ô em đã merge (A1:A20). Giờ em chọn ô đó thì kết quả khi chạy hàm trả về cho 2 giá trị là 1 và 20 ạ. Rất mong ace diễn đàn giúp đỡ ạ

Góp ý cho bạn:
1/ Bạn mới học VBA thì nên đính kèm File để khi có thành viên giúp thì bạn sẽ thuận tiện trong việc hỏi và người giúp giải thích code bạn sẽ dễ hiểu hơn.
2/ Với câu hỏi tìm hàng đầu tiên và cuối cùng thì quá chung chung. Phương pháp chọn thì có rất nhiều cách, chọn dữ liệu thì làm gì tiếp theo, mỗi thành viên sẽ có 1 cách giải quyết vấn đề khác nhau. Nếu có giúp thì bạn cũng sẽ khó khăn trong việc tự giải quyết vấn đề của mình.

 

[VetMini]

Mới tìm hiểu về VBA thì tốt hơn hết là quên ba cái chuyện merged cells đi.
Nó là mầm mống của lỗi liếc sai siếc tùm lum.
Bao giờ tự tin là mình thuộc về lớp "nâng cao" rồi hãy tính tiếp.