将单元格超链接到同一工作表中的另一个单元格

Question

大家好，

由于没有人给出答复，我从今天下午开始重新发布该帖子。 我想编写一个Excel VBA代码，以便如果在A列下单击x，则绿色矩形将移至最右边的1：单击A1处的第一个x会到达（1，P3），A2->（2 ，P2），A3->（3，P2），A4->（4，P3）。

到目前为止，到目前为止，我已经编写了该代码，目的是将A1，A2，A3和A4超链接到相应的PCell。我不确定如何在P列的最右边获取1。你们任何人都可以给出答案或建议吗？如果还有另一种方法，我愿意听。谢谢。

Sub GoToPCell()

Dim i As Integer, PCell As String

PCell =


For i = 1 To 4

ActiveSheet.Hyperlinks.Add Cells(i, 1), Address:="", SubAddress:="'" & Sheet1.Name & "'!PCell"


Next i

End Sub

Answer 1

正如BigBen先生所说，解决问题的主要部分。我刚刚发布了完整的子如下。试试...

"