Đến địa chỉ ô tham chiếu. (1 người xem)

[huuhien80]

File dữ liệu của em lớn và có nhiều sheets khác nhau, em đã viết được code tìm xuất ra địa chỉ các ô theo điều kiện mình cần.

EM đang vướng ở phần! Từ địa chỉ xuất ra (Ví dụ: ô C3 giá trị là $A$1 thì mình chỉ cần gõ Range([C3]).select thì nó sẽ nhảy đến đúng địa chỉ A1)
Nhưng đấy là cùng sheet. Còn khác sheets trong ô C4 có giá trị Sheet2!$A$1 (vì em xuất tên sheets & "!" & cells.address) thì bó tay..

Nhờ các anh giúp em! nếu ở C4 = Sheet2!A1 khi lựa chọn ô C4 chạy Macro nó đưa đúng đến địa chỉ ô A1 trong Sheet2 với.


Rất cảm ơn anh chị!

 

[SA_DQ]

Mình có gợi í cho bạn như sau:

Khai báo 2 biến kiểu chuổi như

Din ShName As String, MyAdd As String
Bạn dùng hàm cắt chuỗi để cắt chuỗi trong [C4] của bạn ra lảm 2 fần mỗi fần đem gán vô biến tương ứng. (Cần trước tiên là xác định vị trí của "!" trong chuỗi "Sheet2!$A$1" của bạn)

Sau đó bạn ới là nó ra thôi; Ví dụ như

ThisWorkBook.WorkSheets(ShName).Range(MyAdd).Select

 

[ndu96081631]

File dữ liệu của em lớn và có nhiều sheets khác nhau, em đã viết được code tìm xuất ra địa chỉ các ô theo điều kiện mình cần.

EM đang vướng ở phần! Từ địa chỉ xuất ra (Ví dụ: ô C3 giá trị là $A$1 thì mình chỉ cần gõ Range([C3]).select thì nó sẽ nhảy đến đúng địa chỉ A1)
Nhưng đấy là cùng sheet. Còn khác sheets trong ô C4 có giá trị Sheet2!$A$1 (vì em xuất tên sheets & "!" & cells.address) thì bó tay..

Nhờ các anh giúp em! nếu ở C4 = Sheet2!A1 khi lựa chọn ô C4 chạy Macro nó đưa đúng đến địa chỉ ô A1 trong Sheet2 với.


Rất cảm ơn anh chị!

Không thể select 1 vùng ở sheet khác nếu sheet ấy chưa được Active
Trường hợp này ta dùng Application.Goto nhé
Ví dụ Application.Goto Range([C4])

 

[huuhien80]

Không thể select 1 vùng ở sheet khác nếu sheet ấy chưa được Active
Trường hợp này ta dùng Application.Goto nhé
Ví dụ Application.Goto Range([C4])

Em mở 1 file mới ra viết code chỉ có ô C4 và địa chỉ Sheet2!$A$1 thì ok, nhưng không hiểu sao vẫn code Application.Goto Range([C4]) nhưng không hiểu sao đưa vào file chính nó hiện "Application-difined or object-difined error"

Với lại em thấy 1 điều là nếu mà mỗi lần mình muốn đến dòng nào lại vào sửa code thì quá mất công.

Anh xem có cách nào dạng như Application.Goto Range(Active.cells) (Đi đến địa chỉ của ô đang chọn không?


Cảm ơn anh nhiều.

 

[huuhien80]

dong = Selection.Row
cot = Selection.Column
Application.Goto Range(Cells(dong, cot))

Em đã giải quyết được vấn đề, Cảm ơn các anh nhiều

 

[ndu96081631]

Em mở 1 file mới ra viết code chỉ có ô C4 và địa chỉ Sheet2!$A$1 thì ok, nhưng không hiểu sao vẫn code Application.Goto Range([C4]) nhưng không hiểu sao đưa vào file chính nó hiện "Application-difined or object-difined error"
.

Thử sửa
Application.Goto Range([C4])
thành
Application.Goto Range(Range("C4"))
xem thế nào
Cuối cùng, nếu vẫn không làm được, hãy đưa file của bạn lên đây

Với lại em thấy 1 điều là nếu mà mỗi lần mình muốn đến dòng nào lại vào sửa code thì quá mất công.

Anh xem có cách nào dạng như Application.Goto Range(Active.cells) (Đi đến địa chỉ của ô đang chọn không?


Cảm ơn anh nhiều.

Thì vầy Application.Goto Range(ActiveCell.Value)