Excel nội suy 2 chiều.

[MrHienNo1]

2 file nội suy gửi tặng các bạn, mong các bạn làm việc với nội suy nhanh hơn chút thời gian đỡ mất công ngồi bấm máy tính.

 

[aquila_lg85]

ummm, cái này đúng là nội suy 2 chiều thật, nhưng ko phải là sử dụng macro, k dùng đc với bảng bất kỳ

 

[MrHienNo1]

ummm, cái này đúng là nội suy 2 chiều thật, nhưng ko phải là sử dụng macro, k dùng đc với bảng bất kỳ

Cái đó tui chỉ lập để tra bình thường thôi. Chứ lập marco làm chi cho lâu. Nếu như tính toán các bài toán phức tạp ứng dụng trong đường hoặc làm trong dự toán thì mới cần lập macro. Bạn có bản nào lập macro share cho anh em tham khảo nhé.!=D>

 

[uthue2216]

anh oi cho em xin công thức nội suy 1 chieu co dc ko anh nếu co thi up len cho em voi nhe cam on anh nhieu nhe

 

[dinhtayto]

anh oi cho em xin công thức nội suy 1 chieu co dc ko anh nếu co thi up len cho em voi nhe cam on anh nhieu nhe

vidu
a1 =>> b1
a3 =>> b3
a2 => b2 = b1 + (b3-b1)*(a2-a1)/(a3-a1)

 

[son_vq121]

Anh em dùng hàm "trend" đi:

a1 - a3 và a2 thuộc (a1:a3)
b1 - b3 và b2 thuộc (b1:b3)

Giả sử đã biết giá trị của a2 cần nội suy tìm giá trị của b2, ta dùng hàm trend, cú pháp như sau:

b2= Trend(b1:b3,a1:a3,a2)

Thực ra thì món này trên diễn đàn cũng đã thảo luận nhiều, mình chỉ nhắc lại tí thôi.

Thân!

 

[CongDuy]

2 file nội suy gửi tặng các bạn, mong các bạn làm việc với nội suy nhanh hơn chút thời gian đỡ mất công ngồi bấm máy tính.

Hì hì! Cám ơn bác nhiều. Nhưng em đang tìm hàm nội suy hai chiều sử dụng VBA. Em đã đọc nó trong sách của tác giả Phan Tự Hướng để hôm khác em post lên nha.

 

[khoamap]

Phần mềm nội suy 2 chiều

Cám ơn nhiều, nhưng hơi khó hiểu nên mình nghiên cứu thêm. Nói chung là OK

 

[012134579]

Nội suy 2 chiều!

khi mình nội suy 2 chiều mà kq ko ra dc, mình đánh giá trị trung gian nó toàn hiện time ko ah! 12:00:00 PM
12:00:00 PM
ở giá trị trung gian ko hiện ra số thực dc, mình tra như giữa 0,4 và 0,6 là giá trị 5/9 vậy mà kết quả ko như ý ah! chết rồi!

 

[lsxinh]

Lập hàm tự tạo giúp nội suy với 3 điều kiện???

Nhờ anh chị em trong diễn đàn giúp đỡ giải quyết bài toán nôi suy sau:
Cho trước các giá trị: Bc, m, H0: giả sử: Bc = 175, m = 10, H0 = 10.5;
Hãy lập hàm tự tạo kiểu Function(Bc,m,H0) để xác định Vth khi biết 3 giá trị trên.

Cảm ơn rất rất nhiều!!!
lsxinh@gmail.com



Vui lòng mở file đính kèm để xem chi tiết.

 

[KS_LHO]

Giúp mình lập hàm nội suy nhé các bác

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!

 

[Tiến Dự]

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&posthash=f0393b14cf63ea3d619841a9239c58f9

 

[Tiến Dự]

Nội suy 2 chiều trong excel!

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&posthash=f0393b14cf63ea3d619841a9239c58f9

 

[son2198]

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

 

[doninhhai]

cách làm và nội suy 2 lần của Nền móng

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

 

[Sa DQ]

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

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

 

[sumofsquare21]

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