Chuyển đổi thành siêu liên kết trong sổ làm việc dùng chung (Microsoft Excel)

Posted on: 2020年11月13日 2020年11月13日

Eric có một sổ làm việc dùng chung chứa cơ sở dữ liệu khoảng 3.500 bản ghi. Hai trong số các ô trong mỗi bản ghi chứa một địa chỉ e-mail và một URL. Khi một bản ghi mới được thêm vào cơ sở dữ liệu, địa chỉ e-mail và URL sẽ xuất hiện dưới dạng văn bản thông thường thay vì dưới dạng siêu liên kết. Để biến chúng thành siêu kết nối Eric phải hủy chia sẻ sổ làm việc, thực hiện thay đổi, sau đó chia sẻ lại sổ làm việc. Eric tự hỏi liệu có cách nào dễ dàng hơn để xử lý tình huống này không.

Rất đơn giản, việc thêm và chỉnh sửa siêu liên kết không được phép khi sử dụng sổ làm việc dùng chung. Cách đơn giản nhất là đặt các liên kết trong các ô riêng biệt dưới dạng văn bản và sau đó sử dụng công thức HYPERLINK để tham chiếu các ô đó.

Ví dụ: nếu URL được nhập vào ô E2, bạn có thể sử dụng công thức sau trong một ô khác:

=HYPERLINK(E2, E2)

Đối số đầu tiên trong công thức này là ô chứa địa chỉ và đối số thứ hai là văn bản được hiển thị cho siêu kết nối. Phương pháp này yêu cầu hai cột bổ sung (đối với công thức HYPERLINK) nhưng sẽ không yêu cầu hủy chia sẻ và chia sẻ lại sổ làm việc.

Tùy chọn khác duy nhất là tạo một macro có thể tự động hóa quá trình hủy chia sẻ và chia sẻ lại sổ làm việc. Macro sau sẽ thực hiện việc này và chuyển đổi bất cứ thứ gì trong ô đã chọn thành siêu liên kết.

Dim cell As Range

Application.DisplayAlerts = False

' Unshare the Workbook     If ActiveWorkbook.MultiUserEditing Then         ActiveWorkbook.ExclusiveAccess     End If

With Worksheets(1)

' Reshare the Workbook     If Not ActiveWorkbook.MultiUserEditing Then         ActiveWorkbook.SaveAs _           Filename:=ActiveWorkbook.FullName, _           AccessMode:=xlShared     End If End Sub

_Lưu ý: _

Nếu bạn muốn biết cách sử dụng các macro được mô tả trên trang này (hoặc trên bất kỳ trang nào khác trên trang ExcelTips), tôi đã chuẩn bị một trang đặc biệt bao gồm thông tin hữu ích.

ExcelTips là nguồn của bạn để đào tạo Microsoft Excel hiệu quả về chi phí.

Mẹo này (3155) áp dụng cho Microsoft Excel 97, 2000, 2002 và 2003. Bạn có thể tìm thấy phiên bản của mẹo này cho giao diện ribbon của Excel (Excel 2007 trở lên) tại đây: