Cách tạo hyperlink tự động trong pivottable

[katakana]

Kính chào Anh/Chị,
Em muốn tạo hyperlink tự động trong pivotable nhưng không biết phải làm như thế nào. Mong các Anh chị chỉ giúp em.
Cụ thể:
Sheet "Pivot Table" được tạo từ sheet "02. TINH TRANG DON HANG".
Tại dòng số 14 của sheet "PivotTable" "04/2019" là (So DH1) được lấy từ cột F của sheet "02. TINH TRANG DON HANG". Cột F có chứa hyperlink của sheet "03. CHI TIET DH".
Nhờ Anh chị chỉ giúp em làm sao trong bảng PivotTalbe (So DH1) có thể link được giống như cột F của sheet "02. TINH TRANG DON HANG" ạ.
Em cảm ơn Anh/Chị nhiều ạ.
Trân trọng./.

142-1/2019​

 

[katakana]

Kính chào Anh/Chị,
Em muốn tạo hyperlink tự động trong pivotable nhưng không biết phải làm như thế nào. Mong các Anh chị chỉ giúp em.
Cụ thể:
Sheet "Pivot Table" được tạo từ sheet "02. TINH TRANG DON HANG".
Tại dòng số 14 của sheet "PivotTable" "04/2019" là (So DH1) được lấy từ cột F của sheet "02. TINH TRANG DON HANG". Cột F có chứa hyperlink của sheet "03. CHI TIET DH".
Nhờ Anh chị chỉ giúp em làm sao trong bảng PivotTalbe (So DH1) có thể link được giống như cột F của sheet "02. TINH TRANG DON HANG" ạ.
Em cảm ơn Anh/Chị nhiều ạ.
Trân trọng./.

142-1/2019​

Thực sự em đang rất cần ạ. Rất mong Anh/chị giúp em. Em xin hậu tạ ạ

 

[le thi thuy 3013]

sao k mở dc file của bạn nhỉ?

 

[LamNA]

Kính chào Anh/Chị,
Em muốn tạo hyperlink tự động trong pivotable nhưng không biết phải làm như thế nào. Mong các Anh chị chỉ giúp em.
Cụ thể:
Sheet "Pivot Table" được tạo từ sheet "02. TINH TRANG DON HANG".
Tại dòng số 14 của sheet "PivotTable" "04/2019" là (So DH1) được lấy từ cột F của sheet "02. TINH TRANG DON HANG". Cột F có chứa hyperlink của sheet "03. CHI TIET DH".
Nhờ Anh chị chỉ giúp em làm sao trong bảng PivotTalbe (So DH1) có thể link được giống như cột F của sheet "02. TINH TRANG DON HANG" ạ.
Em cảm ơn Anh/Chị nhiều ạ.
Trân trọng./.

142-1/2019​

Pivottable không có tạo được hyperlink bạn nhé, nó chỉ phân tích được số liệu ở dữ liệu nguồn.

 

[katakana]

Pivottable không có tạo được hyperlink bạn nhé, nó chỉ phân tích được số liệu ở dữ liệu nguồn.

Em tìm trên google có làm đc mà em không biết cách Anh ạ.

Bài đã được tự động gộp: 19/4/19

sao k mở dc file của bạn nhỉ?

Em gửi lại file chị xem giúp em ạ.

 

[LamNA]

Em tìm trên google có làm đc mà em không biết cách Anh ạ.

Bài đã được tự động gộp: 19/4/19

Em gửi lại file chị xem giúp em ạ.

Nó chỉ tác dụng với một tên miền nào đó thôi bạn nhé,

 

[katakana]

Nó chỉ tác dụng với một tên miền nào đó thôi bạn nhé,

Dạ vậy thì tiếc quá. Em cảm ơn Anh nhiều ạ.

 

[katakana]

Nó chỉ tác dụng với một tên miền nào đó thôi bạn nhé,

Internal Hyperlinks in pivot table (Excel 2010)

I have made a normal table where there are hyperlinks to other tabs of my excel file (so not to external internet websites) In the pivot table that is based on this table, I want to activate these hyperlinks. I have searched on the internet, but all the codes that are given are for external...

www.excelforum.com

Anh ơi em mới kiếm được trên web trường hợp giống của em, nhưng em gà mờ về VB quá em copy qua file em mà nó không chạy.
Nhờ Anh giúp em với ạ.
Em cảm ơn Anh nhiều ạ.

 

[be_09]

Internal Hyperlinks in pivot table (Excel 2010)

I have made a normal table where there are hyperlinks to other tabs of my excel file (so not to external internet websites) In the pivot table that is based on this table, I want to activate these hyperlinks. I have searched on the internet, but all the codes that are given are for external...

www.excelforum.com

Anh ơi em mới kiếm được trên web trường hợp giống của em, nhưng em gà mờ về VB quá em copy qua file em mà nó không chạy.
Nhờ Anh giúp em với ạ.
Em cảm ơn Anh nhiều ạ.

Sheet 02. TINH TRANG DON HANG bạn sử dụng Insert > HyperLink thì mới có thể làm được (tôi dự đoán chứ chưa thử), chứ dùng hàm HyperLink thì thua.

 

[katakana]

Sheet 02. TINH TRANG DON HANG bạn sử dụng Insert > HyperLink thì mới có thể làm được (tôi dự đoán chứ chưa thử), còm dùng hàm HyperLink thì thua.

Dạ chú ơi nếu con sử dụng piviottable trên cùng sheet đó theo cách chú nói thì Okie. Tuy nhiên, còn dùng piviottable sang sheet khác thì nó báo lỗi "Method 'Range' of Object '_WorkSheet' failed.
Nhờ chú giúp con với ạ.
Em cảm ơn chú.

Option Explicit

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

    Dim pvtTable As PivotTable
    Dim strSheetname As String
    Dim strCellAddress As String
    Dim vntMatch As Variant
    
    If Target.Cells.Count = 1 Then
        For Each pvtTable In Target.Parent.PivotTables
            If Not Intersect(pvtTable.RowRange, Target) Is Nothing Then
              
                vntMatch = Application.Match(Target.Value, Range("'02. TINH TRANG DON HANG'!E:E"), 0)
                If Not IsError(vntMatch) Then
                    strSheetname = Split(Range("'02. TINH TRANG DON HANG'!E:E").Cells(vntMatch, 1).Hyperlinks(1).SubAddress, "!")(0)
                    strSheetname = Replace(strSheetname, "'", "")
                    strCellAddress = Split(Range("'02. TINH TRANG DON HANG'!E:E").Cells(vntMatch, 1).Hyperlinks(1).SubAddress, "!")(1)
                    On Error Resume Next
                    Application.Goto Worksheets(strSheetname).Range(strCellAddress), True
                    On Error GoTo 0
                End If
            End If
        Next
    End If
End Sub

 

[ptm0412]

Code của trang Excel forum phức tạp quá mà cũng chẳng gắn được hyperlink, viết đơn giản thôi:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Found As Range, Itm
If Not Intersect(Target, [A5:A250]) Is Nothing And Target.Count = 1 Then
    For Each Itm In Sheet4.PivotTables(1).PivotFields("So DH1").PivotItems
        If Target.Value = Itm Then
            Sheet7.Select
            On Error Resume Next
            Set Found = Sheet7.Range("C5:C10000").Find(Target.Value)
            Found.Select
            Exit For
        End If
    Next
End If
End Sub

 

[katakana]

Code của trang Excel forum phức tạp quá mà cũng chẳng gắn được hyperlink, viết đơn giản thôi:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Found As Range, Itm
If Not Intersect(Target, [A5:A250]) Is Nothing And Target.Count = 1 Then
    For Each Itm In Sheet4.PivotTables(1).PivotFields("So DH1").PivotItems
        If Target.Value = Itm Then
            Sheet7.Select
            On Error Resume Next
            Set Found = Sheet7.Range("C5:C10000").Find(Target.Value)
            Found.Select
            Exit For
        End If
    Next
End If
End Sub

Dạ em cảm ơn Anh nhiều ạ. Anh ơi, Anh cho em hỏi nếu em muốn tại bảng Pivot nếu "So DH1" chưa có hyperlink (trong sheet "03. CHI TIET DH" chưa có số đơn hàng) thì khi click không link tới sheet "03. CHI TIET DH" thì làm thế nào ạ?
Em cảm ơn Anh nhiều ạ