Question

第一次发布，希望这一切有意义。我已经在excel中创建了一个显示88行1的图形。在另一个工作表中，有数据行记录在每一行上2，当单击图形上的一行时，我希望其他工作表中的相应数据弹出3

我设法通过在每行上制作一个透明的按钮/形状来隐藏和显示链接的图像4来实现此目的。但是，我必须为每行创建一个单独的按钮和宏，并包含100多个行，这似乎效率很低。这是我使用的代码：

Sub LINE1A1()

    With ActiveSheet.Shapes("Rectangle 9").TextFrame2.TextRange.Characters
        If .Text = "Hide" Then
            .Text = "Show"
            ActiveSheet.Shapes("Picture 3").Visible = False
        Else
            .Text = "Hide"
            With ActiveSheet.Shapes("Rectangle 9")
                ActiveSheet.Shapes("Picture 3").Left = .Left + .Width
                ActiveSheet.Shapes("Picture 3").Top = .Top + .Height
                ActiveSheet.Shapes("Picture 3").Visible = True
            End With
        End If
    End With
End Sub

有什么更好的方法来实现这一目标？另一面，我不是使用链接图像作为数据，数据范围可能会发生变化，因为每行可能会有多于1行的数据。

Answer 1

您可以使用宏创建这些按钮或形状（例如您说的100个按钮），然后使用宏移动它们，以便将它们放在正确的位置。他们将使用相同的宏。根据按钮的位置，或者根据按钮的名称，它可能会做其他事情。

有一个很好的教程。 https://www.youtube.com/watch?v=bF28JhlC7yc&index=18&list=PLpOAvcoMay5SE3XTp2YN2v6NcJuXKM9KX

Answer 2

这是一个简单的示例，其中常见的Sub使用{ "suite1": { "id": "suite1", "description": "Login", "fullName": "Login", "failedExpectations": [], "status": "finished", "specs": [ { "id": "spec0", "description": "Should able to login into the Distribution management Webpage", "fullName": "Login Should able to login into the Distribution management Webpage", "failedExpectations": [ { "matcherName": "", "message": "", "stack": "", "passed": false, "expected": "", "actual": "" } ], "passedExpectations": [], "pendingReason": "", "started": "2018-09-06T06:57:42.740Z", "status": "failed", "duration": "7 secs", "stopped": "2018-09-06T06:57:49.255Z", "browserLogs": [] } ] } }找出触发它的形状。

Application.Caller

点击单元格，通过链接的图片显示数据范围

2 个答案: