LINK CÁC SHEET BẰNG BVA (1 người xem)

[Behane]

nhờ mọi người giúp mình làm sheet tổng link các sheet, để khi vào 1 file tổng thì nó có hyperlink chỉ cần bấm vào là dc.

 

[BuiQuangThuan]

Sao ban không làm 1 form in thôi. xong có 1 sheet In. Chọn công ty nào thì nó sẽ tạo ra form của công ty đó thôi. chứ nhiều sheet thế này khó kiểm soát à

 

[DeTong]

Không khuyến khích dùng trong file của bạn...
Rất tiện cho các file nhiều sheet khác cấu trúc hay các file thường delete, add, rename sheet...
Thử đoạn code này xem sao ?!

Sub CreateIndexSheetAndAddLinks()
    Dim ws As Worksheet
    Dim indexSheet As Worksheet
    Dim i As Integer
    Dim lastRow As Long
   
    ' Ki?m tra xem sheet "Index" dã t?n t?i chua
    On Error Resume Next
    Set indexSheet = ThisWorkbook.Sheets("Index")
    On Error GoTo 0
   
    If Not indexSheet Is Nothing Then
        ' Xóa sheet "Index" n?u dã t?n t?i
        Application.DisplayAlerts = False
        indexSheet.Delete
        Application.DisplayAlerts = True
    End If
   
    ' T?o sheet "Index" m?i
    Set indexSheet = ThisWorkbook.Sheets.Add
    indexSheet.Name = "Index"
   
    ' Thi?t l?p tiêu d?
    indexSheet.Cells(1, 1).Value = "Sheet Name"
    indexSheet.Cells(1, 2).Value = "Link"
   
    ' Li?t kê tên các sheet và t?o liên k?t
    i = 2
    For Each ws In ThisWorkbook.Sheets
        If ws.Name <> "Index" Then
            indexSheet.Cells(i, 1).Value = ws.Name
            indexSheet.Hyperlinks.Add Anchor:=indexSheet.Cells(i, 2), Address:="", SubAddress:="'" & ws.Name & "'!A1", TextToDisplay:="Go to " & ws.Name
           
            ' Thêm liên k?t "Back to Index" vào ô A1 c?a m?i sheet
            ws.Hyperlinks.Add Anchor:=ws.Cells(1, 1), Address:="", SubAddress:="Index!A1", TextToDisplay:="Back to Index"
           
            i = i + 1
        End If
    Next ws
   
    ' Ð?nh d?ng b?ng
    With indexSheet.Cells(1, 1).CurrentRegion
        .Borders.LineStyle = 1
        .EntireColumn.AutoFit
    End With
End Sub

 

[SA_DQ]

nhờ mọi người giúp mình làm sheet tổng link các sheet, để khi vào 1 file tổng thì nó có hyperlink chỉ cần bấm vào là dc.

Bạn đang cần có những chú ý, dù là nhỏ nhất:
→ Đầu câu nên viết hoa;
→ Một khi đã muốn xài VBA thì: Tên các trang tính không nên là tiếng Việt có dâu;
Mà nên, ví dụ là: 'DaTrang, AnBaoVy, FucAnh,. . . .
→ Ở mệnh đề cuối trong câu viết của bạn có 1 số từ xài tối nghĩa với mình!
. . . . .

 

[87kilua]

Bạn xem đúng ý chưa. xài tạm vậy