[Hỏi] Tạo Hyperlink đến ô chạy ngang theo cột (1 người xem)

[hungtin1997]

Chào mọi người em có 1 file Excel 32 sheet, em muốn tạo Hyper link bằng VBA tại ô A1 của mỗi Sheet về 1 Sheet đích, nhưng mỗi Sheet lại về 1 ô khác nhau như không phải luôn là A1 của sheet đích.
Mọi người hướng dẫn giúp em chỗ ô đích đến linh hoạt hơn được không ạ.
Ví dụ như: Sheets(1) thì link tới ô F1 của sheets("Dich"), Sheets(2) thì link tới ô I1 của sheets("Dich"), tức là cứ cách 2 cột lại có 1 ô là đích đến.
Code ban đầu đây ạ.

Sub Macro5()
    For i = 1 To 31
    Sheets(i).Select
    Range("A1").Select
    Selection.Hyperlinks(1).SubAddress = "'Dich'!A1"
    Next
End Sub

 

[bomberman211]

Sub Macro5()
    For i = 1 To 31
    Sheets(i).Select
    Range("A1").Select
    ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:="Dich!A1"
    Next
End Sub

Dùng chức năng record macro thì mình thấy nó chạy đúng đó, mặc dù chẳng hiểu lắm

 

[ndu96081631]

Chào mọi người em có 1 file Excel 32 sheet, em muốn tạo Hyper link bằng VBA tại ô A1 của mỗi Sheet về 1 Sheet đích, nhưng mỗi Sheet lại về 1 ô khác nhau như không phải luôn là A1 của sheet đích.
Mọi người hướng dẫn giúp em chỗ ô đích đến linh hoạt hơn được không ạ.
Ví dụ như: Sheets(1) thì link tới ô F1 của sheets("Dich"), Sheets(2) thì link tới ô I1 của sheets("Dich"), tức là cứ cách 2 cột lại có 1 ô là đích đến.
Code ban đầu đây ạ.

Sub Macro5()
    For i = 1 To 31
    Sheets(i).Select
    Range("A1").Select
    Selection.Hyperlinks(1).SubAddress = "'Dich'!A1"
    Next
End Sub

Thử vầy:

Sub Macro6()
  Dim i As Long
  For i = 1 To 31
    Sheets(i).Range("A1").Hyperlinks(1).SubAddress = "'Dich'!" & Range("C1").Offset(, i * 3).Address(0, 0)
  Next
End Sub

 

[hungtin1997]

Thử vầy:

Sub Macro6()
  Dim i As Long
  For i = 1 To 31
    Sheets(i).Range("A1").Hyperlinks(1).SubAddress = "'Dich'!" & Range("C1").Offset(, i * 3).Address(0, 0)
  Next
End Sub

OK Thầy ạ, thì ra vấn đề nằm ở chỗ "Range("C1").Offset(, i * 3).Address(0, 0)"
Em hỏi thêm được không ạ, SubAddress nó bắt buộc phải là style A1 chứ không phải R1C1 ha thầy. Vậy nên em không thể đưa i vào ô đích được vì i là số trong khi cột là A,B,C

 

[tigertiger]

OK Thầy ạ, thì ra vấn đề nằm ở chỗ "Range("C1").Offset(, i * 3).Address(0, 0)"
Em hỏi thêm được không ạ, SubAddress nó bắt buộc phải là style A1 chứ không phải R1C1 ha thầy. Vậy nên em không thể đưa i vào ô đích được vì i là số trong khi cột là A,B,C

Muốn đưa i vào thế nào,
Nếu là đưa vào subAddress thì cứ lấy địa chỉ của vùng theo R1C1 .Address là được

 

[hungtin1997]

Muốn đưa i vào thế nào,
Nếu là đưa vào subAddress thì cứ lấy địa chỉ của vùng theo R1C1 .Address là được

Vâng, ý là em không biết R1C1.address là chuyển từ R1C1 thành A1, giờ thì biết rồi ạ.

 

[A HOANG 620]

nhờ anh chị giúp em chỉnh đoạn code để xuất ra giá trị là hyperlink ạ. em cám ơn