Dùng câu lệnh gì để trả về địa chỉ của 1 Range

[597335]

Giả sử trong file của em có câu lệnh đại ý là

Set Rng = [A6].CurrentRegion
    Set BlankRng = Rng.Offset(, 3).Resize(, 1).SpecialCells(4)

Em muốn biết Range (BlankRng) nó là địa chỉ nào trên bảng tính thì dùng câu lệnh gì

(ví dụ kết quả là hiện ra MsgBox có nội dung địa chỉ của BlankRng là A6:B12)

 

[ptlong04x1]

Giả sử trong file của em có câu lệnh đại ý là

Set Rng = [A6].CurrentRegion
    Set BlankRng = Rng.Offset(, 3).Resize(, 1).SpecialCells(4)

Em muốn biết Range (BlankRng) nó là địa chỉ nào trên bảng tính thì dùng câu lệnh gì

(ví dụ kết quả là hiện ra MsgBox có nội dung địa chỉ của BlankRng là A6:B12)

Dùng BlankRng.Address bạn

 

[ndu96081631]

Giả sử trong file của em có câu lệnh đại ý là

Set Rng = [A6].CurrentRegion
    Set BlankRng = Rng.Offset(, 3).Resize(, 1).SpecialCells(4)

Em muốn biết Range (BlankRng) nó là địa chỉ nào trên bảng tính thì dùng câu lệnh gì

(ví dụ kết quả là hiện ra MsgBox có nội dung địa chỉ của BlankRng là A6:B12)

Thử câu lệnh MsgBox BlankRng.Address xem
(mà làm sao nó lại là A6:B12 được cơ chứ?)

 

[597335]

mà làm sao nó lại là A6:B12 được cơ chứ

Đấy là em giả sử ah, thực tế nó ra là D812, D1418
-------------

Em chưa hiểu lắm về SpecialCells(4) nó là cái gì mà file đính kèm Code của em là

Sub tt()
Set Rng = [A6].CurrentRegion
    Set BlankRng = Rng.Offset(, 2).Resize(, 1).SpecialCells(4)
    MsgBox BlankRng.Address
End Sub

nó báo lỗi

trong khi đó sửa dòng thứ 3 thành

Set BlankRng = Rng.Offset(, 3).Resize(, 1).SpecialCells(4)

lại OK

 

[ndu96081631]

mà làm sao nó lại là A6:B12 được cơ chứ

Đấy là em giả sử ah, thực tế nó ra là D812, D1418
-------------

Em chưa hiểu lắm về SpecialCells(4) nó là cái gì mà file đính kèm Code của em là

Sub tt()
Set Rng = [A6].CurrentRegion
    Set BlankRng = Rng.Offset(, 2).Resize(, 1).SpecialCells(4)
    MsgBox BlankRng.Address
End Sub

nó báo lỗi

trong khi đó sửa dòng thứ 3 thành

Set BlankRng = Rng.Offset(, 3).Resize(, 1).SpecialCells(4)

lại OK

SpecialCells(4) là lấy các cell rổng
Mà [A6].CurrentRegion tương đương với việc đặt con trỏ tại A6 rồi bấm tổ hợp phím Ctrl + Shift + * ---> nó cho kết quả là Range("A610")
Sau khi Offset(, 2) rồi Resize(, 1), Range("A610") trở thành Range("C6:C10")
Trong vùng Range("C6:C10") chẳng có cell nào rổng cả nên báo lỗi là phải rồi
Nếu Offset(, 3) rồi Resize(, 1) thì Range("A610") sẽ trở thành Range("D610") ---> Vùng này có cell rổng nên chẳng báo lỗi gì