对于初学者来说，我的电话链接样式与常规链接样式不同。我正在尝试使用下边框作为链接下划线（以满足AA辅助功能要求），并希望颜色在悬停/对焦时发生变化。我目前将其设置为默认状态为.2，并在悬停时切换为1。同样的效果在常规链接上也可以正常工作，但是当我将其应用于Option Explicit
Public Sub GetResultsCount()
Dim sResponse As String, html As HTMLDocument
With CreateObject("MSXML2.XMLHTTP")
.Open "GET", "https://www.google.com/search?q=mitsubishi", False
.setRequestHeader "If-Modified-Since", "Sat, 1 Jan 2000 00:00:00 GMT"
.send
sResponse = StrConv(.responseBody, vbUnicode)
End With
Set html = New HTMLDocument
With html
.body.innerHTML = sResponse
Debug.Print .querySelector("#resultStats").innerText
End With
End Sub
时，将始终应用悬停状态（仅适用于边界底部）。
我已经使用rgba值（理想解决方案）以及两个不同的十六进制代码对此进行了测试，但我遇到了相同的问题。
a[href^="tel:"]