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

Chủ đề: Viết code tự động Hyperlink từ cell có tọa độ cho trước để Hyperlink đến Sheet khác

  1. #1
    kevin_cn08b Guest

    Viết code tự động Hyperlink từ cell có tọa độ cho trước để Hyperlink đến Sheet khác

    Kính nhờ ACE diễn dàn GPE viết code để tự động Hyperlink từ cell Sheet có tọa độ tên và Sheet khác đã nhập trước như sau:

    Ví dụ: tại Sheet1 Cột B Cột C
    Sheet2 b3
    Sheet3 d4
    Sheet4 e5
    Nhờ ACE diễn dàn GPE viết code căn cứ vào giá trị tại nhập tại cột B và cột C để tự động Hyperlink đến tọa độ và Sheet tương ứng. Chẳng hạn tại chữ "b3" (cộtC) trên Sheet1 sẽ tự động tạo Hyperlink đến tọa độ cell b3 của Sheet 2.. tương tự tại d4 sẽ Hyperlink đến tọa độ cell d4 của Sheet3, e5 sẽ Hyperlink đến tọa độ cell e5 của Sheet4
    khi click vào các chữ b3, d4, e5 thì nhảy đến cell b3 của sheet2, cell d4 của sheet3, cell e5 của sheet4.
    (Như File đính kèm bên dưới)
    Cám ơn các Bạn!

  2. #2
    hoanghaidng Guest
    Trích dẫn Gửi bởi thanhthat
    Kính nhờ ACE diễn dàn GPE viết code để tự động Hyperlink từ cell Sheet có tọa độ tên và Sheet khác đã nhập trước như sau:

    Ví dụ: tại Sheet1 Cột B Cột C
    Sheet2 b3
    Sheet3 d4
    Sheet4 e5
    Nhờ ACE diễn dàn GPE viết code căn cứ vào giá trị tại nhập tại cột B và cột C để tự động Hyperlink đến tọa độ và Sheet tương ứng. Chẳng hạn tại chữ "b3" (cộtC) trên Sheet1 sẽ tự động tạo Hyperlink đến tọa độ cell b3 của Sheet 2.. tương tự tại d4 sẽ Hyperlink đến tọa độ cell d4 của Sheet3, e5 sẽ Hyperlink đến tọa độ cell e5 của Sheet4
    khi click vào các chữ b3, d4, e5 thì nhảy đến cell b3 của sheet2, cell d4 của sheet3, cell e5 của sheet4.
    (Như File đính kèm bên dưới)
    Cám ơn các Bạn!
    Vấn đề bài của bạn là bạn sẽ nhập tên sheet và địa chỉ thủ công hay chạy sub lấy tên sheet rùi điền địa chỉ thủ công, sau đó chạy sub hyperlink?

  3. #3
    haido92 Guest
    Trích dẫn Gửi bởi thanhthat
    Kính nhờ ACE diễn dàn GPE viết code để tự động Hyperlink từ cell Sheet có tọa độ tên và Sheet khác đã nhập trước như sau:

    Ví dụ: tại Sheet1 Cột B Cột C
    Sheet2 b3
    Sheet3 d4
    Sheet4 e5
    Nhờ ACE diễn dàn GPE viết code căn cứ vào giá trị tại nhập tại cột B và cột C để tự động Hyperlink đến tọa độ và Sheet tương ứng. Chẳng hạn tại chữ "b3" (cộtC) trên Sheet1 sẽ tự động tạo Hyperlink đến tọa độ cell b3 của Sheet 2.. tương tự tại d4 sẽ Hyperlink đến tọa độ cell d4 của Sheet3, e5 sẽ Hyperlink đến tọa độ cell e5 của Sheet4
    khi click vào các chữ b3, d4, e5 thì nhảy đến cell b3 của sheet2, cell d4 của sheet3, cell e5 của sheet4.
    (Như File đính kèm bên dưới)
    Cám ơn các Bạn!
    Dùng thử đoạn code sau nhé bạn!

    Mã nguồn PHP:
    Sub TaoHyperLink()Dim i, LastRwLastRw = Range("B65536").End(xlUp).RowFor i = 3 To LastRw Cells(i, 3).Select ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:=Cells(i, 2).Value & "!" & Cells(i, 3).Value, TextToDisplay:=Cells(i, 3).ValueNextEnd Sub  

  4. #4
    haido92 Guest
    Trích dẫn Gửi bởi quanluu1989
    Vấn đề bài của bạn là bạn sẽ nhập tên sheet và địa chỉ thủ công hay chạy sub lấy tên sheet rùi điền địa chỉ thủ công, sau đó chạy sub hyperlink?
    em nhập thủ công tên sheet và tọa độ anh ạ, khi nhập xong tên sheet và tọa độ cần đến là tự động tạo hyperlink.
    Cám ơn Anh.

  5. #5
    noithat889 Guest
    Trích dẫn Gửi bởi vu_tuan_manh_linh
    Dùng thử đoạn code sau nhé bạn!

    <div class="bbcode_container">
    <div class="bbcode_description">PHP Code:
    </div>
    </div>
    </div>
    Hay quá anh ơi, em làm mãi mà không được.
    Cám ơn Anh nhiều !

  6. #6
    Ngày tham gia
    Aug 2015
    Bài viết
    0
    Trích dẫn Gửi bởi vu_tuan_manh_linh
    Dùng thử đoạn code sau nhé bạn!

    <div class="bbcode_container">
    <div class="bbcode_description">PHP Code:
    </div>
    </div>
    </div>
    Anh ơi, còn một vấn đề nữa là khi tên sheet đặt tiếng việt, có số và khoảng trống thì tham chiếu không được (ảnh đính kèm), Anh xem lại giúp em với.

  7. #7
    mobistar206 Guest
    Trích dẫn Gửi bởi thanhthat
    Anh ơi, còn một vấn đề nữa là khi tên sheet đặt tiếng việt, có số và khoảng trống thì tham chiếu không được (ảnh đính kèm), Anh xem lại giúp em với.
    Chỉnh sửa code một chút là được thôi bạn!

    Mã nguồn PHP:
    ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:="'" & Cells(i, 2).Value & "'!" & Cells(i, 3).Value, TextToDisplay:=Cells(i, 3).Value  

  8. #8
    hanh.tn88 Guest
    Trích dẫn Gửi bởi thanhthat
    Anh ơi, còn một vấn đề nữa là khi tên sheet đặt tiếng việt, có số và khoảng trống thì tham chiếu không được (ảnh đính kèm), Anh xem lại giúp em với.
    thế thì thử thế này coi, hoặc là tên sheet bạn nhập tay ko đúng.

    Mã:
    Sub TaoHyperLink()
    Dim i, LastRw
    LastRw = Range("B65536").End(xlUp).Row
    For i = 3 To LastRw
        Cells(i, 3).Select
        ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="", SubAddress:="'" & Cells(i, 2).Value & "'!" & Cells(i, 3).Value, TextToDisplay:=Cells(i, 3).Value
    Next
    End Sub  
    

  9. #9
    Ngày tham gia
    Aug 2015
    Bài viết
    0
    Trích dẫn Gửi bởi vu_tuan_manh_linh
    Chỉnh sửa code một chút là được thôi bạn!

    <div class="bbcode_container">
    <div class="bbcode_description">PHP Code:
    </div>
    </div>
    </div>
    Cám ơn Anh, thật nhanh và chính xác !

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
  •