Lấy địa chỉ của Cells trong địa chỉ Areas ? (1 người xem)

[TrungChinhs]

Chào các bạn ! Tôi có một vấn đề cần được sự giúp đỡ của các bạn:

Đó là: Làm thế nào lấy được địa chỉ của Cells trong địa chỉ Areas ?

vd: từ câu lệnh .Areas(.Areas.Count).Address tôi có được kết quả là $J$20:$J$26.

Nếu mảng lớn hơn 1 ô thì trong .Areas(.Areas.Count).Address luôn có địa chỉ của ô đầu và ô cuối của mảng. Tôi muốn có câu lệnh kiểu ...gì gì đó... .Areas(.Areas.Count).Address để có được kết quả là $J$26

Bạn nào biết viết giúp tôi câu lệnh này. Thanks!

 

[ndu96081631]

Chào các bạn ! Tôi có một vấn đề cần được sự giúp đỡ của các bạn:

Đó là: Làm thế nào lấy được địa chỉ của Cells trong địa chỉ Areas ?

vd: từ câu lệnh .Areas(.Areas.Count).Address tôi có được kết quả là $J$20:$J$26.

Nếu mảng lớn hơn 1 ô thì trong .Areas(.Areas.Count).Address luôn có địa chỉ của ô đầu và ô cuối của mảng. Tôi muốn có câu lệnh kiểu ...gì gì đó... .Areas(.Areas.Count).Address để có được kết quả là $J$26

Bạn nào biết viết giúp tôi câu lệnh này. Thanks!

Thì anh thêm 1 With nữa:

Sub UsRng()
    With Cells.SpecialCells(2)
      With .Areas(.Areas.Count)
        MsgBox .Cells(.Rows.Count, .Columns.Count).Address
      End With
    End With
End Sub

Code này luôn lấy địa chỉ cell cuối cùng của Areas cuối cùng

 

[TrungChinhs]

Thì anh thêm 1 With nữa:

Sub UsRng()
    With Cells.SpecialCells(2)
      With .Areas(.Areas.Count)
        MsgBox .Cells(.Rows.Count, .Columns.Count).Address
      End With
    End With
End Sub

Code này luôn lấy địa chỉ cell cuối cùng của Areas cuối cùng

@ ndu Code này thì OK rồi nhưng khi ghép vào một câu lệnh khác thì hơi khó vì vậy tôi mới tìm cách lấy địa chỉ của Cells trong địa chỉ của mảng (nếu làm thủ công thì lấy kết quả ra ô nào đó rồi dùng hàm Mid hoặc Right tách lấy)

 

[ndu96081631]

@ ndu Code này thì OK rồi nhưng khi ghép vào một câu lệnh khác thì hơi khó vì vậy tôi mới tìm cách lấy địa chỉ của Cells trong địa chỉ của mảng (nếu làm thủ công thì lấy kết quả ra ô nào đó rồi dùng hàm Mid hoặc Right tách lấy)

Vậy anh có thể đặt 1 biến tạm cho nó là được rồi
Nếu anh dùng các hàm xử lý chuối đề tách, đương nhiên là dựa vào dấu ":" ---> Vậy anh phải coi chừng trường hợp Areas cuối là 1 cell, khi ấy sẽ không có dấu ":" đâu nha

 

[phamduylong]

từ câu lệnh .Areas(.Areas.Count).Address có được kết quả là $J$20:$J$26. Muốn tách $J$226 có thể dùng kết hợp hợp hàm Instr tìm vị trí dấu : và dùng hàm Mid tách ra

With Selection
  myAddress = Mid(.Areas(.Areas.Count).Address, InStr(1, .Areas(.Areas.Count).Address, ":") + 1)
End With