从表格中插入数据 [英] Interpolate data from tabel

问题描述

嗨。


我需要在我的表格中插入som数据。

我的表格看起来像这样。

Y X

0

0 0,026

0,037

0,003 0,038

0,005 0,064

0,067

0,074

0,008 0,077

0,01 0,09

0,093

但是我需要一种聪明的方法来插入Y中的emty位置。

i确实在vba中生成som代码，但是大约需要3分钟1100

记录集，它的速度很慢，因为即时通讯要求som提供一些帮助

代码。

希望somone可以提供帮助：（

谢谢

Hi.

I need to interpolate som data i have in my tabel.
my tabel looks like this.
Y X
0
0 0,026
0,037
0,003 0,038
0,005 0,064
0,067
0,074
0,008 0,077
0,01 0,09
0,093

but i need a smart way to interpolate the emty places in Y.
i did make som code in vba, but it takes about 3 min for 1100
recordset, and its to slow, there for im asking for some help with som
codes .
hope somone can help :(
thanks

推荐答案

这是旧的。也许它会有所帮助。也许不是。


Dim m作为货币，b作为货币

Sub sInterpolation（）

Dim strSQL As String

调用sRegressionLine

strSQL =" UPDATE Data SET Data.Y ="& _

"（& m&"）"&am p; * [X] +（"& b&"）" &安培; _

" WHERE（（（Data.Y）为空）AND（（Data.X）不为空））;

CurrentDb.Execute strSQL < br $>
End Sub

Sub sRegressionLine（）

Dim dbs作为数据库，rcs作为记录集

设置dbs = CurrentDb（ ）

设置rcs = dbs.OpenRecordset（" SELECT Sum（Da​​ta.X）AS SumX，& _

" Sum（[X] * [ X]）作为SumXX，Sum（Da​​ta.Y）AS SumY，Sum（[X] * [Y]）AS SumXY，

"& _

" ; Count（Data.X）AS N FROM Data"& _

" WHERE（（（Data.X）不为空）AND（（Data.Y）不为空）） ;"）

m =（rcs！N * rcs！SumXY - rcs！SumX * rcs！SumY）/（rcs！N * rcs！SumXX

- rcs！

SumX ^ 2）

b =（rcs！SumY * rcs！SumXX - rcs！SumX * rcs！SumXY）/（rcs！N *

rcs！SumXX -

rcs！SumX ^ 2）

End Sub

This is old. Maybe it will help. Maybe not.

Dim m As Currency, b As Currency
Sub sInterpolation()
Dim strSQL As String
Call sRegressionLine
strSQL = "UPDATE Data SET Data.Y = " & _
"(" & m & ")" & " * [X] + (" & b & ")" & _
"WHERE (((Data.Y) Is Null) AND ((Data.X) Is Not Null));"
CurrentDb.Execute strSQL
End Sub
Sub sRegressionLine()
Dim dbs As Database, rcs As Recordset
Set dbs = CurrentDb()
Set rcs = dbs.OpenRecordset("SELECT Sum(Data.X) AS SumX, " & _
"Sum([X]*[X]) AS SumXX, Sum(Data.Y) AS SumY, Sum([X]*[Y]) AS SumXY,
" & _
"Count(Data.X) AS N FROM Data " & _
"WHERE (((Data.X) Is Not Null) AND ((Data.Y) Is Not Null));")
m = (rcs!N * rcs!SumXY - rcs!SumX * rcs!SumY) / (rcs!N * rcs!SumXX
- rcs!
SumX ^ 2)
b = (rcs!SumY * rcs!SumXX - rcs!SumX * rcs!SumXY) / (rcs!N *
rcs!SumXX -
rcs!SumX ^ 2)
End Sub

编译器说有一个合成文件错误

strSQL =" UPDATE Data SET Data.Y =（" &安培; m& "）" &安培; " * [X] +（& b

&"）" &安培; _

" WHERE（（（Data.Y）为空）AND（（Data.X）不为空））;


需要，

the compiler says that there is a syntaxt error on
strSQL = "UPDATE Data SET Data.Y = (" & m & ")" & " * [X] + (" & b
& ") " & _
" WHERE (((Data.Y) Is Null) AND ((Data.X) Is Not Null));"

need ,

代码sems非常好，但我无法在vba上工作（访问）

the code sems very nice, but i cant get′it work on vba (access)

这篇关于从表格中插入数据的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！