Mình có bảng số liệu gởi kèm nhờ các bác lập giúp mình cách lập hàm nội suy nhé, thank!
Xem bảng in
Mình có bảng số liệu gởi kèm nhờ các bác lập giúp mình cách lập hàm nội suy nhé, thank!
Bác cho em hỏi là em đã làm tương tự, cop module vào rồi mà vẫn không chạy được
http://www.giaxaydung.vn/diendan/newattachment.php?values[t]=7138&contenttypeid=1&poststarttime=1393464796&pos thash=f0393b14cf63ea3d619841a9239c58f9
Em đã cop module của bác vào mà sao không chạy được à!
http://www.giaxaydung.vn/diendan/newattachment.php?values[t]=7138&contenttypeid=1&poststarttime=1393464796&pos thash=f0393b14cf63ea3d619841a9239c58f9
ah cho em xin cach tinh noi suy 3 chieu duoc không.ưm bay gio dang lam bai tap lon mon nen mong ma khong biet phai tinh noi suy the nao het
Xin gởi bạn file đồ án nền móng.có mục nội suy ở sheet cuối.
Đọc kỹ từng mục của file và làm nhé,chúc thành công
Mình viết cái này đã lâu, nay trình làng để làm quen với các bạn trên diễn đàn
PHP Code:Option Explicit
Function NoiSuyGPE(VungTra As Range, xX As Double, yY As Double) As Double
'Ham Noi Suy 2 Chieu Tai GPE.COM (Sa_DQ)'
Dim iW As Integer, jI As Integer
Dim x1 As Double, x2 As Double, y1 As Double, y2 As Double
Dim a11 As Double, a12 As Double, a21 As Double, a22 As Double
Dim t1 As Double, t2 As Double
Dim RgNg As Range, RgDoc As Range
Dim Rng As Range, Clls As Range
Set RgNg = VungTra.Cells(1, 1).Resize(1, VungTra.Columns.Count - 1)
Set RgDoc = VungTra.Cells(1, 1).Resize(VungTra.Rows.Count, 1)
1 For Each Rng In RgNg
2 If Rng <= yY And Rng.Offset(, 1) >= yY Then
3 y1 = Rng: y2 = Rng.Offset(, 1)
For Each Clls In RgDoc
5 If Clls <= xX And Clls.Offset(1) >= xX Then
x1 = Clls: x2 = Clls.Offset(1)
'3*'
7 a11 = Cells(Clls.Row, Rng.Column): a12 = Cells(Clls.Row, Rng.Column + 1)
a21 = Cells(Clls.Row + 1, Rng.Column): a22 = Cells(Clls.Row + 1, Rng.Column + 1)
9 t1 = (a12 - a11) * (yY - y1) / (y2 - y1) + a11
t2 = (a22 - a21) * (yY - y1) / (y2 - y1) + a21
11 NoiSuyGPE = (t2 - t1) * (xX - x1) / (x2 - x1) + t1
Exit For
13 End If
Next Clls
15 End If
Next Rng
17 If NoiSuyGPE = 0 Then '!'
msgbox "gia tri can tim ko nam trong bang tra", vbInformation
19 End If
End Function
Mình chia sẻ với mọi người file nội suy 1-2 chiều giúp đẩy nhanh tốc độ làm việc :D
rất bổ ích. xin chân thành cảm ơn............................................... ............
Xin chia sẻ với cả nhà ứng dụng Sổ tay xây dựng để tính nhanh trên điện thoại nhé:
https://goo.gl/bIjMlS