Kết quả tìm kiếm cho từ khóa: Hyperlink đến các sheet

Cách 1: Ví dụ 1 mảng có tên là Noidung1, bạn dùng hàm HYPERLINK như sau: =HYPERLINK("# Noidung1","Ghi chú cho đường link") Cách 2: Nhấn Ctrl+K (hoặc chuột phảỉ, chọn Hyperlink), tại ô address gõ: #tên mảng, ví dụ #Noidung1, OK. Cách 3: Nhấn Ctrl+K (hoặc chuột phảỉ, chọn Hyperlink), chọn tab...

Cám ơn bác nhiều nhé! Ơ nhưng bác ơi, em chưa biết define name. Hyperlink em cũng chỉ biết hyperlink đến sheet nào đó thôi chứ đến mảng nào thì lại chưa biết ạ :(

Thử chèn và xóa dòng xem có vừa ý không nhé.

Bạn tham khảo Link này nhé

chào các anh chị. Em xin hỏi cái này mình có thể lấy cái tên của sheet được không để gắn vào hàm HYPERLINK vì khi tên sheet thay đổi thì hàm nó tự đổi theo (xem file em đính kèm

sao minh chạy với file khác là báo lỗi bạn ạ, xem lại giúp mình với

Cuối cùng thì cũng "độ" được cái này, chạy chậm như con rùa nhưng cũng tới đích được (không biết gì về Macro4 thì ta xài VBA vậy!): Sub TaoMucLuc() Dim Cll As Range, Pg As Integer, i As Integer 'Application.ScreenUpdating = False' Sheet2.Activate: [A2:B65536].ClearContents...

File ấy do tôi làm. Giờ mới thấy nó cũng có nhiều nhược điểm Xin gữi bạn file khác hay hơn chút

Mình muốn cho các đề mục ca sỹ hiện số trang bên cạnh chứ không cần tạo đường link tới từng ca sỹ, nên bạn sửa lại giúp mình tí

Tạm thời xài cái này nhé. Mình không đưa số trang vào mục lục nhưng bù lại, mình tạo 1 list các ca sĩ/nhóm nhạc, khi click vào sẽ liên kết tới vị trí tương ứng trên sheet dữ liệu. Private Sub Worksheet_Activate() Dim Cll As Range [A2:A65536].ClearContents Set Cll = Sheet1.[A1] Do...

Mình rất thích cái lịch làm việc này, nhưng không giỏi excel nên không hiểu rõ về nó lắm, mình muốn đổi nó sang năm 2011, 2012....thì làm thế nào? Ngoài ra mình có 1 kế hoạch làm việc trong 1 năm, mình muốn đưa vào lịch để theo dõi. Công việc nào làm rồi sẽ highlight mầu xanh, chuẩn bị làm mầu...

Mình cũng hay căn chỉnh nhiều trên Excel nên cũng hay dùng phím tắt. Các bạn thử tham khảo nhé: ESC: Bỏ qua dữ liệu đang thay đổi F4 (Ctrl + Y) : Lặp lại thao tác vừa làm Alt + Enter: Bắt đầu dòng mới trong ô Ctrl + Delete : Xóa tất cả dữ liệu trong một dòng Ctrl + D: Chép dữ liệu từ ô trên...

Bạn làm như file mình hướng dẫn nha. Click chuột phải Vào Back to Index chọn edit HyperLink\...

Chào các bác, Lâu rồi em không có thời gian hỏi thăm trò chuyện với các bác. Nhân tiện hỏi thăm các bác em có một thắc mắc xin các bác chỉ giùm. Em tạo hyperlink giữa các sheet thì xong rồi có điều o các sheet được link tới có Mục Back to Index thì em muốn trở về Sheet index thì không được mong...

Đó là Hyperlink - Click phải vào đối tượng (textbox), chọn Hyperlink - Khung Address, bạn gõ dấu # rồi đến tên của Sub Xem hình:

Em có đọc bài này lâu lắm rồi mà làm hoài làm không được tìm kiếm trên diễn đàn cũng không thấy. Mình có tạo 1 textbox để xem có viết trong module từ sheet giống như bài 44 của chủ đề này. Em nghĩ nó không phải là hyperlink mà nó là cái gì đó. Mong các bạn, anh chị giúp. Nếu có đường link cho em...

Mình dùng Link cố định đâu có thay đổi, còn dùng tên sheet tiếng Việt như bạn hay bị lỗi font trong code lắm. Tốt nhất ta gõ dòng hiển thị sau đó ad link thì tốt hơn. Việc Hyperlink cũng như Code nó không tự cập nhật như công thức được, nên bạn phải Edit bằng tay thôi.

Các bước cụ thể: 1/ Tạo Hypelink bình thường bằng tay 1 lần thôi không cần thiết phải seset lại. Hoat động bình thường với điều kiện không ẩn sheet. Nếu lỗi ta có thể Edit được 2/Dùng code sau đặt ở vùng code của sheet TK. Tác dụng mỗi khi kich Hypelink nó sẽ hiện sheet liên quan. Đồng thời di...

Bạn dùng Code sau cũng ổn, code này đặt ở vùng code của sheet Mục lục: Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink) Dim ShName ShName = Left(Target.SubAddress, InStr(1, Target.SubAddress, "!") - 1) Worksheets(ShName).Visible = -1 Target.Follow End Sub

Thì bạn cấu trúc sheet danh sach hợp lý để cung cấp thông tin rồi viết 1 đoạn code nhỏ mỗi khi mở file sẽ thiết lập lại đường link. Như vậy, bạn vô tư chép cả thư mục đi bất cứ đâu Sub Resetlink() Dim Cl As Range With Sheet1 For Each Cl In .Range(.[E2], .[E2].SpecialCells(11)) If Cl = "x" Then...