Question

vb调用excel某一列数据，然后给函数变量赋值，得出结果

张老师，我想用vb调用excel某一列数据，然后给函数变量赋值，得出结果.求老师写个代码，谢谢
就比如y=a+b+c这个函数（我随机给的，实际函数比较复杂，只想看看各位的思路），依次读取第二行3个数据给啊a,b,c赋值，得出y值,然后将y值输出到excel表某一列。
复制粘贴党狗带，我差不多把相关代码都搜了一遍。。。

Answer 1

'引用：
'添加对该对象的引用 工程菜单-->引用，找到 Microsoft Scripting Runtime
'引用microsoft Excel 14.0 object library
'
Dim elApp As Excel.Application
Dim elBooks As Excel.Workbook
Dim ekSheet As Excel.Worksheet
Dim TblMap_Card '创建一个变量

Private Sub Command1_Click()
Dim i As Integer
openEl
Set dic = CreateObject("Scripting.Dictionary")
'MsgBox ekSheet.Cells(Rows.Count, 1).End(3).Row
For i = 2 To ekSheet.Cells(Rows.Count, 1).End(3).Row
If dic.Exists(ekSheet.Cells(i, 2).Value) Then
dic(ekSheet.Cells(i, 1).Value) = dic(ekSheet.Cells(i, 1).Value) + ekSheet.Cells(i, 2).Value
Else
dic(ekSheet.Cells(i, 1).Value) = ekSheet.Cells(i, 2).Value
End If
Next i

ekSheet.Range("H:J").Clear

'ekSheet.Cells(1, 9).Resize(1, 2) = Array("商品", "售量")
ekSheet.Cells(2, 9).Resize(dic.Count, 1) = Application.Transpose(dic.Keys)
ekSheet.Cells(2, 10).Resize(dic.Count, 1) = Application.Transpose(dic.Items)

End Sub

Private Sub openEl()
Dim myPath As String
myPath = "\week.xlsx"
Set elApp = CreateObject("Excel.Application")
Set elBooks = elApp.Workbooks.Open(App.Path & myPath)
Set ekSheet = elBooks.Worksheets("Sheet1")
'Set ekSheet = elBooks.Worksheets(1)
elApp.Visible = True
End Sub

追问

求不复制粘贴

Answer 2

你的问题还是不够明白，图中三列数是 y=ax^2+bx+c的系数吗？如果是，那就是有多个一元二次方程。x取任何值，是随机取一个数还是一组数？结果y放在哪里？没有更进一步的信息，实在是无从下手。

追问

我把问题修改了下，就想看看老师的思路，非常感谢
就比如y=a+b+c这个函数（我随机给的，实际函数比较复杂，只想看看各位的思路），依次读取第二行3个数据给啊a,b,c赋值，得出y值,然后将y值输出到excel表某一列。

Answer 3

假如Y值在D列

在D1里输入=A1+B1+C1

Answer 4

你可以用数据插值的。也可以用拟合的。

追问

能给个代码吗

Answer 5

Sub 赋值()
Dim i As Long
Dim a, b, c
For i = 2 To [A65536].End(3).Row
a = Cells(i, 1).Value
b = Cells(i, 2).Value
c = Cells(i, 3).Value
Cells(i, 4) = a + b + c
Next
End Sub