Hyperlink

[mymichau]

Thân chào các bạn. Bản thân minh đã học được rất nhiều trên diễn đàn. Nhưng vẫn còn 1 việc xin các bạn chỉ giúp về phần Hyperlink. Sử dụng hàm và trong menu Insert thì đã rõ, nhưng nếu minh sử dụng 1 cdm và 1 cell ( có list ) để thay đổi. VD: cell A1 là list có mã sheet 1 đến sheet4. Khi chọn shett1 hoặc sheetn và click vào cmd thì sẽ chuyển đến sheet tương ứng. Mong các bạn giúp.

 

[Nguyễn Duy Tuân]

Giả sử ô chứa List tại địa chỉ "A1" trên "Sheet1" (List tạo bởi Validation). Bạn làm như sau:
1 - Nhấn ALT+F11 để vào môi trường VBE
2 - Trong cửa sổ phía trái có tên "Project - VBAProject", nhấp chuột phải trên "Sheet1" chọn "View code".
2 - Ở cửa sổ bên phải bạn đặt con trỏ vào rồi paste đoạn code dưới đây

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address(0, 0) = "A1" And Ucase(Target.Value)<> Ucase(ActiveSheet.Name)Then
        Sheets(Target.Value).Select
    End If
End Sub