bebo021999
Thành viên gạo cội
- Tham gia
- 26/1/11
- Bài viết
- 5,950
- Được thích
- 8,742
- Giới tính
- Nam
- Nghề nghiệp
- GPE
Bạn quét chọn 1 vùng rồi chạy code này, xem kết quả in ra trong cửa sổ Immediate Window nhé:
PHP:
Sub test()
Dim rng
rng = Selection.Value
'In dong + cot + dia chi ô dau
Debug.Print Selection.Cells(1, 1).Address
Debug.Print Selection.Cells(1, 1).Row
Debug.Print Selection.Cells(1, 1).Column
'In dong + cot + dia chi ô cuoi
Debug.Print Selection.Cells(UBound(rng), UBound(rng, 2)).Address
Debug.Print Selection.Cells(UBound(rng), UBound(rng, 2)).Row
Debug.Print Selection.Cells(UBound(rng), UBound(rng, 2)).Column
End Sub
[/code]