[已解决]VBA:向单元格里写公式。

kingofbirds · 发表于 2011-2-14 21:00

如果手工输入工作表“表格1”中Cells(5, 11).Value =“=表格2!K5”  可是要写成变量咋写啊？

For x = 2To 31
Sheets("表格" & x).Cells(5, 11).Value = "="表格"&（x-1）!K5"   “这个不行”
   Next x

蓝色的这个应该咋表示？
谢谢！

最佳答案

月排行榜 / 总排行榜

fishatmoon

2011-2-17 13:59

Sub Macro1()
Dim x As Long
For x = 2 To 31
Sheets("表格" & x).Cells(5, 11).Value = "=表格" & (x - 1) & "!K5"
Next
End Sub
(, 下载次数: 31)

老糊涂 · 发表于 2011-2-14 21:12

=sheets("表格" & x-1).cells(5,11)

fjmxwrs · 发表于 2011-2-14 21:46

本帖最后由 fjmxwrs 于 2011-2-14 21:47 编辑

For x = 2To 31
Sheets("表格" & x).Cells(5, 11).Value = "=表格"&x-1&"!K5" “这样就行了,写入公式"
Next x
你是每个表写入前一个表的K5？直接赋值就行了，不用写公式
For x = 2To 31
Sheets("表格" & x).Cells(5, 11).Value = sheets("表格"&x-1).range("K5").value “这样直接赋值"
Next x

xdwy81129 · 发表于 2011-2-15 03:56

来学习看看的

BAIXINGR · 发表于 2011-2-15 07:22

学习下

9lee · 发表于 2011-2-15 08:59

Sheets("表格" & x).Cells(5, 11).Value = sheets("表格"&x-1).[K5]

平地三尺浪 · 发表于 2011-2-15 09:01

学习一下

lisachen · 发表于 2011-2-15 11:30

来学习{:912:}

kingofbirds · 发表于 2011-2-16 13:58

回复 fjmxwrs 的帖子

谢谢你。好像不行！提示“语法错误”
我就是要引入公式，因为这是提前做一个一个月的表格空表格，每过几天可能数值会变的。如果在某一天“K5”的值需要修改的话，前面的值不变，后面的将从这一天变动。

kingofbirds · 发表于 2011-2-17 13:26

回复 fjmxwrs 的帖子

提示“缺少：语句结束”

		自动登录	找回密码
密码			注册