Kết quả 1 đến 8 của 8

Chủ đề: Advance Filter với trường có siêu liên kết Hyperlink

  1. #1
    minhthuy53 Guest

    Advance Filter với trường có siêu liên kết Hyperlink

    Xin chào các anh/chị GPE,
    Em có câu hỏi sau, mong các anh/chị giúp.

    Trong dữ liệu của em, 1 trường dữ liệu có Hyperlink (mỗi bản ghi đều có Hyperlink).

    Em có sử dụng advanced filter (copy another location). Như thông lệ, các định dạng từ dữ liệu gốc sang hết dữ liệu kết quả. Nhưng các Hyperlink thì không thấy được.

    Vậy Hyperlink không được với advanced filter.

    Em cảm ơn các anh/chị.

  2. #2
    seominhthanhvip Guest
    Trích dẫn Gửi bởi Huy Vũ
    Xin chào các anh/chị GPE,
    Em có câu hỏi sau, mong các anh/chị giúp.

    Trong dữ liệu của em, 1 trường dữ liệu có Hyperlink (mỗi bản ghi đều có Hyperlink).

    Em có sử dụng advanced filter (copy another location). Như thông lệ, các định dạng từ dữ liệu gốc sang hết dữ liệu kết quả. Nhưng các Hyperlink thì không thấy được.

    Vậy Hyperlink không được với advanced filter.

    Em cảm ơn các anh/chị.
    Có file mới nói chiện được!

  3. #3
    1aido Guest
    Trích dẫn Gửi bởi hpkhuong
    Có file mới nói chiện được!
    Em xin gửi File đính kèm. File này có lấy ở đâu đó trên GPE, ví dụ lọc những người có chức vụ TP.
    Tại trường họ tên có Hyperlink, tuy nhiên sang đến dữ liệu kết quả thì Hyperlink không còn tác dụng nữa.
    em cảm ơn.

  4. #4
    khanhklhn2 Guest
    Trích dẫn Gửi bởi Huy Vũ
    Em xin gửi File đính kèm. File này có lấy ở đâu đó trên GPE, ví dụ lọc những người có chức vụ TP.
    Tại trường họ tên có Hyperlink, tuy nhiên sang đến dữ liệu kết quả thì Hyperlink không còn tác dụng nữa.
    em cảm ơn.
    Chuyển sang copy đi.


    Mã:
    Private Sub Worksheet_Change(ByVal Target As Range)
    Dim I As Long
    Application.ScreenUpdating = False
    If Not Intersect(Target, Range("I3:N3")) Is Nothing Then
        Rows("17:1000").Clear
        I = Application.Match(Target.Offset(-1).Value, Range("A2:G2"), 0)
            Range("A2", Range("A2").End(4)).Resize(, 7).AutoFilter I, Target.Value
            Range("A2", Range("A2").End(4)).Resize(, 7).Copy
            Range("A16").PasteSpecial xlPasteAll
            ActiveSheet.AutoFilterMode = False
            [A16].CurrentRegion.Borders.Value = 1
        If [B17] <> "" Then Range([B17], [B65536].End(3)).Offset(, -1) = [row(a:a)]
    End If
    Application.ScreenUpdating = True
    End Sub

  5. #5
    dakotachi Guest
    Trích dẫn Gửi bởi hpkhuong
    Chuyển sang copy đi.


    <div class="bbcode_container">
    <div class="bbcode_description">Code:
    </div>
    </div>
    Rất hay, nhưng lọc bị sai anh ạh.
    Ví dụ, lọc người có chức vụ TP và Mã KT là C -> Sai -> Không cơ động như Advanced Filter.

  6. #6
    Văn Chiến Guest
    Các a/c có giải pháp nào giúp e ko ạ?
    e cảm ơn!

  7. #7
    Ngày tham gia
    Aug 2015
    Bài viết
    0
    Trích dẫn Gửi bởi Huy Vũ
    Các a/c có giải pháp nào giúp e ko ạ?
    e cảm ơn!
    Bài này đơn giản quá mà. Bạn cố nghĩ thêm tí sẽ ra. Mình gợi ý cho nhé. Dùng AdvancedFilter lọc tại chỗ, sau đó mới dùng SpecialCells(12) để copy sang chỗ khác. Đơn giản thế thôi.

  8. #8
    huycon009 Guest
    Trích dẫn Gửi bởi Huy Vũ
    Rất hay, nhưng lọc bị sai anh ạh.
    Ví dụ, lọc người có chức vụ TP và Mã KT là C -> Sai -> Không cơ động như Advanced Filter.
    Làm theo ý tưởng gợi í ở #7 cho bạn

    Mã:
    Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, [I2].CurrentRegion) Is Nothing Then
       Rows("17:1000").Clear
       Sheet1.[A2:G10].AdvancedFilter 1, [I2].CurrentRegion
       Sheet1.[A2:G10].SpecialCells(12).Copy
       Sheet1.[A16].PasteSpecial xlPasteAll
       Sheet1.ShowAllData
        '[A16].CurrentRegion.Borders.Value = 1
       If [B17] <> "" Then Range([B17], [B65536].End(3)).Offset(, -1) = [row(a:a)]
    End If
    End Sub

Quyền viết bài

  • Bạn Không thể gửi Chủ đề mới
  • Bạn Không thể Gửi trả lời
  • Bạn Không thể Gửi file đính kèm
  • Bạn Không thể Sửa bài viết của mình
  •