Điều này sử dụng VBa.
Thêm thanh công cụ dành cho nhà phát triển . Trong bảng Điều khiển, nhấp vào Chèn và nhấp vào nút
Vẽ một nút trên bảng công việc Excel của bạn. Nhấn OK.
Trong Cửa sổ mới, nhập nội dung sau để chỉ mã này ở trên trang (không có gì khác)
Sub Button1_Click()
Dim i As Integer
i = 1
For Each c In range("A1:A10") 'UPDATE THIS FOR THE CORRECT RANGE
If c.Font.ColorIndex = 3 Then
Range("M" & i).Formula = "=HYPERLINK(" & c.Address & ", " & c.Address & ")" 'CHOSE EMPTY COLUMN
i = i + 1
End If
Next
End Sub
Trong ví dụ này, tôi đã chọn một cột miễn phí (M) trong trường hợp này. Nếu M không miễn phí, thì hãy thay đổi M thành một cột miễn phí. Bạn cũng sẽ cần phải nêu phạm vi chỉ số chính xác.
Vì vậy, mỗi khi nó tìm thấy một ô có phông chữ màu đỏ ( với chỉ số 3 ) nó sẽ ghi giá trị vào cột M. Vì vậy, với danh sách mới của bạn, bạn có thể điều hướng đến ô được đề cập một cách dễ dàng.
Xin chân thành cảm ơn @mehow, người đã gợi ý làm cho kết quả có thể nhấp được.