Cách dùng VBA để tách Hyperlink (1 người xem)

[jimmie]

Chào mọi người,

[COLOR=#000000][FONT=Arial]Sub ExtractHyperlink()[/FONT][/COLOR]
[COLOR=#000000][FONT=Arial]    Dim HL As Hyperlink[/FONT][/COLOR]
[COLOR=#000000][FONT=Arial]    For Each HL In ActiveSheet.Hyperlinks[/FONT][/COLOR]
[COLOR=#000000][FONT=Arial]        HL.Range.Offset(0, 1).Value = HL.Address[/FONT][/COLOR]
[COLOR=#000000][FONT=Arial]    Next[/FONT][/COLOR]
[COLOR=#000000][FONT=Arial]End Sub[/FONT][/COLOR][COLOR=#000000][FONT=Arial]
[/FONT][/COLOR]

Từ Hyperlink bên cột F, em sưu tầm được đoạn VBA như trên để xuất ra cột G địa chỉ của Hyperlink đó. Nhưng nếu em muốn xuất ra ở một cột bất kì do em chỉ định, ví dụ như cột M chẳng hạn. Thì em phải làm sao?

 

[huuthang_bd]

Chào mọi người,

View attachment 140978

[COLOR=#000000][FONT=Arial]Sub ExtractHyperlink()[/FONT][/COLOR]
[COLOR=#000000][FONT=Arial]    Dim HL As Hyperlink[/FONT][/COLOR]
[COLOR=#000000][FONT=Arial]    For Each HL In ActiveSheet.Hyperlinks[/FONT][/COLOR]
[COLOR=#000000][FONT=Arial]        HL.Range.Offset(0, 1).Value = HL.Address[/FONT][/COLOR]
[COLOR=#000000][FONT=Arial]    Next[/FONT][/COLOR]
[COLOR=#000000][FONT=Arial]End Sub[/FONT][/COLOR][COLOR=#000000][FONT=Arial]
[/FONT][/COLOR]

Từ Hyperlink bên cột F, em sưu tầm được đoạn VBA như trên để xuất ra cột G địa chỉ của Hyperlink đó. Nhưng nếu em muốn xuất ra ở một cột bất kì do em chỉ định, ví dụ như cột M chẳng hạn. Thì em phải làm sao?

Bạn sửa lại như vầy

Sub ExtractHyperlink()
    Dim HL As Hyperlink
    For Each HL In ActiveSheet.Hyperlinks
        ActiveSheet.Cells(HL.Range.Row, "M").Value = HL.Address
    Next
End Sub

 

[vu_tuan_manh_linh]

Chào mọi người,

View attachment 140978

[COLOR=#000000][FONT=Arial]Sub ExtractHyperlink()[/FONT][/COLOR]
[COLOR=#000000][FONT=Arial]    Dim HL As Hyperlink[/FONT][/COLOR]
[COLOR=#000000][FONT=Arial]    For Each HL In ActiveSheet.Hyperlinks[/FONT][/COLOR]
[COLOR=#000000][FONT=Arial]        HL.Range.Offset(0, 1).Value = HL.Address[/FONT][/COLOR]
[COLOR=#000000][FONT=Arial]    Next[/FONT][/COLOR]
[COLOR=#000000][FONT=Arial]End Sub[/FONT][/COLOR][COLOR=#000000][FONT=Arial]
[/FONT][/COLOR]

Từ Hyperlink bên cột F, em sưu tầm được đoạn VBA như trên để xuất ra cột G địa chỉ của Hyperlink đó. Nhưng nếu em muốn xuất ra ở một cột bất kì do em chỉ định, ví dụ như cột M chẳng hạn. Thì em phải làm sao?

Bạn nhìn hàm offset(), thấy chỉ số 0 và 1. Chỉ số 0 nghĩa là bạn gán kết quả cùng hàng với vùng tham chiếu. 1 nghĩa là bạn gán kết quả ngay cột thứ 1 bên phải vùng tham chiếu. Muốn gán đến vùng nào thì bạn hiệu chỉnh chỉ số 1 thành 2,3,4... tùy bạn!!