Viết hàm tự tạo lấy địa chỉ bỏ tên file (1 người xem)

[Miccpro]

Em muốn lấy địa chỉ 1 ô của sheet bất kỳ, nếu dùng các hàm có sẵn của excel thì hơi rườm rà. Em muốn có 1 hàm duy nhất lấy được tên sheet và địa chỉ ô, mong các anh chị giúp đỡ. Em xin cảm ơn

 

[phulien1902]

Em muốn lấy địa chỉ 1 ô của sheet bất kỳ, nếu dùng các hàm có sẵn của excel thì hơi rườm rà. Em muốn có 1 hàm duy nhất lấy được tên sheet và địa chỉ ô, mong các anh chị giúp đỡ. Em xin cảm ơn

Bạn thử với công thức lấy địa chỉ Cell hiện hành:
=ADDRESS(ROW(),COLUMN())
+ Lấy tên Sheet & tên Cell hiện hành

Sub abc()
    MsgBox " Ten Sheet la:" & ActiveSheet.Name
    MsgBox " Dia chi Cell la:" & ActiveCell.Address
End Sub

 

[Miccpro]

Em muốn lấy địa chỉ 1 ô của sheet bất kỳ

Bạn thử với công thức lấy địa chỉ Cell hiện hành:
=ADDRESS(ROW(),COLUMN())
+ Lấy tên Sheet & tên Cell hiện hành

Sub abc()
    MsgBox " Ten Sheet la:" & ActiveSheet.Name
    MsgBox " Dia chi Cell la:" & ActiveCell.Address
End Sub

Cảm ơn anh đã giúp đỡ, cái em muốn không phải là địa chỉ sheet, cell hiện hành mà là tạo 1 hàm mới tổng hợp 2 hàm ở ô C4, C5 để ra kết quả như C5 (Địa chỉ là bất kỳ 1 ô bất kỳ trong 1 sheet bất kỳ)

 

[Hau151978]

Cảm ơn anh đã giúp đỡ, cái em muốn không phải là địa chỉ sheet, cell hiện hành mà là tạo 1 hàm mới tổng hợp 2 hàm ở ô C4, C5 để ra kết quả như C5 (Địa chỉ là bất kỳ 1 ô bất kỳ trong 1 sheet bất kỳ)

Bạn khai báo hàm nhận đối số r kiểu range. Thuộc tính r.parent.name chứa tên sheet, r.address chứa địa chỉ.

 

[Miccpro]

Bạn khai báo hàm nhận đối số r kiểu range. Thuộc tính r.parent.name chứa tên sheet, r.address chứa địa chỉ.

Cảm ơn anh, em làm được rồi

Function ID(r As Range)
    ID = "'" & r.Parent.Name & "'!" & r.Address
End Function

Em xin hỏi thêm là đối với hàm này khi ta ấn tổ hợp phím "Ctrl + [" thì không đến được địa chỉ của đối số r . Có cách nào khắc phục điều này không ạ

 

[Ba Tê]

Cảm ơn anh đã giúp đỡ, cái em muốn không phải là địa chỉ sheet, cell hiện hành mà là tạo 1 hàm mới tổng hợp 2 hàm ở ô C4, C5 để ra kết quả như C5 (Địa chỉ là bất kỳ 1 ô bất kỳ trong 1 sheet bất kỳ)

Spoiler: Cái gì cũng bất kỳ

Chỉnh hàm của bạn:

Public Function ID(rCell As Range)
ID = "'" & Mid(rCell, InStr(rCell, "]") + 1, Len(rCell))
End Function

C6 = id(C4)

 

[ndu96081631]

Em xin hỏi thêm là đối với hàm này khi ta ấn tổ hợp phím "Ctrl + [" thì không đến được địa chỉ của đối số r . Có cách nào khắc phục điều này không ạ

Mục đích cuối cùng là để làm gì? "Nhảy qua nhảy lại" có tác dụng gì?

 

[Miccpro]

Mục đích cuối cùng là để làm gì? "Nhảy qua nhảy lại" có tác dụng gì?

Cũng không nhiều ý nghĩa lắm thầy ạ, em chỉ so sách hàm tự tạo và hàm có sẵn thì thấy khác biệt nên thắc mắc ạ