VBA如何批量修改textbox/rectangle内的公式？

夯昆2015

各位大佬新年快乐~

如图，能否用一个循环把右边的rectangle内的公式修改成对应左边的单元格？

单元格A1内容是 1 则 rectangle内公式 "=A1"

单元格A2内容是 2 则 rectangle内公式 "=A2"

新手求助 = =!

夯昆2015

求助。。。

taller

对应左边的单元格 -- 值的是哪个单元格？

夯昆2015

taller 发表于 2018-2-21 11:42
对应左边的单元格 -- 值的是哪个单元格？

感谢大过年还能抽空回复帖子！！！
比如说我sheet1的A列从上到下是1，2，3，4，5.....
我在sheet1的右边或者其他sheet添加了文本框或者艺术字，里面的内容可以用公式引用A列的内容.
比如说文本框里面输入公式 “=A1”，那么文本框就会显示1...
然而下拉复制文本框不像单元格一样会相对引用自动填充对应的公式...
是否可以用VBA设置一个循环来改变textbox/rectangle的formula？

wmqz.130

1. Sub 宏1()
   
2. For i = 1 To ActiveSheet.Shapes.Count
   
3. s = "=$G$" & i + 8
   
4. ActiveSheet.Shapes.Range(Array(i)).Select
   
5. Selection.Formula = s
   
6. Next
   
7. End Sub

复制代码

夯昆2015

wmqz.130 发表于 2018-2-21 15:52

万分感谢！新年快乐！

夯昆2015

wmqz.130 发表于 2018-2-21 15:52

老师不好意思，我现在确认了我应该插入的是文本框而不是艺术字，能麻烦您指导一下如果插入的是文本框代码应该怎么写吗？

wmqz.130

夯昆2015 发表于 2018-2-21 17:15
老师不好意思，我现在确认了我应该插入的是文本框而不是艺术字，能麻烦您指导一下如果插入的是文本框代码 ...

1. Public Sub 宏4()
   
2. With Sheet1
   
3. For i = .Shapes.Count To 1 Step -1
   
4. If .Shapes(i).Type = 17 Then .Shapes(i).Delete
   
5. Next
   
6. For i = 2 To 26 Step 3
   
7. Set Rng = Range("i" & i & ":i" & i + 2)
   
8. With .Shapes.AddTextbox(msoTextOrientationHorizontal, Rng.Left, Rng.Top, Rng.Width, Rng.Height).TextFrame.Characters
   
9. .Font.Size = 15
   
10. .Font.Name = "黑体"
    
11. .Text = (i + 1) / 3
    
12. End With
    
13. Next
    
14. End With
    
15. End Sub
    

复制代码