Question

我希望搜索包含与＆＃34; A＆＃34;匹配的文字的形状的工作表。列然后将其更改为相应的＆＃34; B＆＃34;柱。我希望这样做有多种形状。我已链接到sheet的简化版本我将继续努力：

Sub linkCell()


For i = 1 To 3
    For j = 1 To 3
        If ActiveSheet.Shapes(i).Value = ActiveSheet.Range("A" & j).Value Then
        ActiveSheet.Shapes(i).Value = "=B" & j
        End If
    Next j
Next i

End Sub

Answer 1

这忠实于你的愿景：

Sub linkCell()
    Dim s As Shape, r As Range
    For Each r In [a1:a3]
        For Each s In ActiveSheet.Shapes
            If r = s.TextFrame.Characters.Caption Then
                s.OLEFormat.Object.Formula = "=" & r(, 2).Address
                Exit For
            End If
        Next
    Next
End Sub

更改形状内的文本

1 个答案: