请教：下面这段代码如果用循环语句该怎么写：

ok123.1 · 发表于 2006-9-21 23:32:00

请教：下面这段代码如果用循环语句该怎么写：

Range("C4").Select
ActiveCell.FormulaR1C1 = "=电视机!R[52]C[1]"
Range("C5").Select
ActiveCell.FormulaR1C1 = "=冰箱!R[51]C[1]"
Range("C6").Select
ActiveCell.FormulaR1C1 = "=洗衣机!R[50]C[1]"

谢谢！

老鬼 · 发表于 2006-9-22 07:50:00

i=0

for each cel in range("c4:c6")

cel.formular1c1="=电视机!r["&(52-i)&"]c[1]"

i=i+1

next

ok123.1 · 发表于 2006-9-22 19:48:00

谢谢鬼主,

我将这个程序引用后,可能是我哪里没有用对,没什么反应,请再帮我看看.

辛苦你了.

[此贴子已经被作者于2006-9-22 11:49:27编辑过]

老鬼 · 发表于 2006-9-23 05:26:00

i = 0
For Each CEL In Range("c4:c7")
CEL.FormulaR1C1 = "=" & Choose(i + 1, "电视机", "电冰箱", "洗衣机", "空调") & "!r[" & (3 - i) & "]c[1]"
i = i + 1
Next

ok123.1 · 发表于 2006-9-23 09:26:00

鬼主:

谢谢你,成功!

XWQ2000 · 发表于 2006-10-21 02:11:00

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

群介绍
Excel中国官方交流群2群 (331511605)
Excel中国官方群 (243419633)
Office China for Exc (498717031)
Excel交流群(纯技术) (324568243)

主题相关群

地区相关群[您还没设置居住地]

[基础应用] 请教：下面这段代码如果用循环语句该怎么写：

本帖子中包含更多资源

群介绍
主题无相 (随机显示版	同地区群块其他地区)