Office中国论坛/Access中国论坛

标题: 高手帮忙改一下宏的编程，只有几句。我不懂，老是出错。帮帮忙 [打印本页]

作者: znz3000 时间: 2004-12-10 23:47
标题: 高手帮忙改一下宏的编程，只有几句。我不懂，老是出错。帮帮忙
Sub add()

Dim I

For I = 1 To 9999

If Ceil(I, 1) <> " " Then

Ceil(I, 2).Value = "=" + Ceil(I, 1).Text

End If

Next I

End Sub

我想实现在I列输入公式，在J列得到公式结果。

作者: tanjh 时间: 2004-12-11 00:02

高手帮忙改一下宏的编程，只有几句。我不懂，老是出错。帮帮忙

Sub add()Dim I

For I = 1 To 9999

If Ceil(I, 1) <> " " Then

Ceil(I, 2).Value = "=" + Ceil(I, 1).TextEnd If

Next I

End Sub红色的改成CELL试试。

作者: znz3000 时间: 2004-12-11 03:29
提示子过程或函数未定义

作者: 老鬼 时间: 2004-12-11 05:12
将过程名ADD()改成其他名字试试，或者将Ceil(I, 2).Value = "=" + Ceil(I, 1).Text改成Cell(I, 2).Value = "=" + Cell(I, 1).value

作者: foxxp 时间: 2004-12-11 22:35
试试这个。

Sub add()

Dim I

For I = 1 To 9999

If Cells(I, 1) <> "" Then

Cells(I, 2).Formula = "=" + Cells(I, 1).Value

Else

Cells(I, 2).Formula = "=" + """" & """"

End If

Next I

End Sub

[此贴子已经被作者于2004-12-11 14:38:30编辑过]

作者: znz3000 时间: 2004-12-13 02:10
太感激了，真不知道如何谢你，帮了大忙了

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)