Đăng ký học Excel và VBA cùng GPE tháng 10 - TPHCM

Đăng ký học Excel và VBA cùng GPE tháng 11 - TPHCM

tạo đường link trong excel 2007

Thảo luận trong 'Hàm và công thức Excel' bắt đầu bởi missingU_2689, 12 Tháng ba 2010.

  1. missingU_2689

    missingU_2689 Thành viên mới

    các bác ơi, muốn tạo đường link từ 1 cell bất kỳ tới một cell trong sheet khác thì làm thế nào????
     
  2. khoavu87

    khoavu87 Vũ Trần Khoa

  3. yeuthamhangxom

    yeuthamhangxom Thành viên tiêu biểu

    Mạn phép bổ xung thêm.
    vì là bạn hỏi excel 2007 nên
    Bước 1 Chỉ đến cell cần link dữ liệu.
    Bước 2 trong tap insert kích vào mục Hyperlink hiện ra cửa sổ mới.
    Bước 3 Trong cửa sổ mới tích vào "Place in this document" trong cửa sổ "Or select a place in this document" chọn sheet cần chuyển đến. Trong cửa sổ "Type the cell reference:" gõ ô cần chuyển đến trong sheet vừa chọn.
    chúc vui.
     
  4. missingU_2689

    missingU_2689 Thành viên mới

    thak bạn nhiều nhe :)
     
  5. hibiki2011

    hibiki2011 Thành viên mới

    Rất cảm ơn bồ nhiều lắm, mình đang tìm cách hướng dẫn dễ hiểu này đấy.... Đa tạ nhé
     
  6. khacthich05011977

    khacthich05011977 Thành viên mới

    Chào tất cả các bạn!
    Mình có một vấn đề rất cần mọi người giúp đỡ, Mình có file excel, trong đó có nhiều sheet, mình muốn tạo đường link từ sheet chính (index) tới các sheet khác là (Sheet1,2,3,4..)và từ các sheet này có thể link được về sheet chính (index). mình đã dùng đoạn mã sau nhưng chỉ link từ sheet chính đến các sheet khác thì được, nhưng từ sheet 1,2,3.. mà link về sheet chính thì không dược
    Private Sub Worksheet_Activate()
    Dim wSheet As Worksheet
    Dim lCount As Long
    lCount = 1
    With Me
    .Columns(1).ClearContents
    .Cells(1, 1) = "INDEX"
    End With
    For Each wSheet In Worksheets
    If wSheet.Name <> Me.Name Then
    lCount = lCount + 1
    With wSheet
    .Range("A1").Name = "Start" & wSheet.Index
    .Hyperlinks.Add Anchor:=.Range("A1"), Address:="", SubAddress:= _
    "Index", TextToDisplay:="Back to Index"
    End With
    Me.Hyperlinks.Add Anchor:=Me.Cells(lCount, 1), Address:="", SubAddress:= _
    "Start" & wSheet.Index, TextToDisplay:=wSheet.Name
    End If
    Next wSheet
    End Sub
    chú ý có file đính kèm
    câu trả lời xin hãy gửi theo địa chỉ sau (khacthich05011977@gmail.com)
    xin cám ơn!
     

    Các file đính kèm:

Chia sẻ trang này