我正在生成代码行和更改,并希望通过宏自动执行链接但是我希望将链接添加到可点击单元格中的宏。
我尝试使用与链接URL相同的方法来开始使用,那么我需要弄清楚是否我可以将“ SubAddress:=”分配给宏而不是链接吗?
ws.Range("H6").Hyperlinks.Add anchor:=ws.Range("H6"), Address:="", SubAddress:="runMACRO", TextToDisplay:="Show tasks"
如注释中所述,您可以使用Workbook_SheetFollowHyperlink
事件处理程序。因此,您必须在ThisWorkbook
模块中添加类似以下代码的代码,只要单击单元格runMACRO
中的超链接,该代码将调用H6
。
Private Sub Workbook_SheetFollowHyperlink(ByVal Sh As Object, ByVal Target As Hyperlink)
If Target.Range.Address = "$H$6" Then
Call runMACRO
End If
End Sub