想请教各位一个问题：如何EXCEL里的公式在VBA里输入？

wswx · 发表于 2002-3-28 14:42

To:xyzbb Try it! [upload=rar]uploadImages/200232814414936555.rar[/upload]

Hunter · 发表于 2002-3-28 09:07

在顶端点击第 3 个按钮-回复帖子，再点上传图片。

wswx · 发表于 2002-3-27 23:23

To:xyzbb 上传不方便，就Email给我！

Hunter · 发表于 2002-3-27 17:55

少了个“f”，应该是： Range("C1:C10").Formula = "=VLOOKUP(A:A,list,3,FALSE)"

wswx · 发表于 2002-3-27 12:43

To:xyzbb Sub temp() Dim i& For i = 1 To 10 Cells(i, 3) = "=Vlookup(A" + Format(i) + ",LIST,3,FALSE)" Next i End Sub

[此贴子已经被wswx于2002-3-27 12:43:38编辑过]

Hunter · 发表于 2002-3-27 13:22

Sub temp() range("c1:c10").ormula= "=Vlookup(A:A,LIST,3,FALSE)" End Sub

wswx · 发表于 2002-3-27 16:40

To:xyzbb 上传一个实例文件，让我看看你要哪种效果？

惊叹不已 · 发表于 2002-3-27 12:18

可以,用WorksheetFunction,下面是帮助里面的例子. WorksheetFunction 属性示例本示例对单元格区域“A1:A10”使用 Min 工作表函数，并显示结果。 Set myRange = Worksheets("Sheet1").Range("A1:C10") answer = Application.WorksheetFunction.Min(myRange) MsgBox answer

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