Nhờ dùng VBA để add 1 hyperlink vào 1 cell

[kietbui]

Vấn đề đặt ra:
- ô a 1 : BAONGUOILAODONG.COM
- Ô a 2 :http://www.nld.com.vn/tintuc/home/ ( địa chỉ trang web của báo Người Lao Động )
Mình muốn khi chạy code thì nó tự động add địa chỉ từ ô a2 này vào ô a1 bằng hyper link để sau đó mình copy ô a1 có chưa hyper link vào trong data của chương trình để vào thẳng các trang web từ e-xcel
( làm bằng tay thì mình làm được bằng cách click chuột phải chọn -hyperlink rồi copy nội dung ô2 vào address, còn sử dụng ô phụ dùng hàm hyperlink thì khi copy đi chổ khác do địa chỉ thay đổi làm công thức không còn đúng, nếu ghi lại bằng macro thì nó vẫn giữ lại tên và địa chỉ cũ như sau

ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:= _
"http://www.nld.com.vn/tintuc/home/", TextToDisplay:="BÁO NGU?I LAO Ð?NG"
Các Bạn có thể giúp mình thay Adress và Texttodisplay bằng nội dung ô a1 và ô a2 để mỗi lần mình thay đổi tên web mới và địa chỉ mới nó đều nhận được
Cám ơn nhiều!

 

[anhtuan1066]

Bạn làm dc bằng tay thì hãy record macro đi... nó sẽ cho kết quã đại khái như sau:

Sub Macro4()
'
' Macro4 Macro
' Macro recorded 29/01/2008 by AnhTuan
'
'
        ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:= _
        "http://www.nld.com.vn/tintuc/home/", TextToDisplay:="NGUOILAODONG"
End Sub

Vậy bạn sẽ sữa lại code thành:

Sub AddHPL()
  ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:= _
  Range("A2").Value, TextToDisplay:=Selection.Value
End Sub

 

[USB1394]

Code tạo Hyperlink bị lỗi khi xử lý file JPG

em viết code để tạo Hyperlink liên kết dữ liệu . Nếu liên kết với file JPG thì bị lỗi (ko mở đc) còn các file khác thì bình thường ( ở đây em lấy ví dụ lad file DOC , TXT ) . Có đính kiềm file lỗi , mong nhận đc sự giúp đỡ của các Bạn , xin cám ơn

 

[LA THANH]

Xin hỏi có cách nào để chuyển công thức trong cột C thành giá trị nhưng vẫn giữ được HYPERLINK trong cell không?
Hoặc có code VBA để gán HYPERLINK trực tiếp vào Cell như trong cột B?
Các Bạn giúp mình nhé. danh sách số liệu rất dài mà làm thủ công thì lâu quá.
Cảm ơn nhiều.

 

[huuthang_bd]

Xin hỏi có cách nào để chuyển công thức trong cột C thành giá trị nhưng vẫn giữ được HYPERLINK trong cell không?

Copy sang word sau đó copy ngược lại excel.