[已解决]请给看看

dahanwudi

Sub BLFUZHI2()
     Sheet1.Select
ActiveWorkbook.Names.Add Name:="我们", RefersToR1C1:="=Sheet1!R1C1"
   Cells(1, 1) = 100
    Cells(1, 2) = "我"
    Cells(1, 3) = "们"
    Cells(1, 4) = "=" & Cells(1, 2) & Cells(1, 3) * 15
End Sub
为什么不行？

最佳答案

月排行榜 / 总排行榜

放浪形骸

2011-4-22 19:44

dahanwudi 发表于 2011-4-22 19:08
Sub BLFUZHI2()
     Sheet1.Select
ActiveWorkbook.Names.Add Name:="我们", RefersToR1C1:="=Sheet1!R1 ...

不是回答你了么？
后面的 * 15 要改成 & "* 15"

跳转到最佳答案楼层

豆丁

1. Cells(1, 4) = "=" & Application.Evaluate(Cells(1, 2) & Cells(1, 3)) * 15

复制代码

放浪形骸

dahanwudi 发表于 2011-4-22 19:08
Sub BLFUZHI2()
     Sheet1.Select
ActiveWorkbook.Names.Add Name:="我们", RefersToR1C1:="=Sheet1!R1 ...

不是回答你了么？
后面的 * 15 要改成 & "* 15"

放浪形骸

1. Cells(1, 4) = "=" & Cells(1, 2) & Cells(1, 3) & "* 15"
   

复制代码

dahanwudi

回复 放浪形骸 的帖子

Sub BLFUZHI2()
     Sheet1.Select
ActiveWorkbook.Names.Add Name:="我们", RefersToR1C1:="=Sheet1!R1C1"
    'Cells(1, 1) = 100
    Cells(1, 2) = "我"
    Cells(1, 3) = "们"
    Cells(1, 4) = "=" & Cells(1, 2) & Cells(1, 3)   "  *  "    Cells(1, 5)
End Sub
请你给看这个，后边红色部分我不会连接。

dahanwudi

回复 放浪形骸 的帖子

后边连接部分在书上哪儿找呀？

放浪形骸

dahanwudi 发表于 2011-4-22 20:18
回复 放浪形骸 的帖子

Sub BLFUZHI2()

文本内容之间用 & 连接

dahanwudi

回复 放浪形骸 的帖子

红色部分你给示范一下，我不会

放浪形骸

在引号前后插入一个空格和&

dahanwudi

回复 放浪形骸 的帖子

我试了，显示：缺少结束语句