Hỏi cách tạo danh mục link

[nguyenducbac]

Xin hỏi các bạn trong diễn đàn giúp mình cách tạo danh mục link: khi chọn trong danh mục link sổ xuống thì tự động chuyển tới vị trí đã được gắn hyperlink tương ứng với giá trị đó.
Ví dụ:

Từ A1-A3 lần lượt là: Bưởi, Cam, Dừa (thực tế danh sách này của tôi rất dài nên để thuận trong tra cứu nên muốn chỉ cần sử dụng một cell thôi)
"Bưởi" được insert hyperlink tại vị trí x bất kỳ trong excel.
"Cam", "Dừa" cũng tương tự tại y, z.

Kết quả cần đạt được:
Tại ô F4 có list "Bưởi", "Cam", "Dừa" để khi chọn "Bưởi" sẽ cho con trỏ chuột tại vị trí x, "Cam" - y, "Dừa" - z.

Cảm ơn các bạn trước!

 

[phucbugis]

Xin hỏi các bạn trong diễn đàn giúp mình cách tạo danh mục link: khi chọn trong danh mục link sổ xuống thì tự động chuyển tới vị trí đã được gắn hyperlink tương ứng với giá trị đó.
Ví dụ:

Từ A1-A3 lần lượt là: Bưởi, Cam, Dừa (thực tế danh sách này của tôi rất dài nên để thuận trong tra cứu nên muốn chỉ cần sử dụng một cell thôi)
"Bưởi" được insert hyperlink tại vị trí x bất kỳ trong excel.
"Cam", "Dừa" cũng tương tự tại y, z.

Kết quả cần đạt được:
Tại ô F4 có list "Bưởi", "Cam", "Dừa" để khi chọn "Bưởi" sẽ cho con trỏ chuột tại vị trí x, "Cam" - y, "Dừa" - z.

Cảm ơn các bạn trước!

- bạn tải file đính kèm, chọn Dua, Buoi, Cam tại ô F4 --> click ô F5 rồi ...
(nếu chưa đúng thì gửi file của bạn đang dùng lên xem sao nhé !)

 

[nguyenducbac]

Bạn xem giúp nhé

Cảm ơn bạn đã trả lời rất đúng câu hỏi của mình.

Tuy nhiên, là do câu hỏi của mình chưa nêu rõ là hyperlink mình gắn là giá trị tương đối được gắn vào các name
(do quá trình nhập dữ liệu mới mình phải copy và insert rows liên tục, hic, đây cũng là một vấn đề khá "củ chuối" trong file của mình).

Mình gửi kèm file với 2 vấn đề mình đang vướng phải.

Rất mong bạn và các cao nhân khác xử lý giùm (hoặc cho xin hướng xử lý, mình đã suy nghĩ khá lâu mà vẫn thấy cách quản lý của mình vẫn "trâu trâu").

Thanks!

 

[phucbugis]

Cảm ơn bạn đã trả lời rất đúng câu hỏi của mình.
Tuy nhiên, là do câu hỏi của mình chưa nêu rõ là hyperlink mình gắn là giá trị tương đối được gắn vào các name
(do quá trình nhập dữ liệu mới mình phải copy và insert rows liên tục, hic, đây cũng là một vấn đề khá "củ chuối" trong file của mình).
Mình gửi kèm file với 2 vấn đề mình đang vướng phải.
Rất mong bạn và các cao nhân khác xử lý giùm (hoặc cho xin hướng xử lý, mình đã suy nghĩ khá lâu mà vẫn thấy cách quản lý của mình vẫn "trâu trâu").
Thanks!

Danh mục Link tại các dòng này của mình rất nhiều do danh mục phân xưởng lớn
.....
Vì vậy, mình muốn thu danh mục các link này lại để không chiếm diện có thể làm việc trên màn hình

- mình đang tìm hướng giải quyết vấn đề 1 ghi trong file (có thể phải dùng đến Macro) thì mới đáp ứng được yêu cầu trên.

- bạn gửi cho mình danh sách các Phân xưởng đó để làm cơ sở cài code.

 

[nguyenducbac]

Như mình đã có nói trong file đó bạn ạ: danh sách các Phân xưởng thỉnh thoảng lại có sự điều chỉnh, bổ sung (Phân xưởng có quy mô lớn trở thành Trung tâm, khi thay đổi hộ dân phụ trách thì tên cũng thay đổi theo, thay đổi tên vùng,...) nên nó không cố định.

 

[Hai Ló Miền Tây]

Như mình đã có nói trong file đó bạn ạ: danh sách các Phân xưởng thỉnh thoảng lại có sự điều chỉnh, bổ sung (Phân xưởng có quy mô lớn trở thành Trung tâm, khi thay đổi hộ dân phụ trách thì tên cũng thay đổi theo, thay đổi tên vùng,...)nên nó không cố định.

Bạn coi có được chưa

 

[phucbugis]

ý tưởng của mình "khá giống" với bác "miền tây"
- bạn tải file đính kèm, cho chạy Macro (click Enable Content) !
- gõ từ khoá tìm kiếm tại ô B2, nếu để trống --> sẽ lọc tên tất cả các Phân xưởng có trong cột B.
- click vào ListBox1 để Link tới vị trí ...

Private Sub [COLOR=#0000cd]Worksheet_Change[/COLOR](ByVal Target As Range)
    If Target.Address = "$B$2" Then
        If Target = "" Then
            Call LocPhanXuong(True, Target)
        Else
            Call LocPhanXuong(False, Target)
        End If
    End If
End Sub

Private Sub [COLOR=#0000cd]LocPhanXuong[/COLOR](dkien As Boolean, TuKhoa As Range)
Dim dic As Object, ws As Worksheet, Arr()
Dim i As Long, Temp As Variant

    Set dic = CreateObject("Scripting.Dictionary")
    Set ws = ThisWorkbook.Sheets("Sheet1")
    Arr = ws.Range(ws.Range("B65000").End(xlUp), ws.Range("B6")).Value
    
    For i = 1 To UBound(Arr)
    Temp = Arr(i, 1)
    If Not IsEmpty(Temp) And Not dic.exists(Temp) Then 'ko add trung`
        If dkien = True Then
            dic.Add Temp, Nothing
        Else
            If UCase(Temp) Like "*" & UCase(TuKhoa.Value) & "*" Then
                dic.Add Temp, Nothing
            End If
        End If
    End If
    Next
    'ListBox1 co ' Properties/ IntergralHeight = False (de co' dinh. size)
    'ws.ListBox1.List() = dic.keys 'error
    With ThisWorkbook.ActiveSheet.ListBox1
        .Clear
        .List() = dic.keys
    End With
    
    Set dic = Nothing: Set ws = Nothing: Erase Arr
End Sub

Private Sub [COLOR=#0000cd]ListBox1_Click[/COLOR]()
Dim PXuong As String, Rng As Range, sRng As Range

    Set Rng = ActiveSheet.Range("B5:B65000") 'B:B --> neu PXuong trung` voi tu` khoa' --> ko dung' (GPE)
    PXuong = ListBox1.Value
    Set sRng = Rng.Find(PXuong, , xlValues, xlWhole)  'xlWhole--> tim` chinh' xac
    
    If Not sRng Is Nothing Then
        sRng.Select
        ActiveWindow.ScrollRow = sRng.Row - 1 'cuon. len tren + ket hop voi Freeze panes
    End If
    
    'neu' click lan` 2 --> chuyen sang Double click
End Sub

Private Sub [COLOR=#0000cd]ListBox1_DblClick[/COLOR](ByVal Cancel As MSForms.ReturnBoolean)
    ListBox1_Click
End Sub

 

[nguyenducbac]

Rất cảm ơn 2 bạn. Mong sẽ được chỉ giáo thêm tại vấn đề thứ 2 khi các bạn có thời gian và các vấn đề khác.

Trân trọng!

 

[nguyenducbac]

Xin làm phiền bạn phucbugis chút nữa. Sau một thời gian sử dụng, file bạn giúp mình có listbox càng ngày càng lớn chiếm mất diện tích màn hình vốn hơi nhỏ của mình.
Kỳ thực mình mới bắt đầu nghiên cứu VB nên không có tự hiệu chỉnh được, mong ban giúp đỡ.
Làm phiền và cảm ơn phucbugis nhiều.