gpt4 book ai didi

excel - VBA 根据位置选择形状

转载 作者:行者123 更新时间:2023-12-01 02:31:08 24 4
gpt4 key购买 nike

如何选择单元格 "A:Shape.TopLeftCell.Row"= 0 中的值的所有形状(数组?范围?)? enter image description here

按照上图,数组应该只包含形状 2 和 3。

最佳答案

作为替代方案,您可以反转逻辑并随时选择,然后根据需要将选择分配给形状范围:

Sub ShapePicker()
Dim s As Shape
Dim sr As ShapeRange
Dim i As Long

i = 1
For Each s In ActiveSheet.Shapes
If Cells(s.TopLeftCell.Row, "A").Value = 0 Then
s.Select (i = 1)
i = i + 1
End If
Next s
Set sr = Selection.ShapeRange
End Sub

关于excel - VBA 根据位置选择形状,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/24288149/

24 4 0
Copyright 2021 - 2024 cfsdn All Rights Reserved 蜀ICP备2022000587号
广告合作:1813099741@qq.com 6ren.com