Hò?i cà?ch tà?o funtion trong EXCEL ?'Ă??? copy ?'ươ??ng link

Hò?i càch tào funtion trong EXCEL 'Ă? copy 'ươ?ng link

Xin cho hò?i càch tào funtion trong EXCEL 'Ă? copy 'ươ?ng link qua cell bĂn cành.

Xin chà?o càc bàn, mì?nh muẮn tào mẶt lẶnh FUNTION trong EXCEL 'Ă? copy 'ươ?ng link Ă?n trong cell trước như hì?nh minh hòa dưới. Mì?nh chì? muẮn copy 'ươ?ng link thĂi và? khĂng cĂ?n TEXT.




Thù thẶt, nẮu là?m thù? cĂng copy bf?ng tay thì? cùfng 'ược, nhưng sẮ lượng hơi nhiĂ?u. NẮu cò mẶt lẶnh FUNCTION thì? tiẶn biẮt mẮy!

Xin càc bàn cò ai biẮt xin hướng dĂfn.

Thà?nh thẶt cà?m ơn.

Ừm, thú vị đấy.
Google được này:
http://www.vertex42.com/ExcelArticles/user-defined-functions.html
________________________
Mình đính kèm file mẫu vừa làm thử
http://www.zshare.net/download/57250571d49c7c/
Bấm Alt+F11, nhảy vào Module1 mà xem
_________________________
Code:
Function LinkAddress(cell As range, _
Optional default_value As Variant)
''Lists the Hyperlink Address for a Given Cell
''If cell does not contain a hyperlink, return default_value
If (cell.range("A1").Hyperlinks.Count <> 1) Then
LinkAddress = default_value
Else
LinkAddress = cell.range("A1").Hyperlinks(1).Address
End If
End Function

CĂi nĂy mĂnh cũng mĂĂn biết.
HĂ

Tha?nh thật ca?m ơn bạn notavailable.
Bạn co?n nhiệt ti?nh la?m thư? file mâfu va? upload lên nưfa.
Mi?nh đaf la?m được rô?i. Tha?nh thật ca?m ơn.
Tuy nhiên, khi muốn copy sheet đó qua book khác thi? module không hoạt động. Nhưng ma? tạo lại macro thi? cũng không khó.
Công nhận EXCEL tiện thiệt. Chắc pha?i học thêm vê? macro quá!