Vấn đề excel hyperlink

[khidotdh88]

Hiện tại mình đang cần làm 1 file exel ban đầu gồm có mấy ngàn link web nhưng nó chưa hiện hyperlink làm khó khăn cho người kiểm tra. Giúp mình cách chuyển qua lại với.

 

[chibi]

Bạn thử đoạn code này xem

Sub Ins_hype()
    Dim rg As Range
    For Each rg In Range("B2:B51")
        rg.Select
        ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:=Selection.Value, TextToDisplay:=Selection.Value
    Next
End Sub

 

[Pozsi]

Bạn chạy code này là được. Và điều cuối cùng là bạn chỉ cần thay số 51 kia thành số ROW dòng cuối cùng là được.

Sub Hpl()
Dim i As Byte
For i = 2 To [B][COLOR=red]51[/COLOR][/B]
    Cells(i, "B").Hyperlinks.Add Cells(i, "B"), Cells(i, "B").Value
Next i
End Sub

Thân.

 

[khidotdh88]

Bạn nói rõ hơn được ko . Mình ko hiểu thêm các đoạn code là thế nào

 

[SA_DQ]

Bạn xem trong file đính kèm (Đã chạy macro)

Bạn nói rõ hơn được ko . Mình ko hiểu thêm các đoạn code là thế nào

Đây cũng là biến thể của 2 macro trên mà thôi

Option Explicit
Sub Hpl()
 Dim Clls As Range
For Each Clls In Range("B2:B" & [B65500].End(xlUp).Row)
    Clls.Hyperlinks.Add Clls, Clls.Value
Next Clls
End Sub

 

[khidotdh88]

Vậy phiên anh chuyển dùm file này sang hyperlink giúp. Em mới biết về exel ko biết tạo lập Macro. Anh chỉ dẫn từng bước với chứ ah

 

[ndu96081631]

Vậy phiên anh chuyển dùm file này sang hyperlink giúp. Em mới biết về exel ko biết tạo lập Macro. Anh chỉ dẫn từng bước với chứ ah

Bạn làm như sau:
- Mở file Excel của bạn lên, bấm Alt + F11 để vào của sổ Edit code
- Vào menu Insert\Module ---> Bạn sẽ thấy 1 module có tên Module1 được chèn vào
- Copy đoạn code dưới đây:

Sub HyperlinkTrans()
  Dim Clls As Range
  On Error Resume Next
  For Each Clls In ActiveSheet.UsedRange.SpecialCells(2, 2)
    If Clls.Hyperlinks.Count = 0 And InStr(Clls, "http://") Then
      Clls.Hyperlinks.Add Clls, Clls.Value
    End If
  Next
End Sub

- Paste vào cửa sổ bên phải
- Bấm Alt + Q để trở về bảng tính Excel
- Bấm Alt + F8, chọn vào tên HyperlinkTrans rồi bấm nút Run
===> Xem kết quả thế nào nhé

 

[LEEWU]

Mình có một vấn đề cũng liên quan đến Hyperlink mà không biết code nên hỏi :
Trong một máy chủ của mình có file excel, mình có gắn hyperlink cho các ô trong 1 sheet liên kết với các văn bản trong ổ cứng. Khi share file excel này cho các máy khác sử dụng (share workbook) thì các hyperlink này không còn hoạt động nhưng mở trên máy chủ thì vẫn hoạt động bình thường.
Có ai giúp mình chỉ cách làm cho nó hoạt động trên các máy được share không. ( trước đây nó vẫn chạy trên máy được share, không hiểu mình chỉnh đụng cái gì nó không chạy được nữa)

 

[the_wind]

Tạo Hyperlink trên Commant Button?

Mình muốn tạo Link dẫn từ sheet này sang sheet khác trên nút Commant Button,
Mình đã thực hiện khi add link trực tiếp nhưng mỗi khi mở file lại phải nhấn vào nút Design mode mới chạy được. Và 01 vấn đề nữa là khi đã nhấn vào đó thì code tự động cập nhật thời gian của mình bị mất hiệu lực, không biết tại sao nữa. Muốn nó có hiệu lực trở lại thì lại phải nhấn vào Exit Design Button. Giờ có thể thêm link vào dưới dạng Module được không? Các bro chỉ cho minh cách khắc phục nhé.... mấy vụ này sao thấy tối quá

Cảm ơn các bạn nhều!!!!