Code VBA Nội Suy Một Chiều Hai Chiều Trong Excel

Cách sử dụng NỘI SUY 2 CHIỀU: Cú pháp: NS2C(Bảng ; Gía trị theo cột ; Gía trị theo hàng) Vd: Với A=2, B=0,89 thì giá trị C cần nội suy như sau: Kết quả: Hàm này dùng cho BTL nền móng và kết cấu áo đường rất nhiều NỘI SUY NGANG: NS_NGANG(Bảng , Gía trị nội suy; Thứ tự hàng chứa giá trị cần nội suy ) VD VỚI A=1,5 THÌ B =3 trong đó 1,5 là giá trị của A, 2 là thứ tự hàng của B ( A là hàng 1, B là hàng 2) NỘI SUY DỌC: Cú pháp: NS_DOC(BẢNG, GIÁ TRỊ NỘI SUY, THỨ TỰ CỘT CHỨA GIÁ TRỊ CẦN NỘI SUY )

VỚI A=1,5 THÌ B =3  trong đó 2 là thứ tự cột B

VỚI A=1,5 THÌ C =4.5  trong đó 3 là thứ tự cột C Code tại đây Function NS_DOC(ar As Range, x As Double, n As Byte) 'bien n de noi suy trong truong hop co nhieu hon 3 cot Dim i As Integer If ar.Cells(2, 1) > ar.Cells(1, 1) Then i = 1 Do While ar.Cells(i, 1) <= x And i < ar.Rows.Count i = i + 1 Loop Else i = 1 Do While ar.Cells(i, 1) >= x And i < ar.Rows.Count i = i + 1 Loop End If NS_DOC = ar.Cells(i - 1, n) + (ar.Cells(i, n) - ar.Cells(i - 1, n)) * (x - ar.Cells(i - 1, 1)) / (ar.Cells(i, 1) - ar.Cells(i - 1, 1)) End Function Function NS2C(ar As Range, x As Double, y As Double) Dim i, j As Integer Dim a1, a2 As Double 'xac dinh chi so i voi cells(i-1,1)<x<cells(i,1) If ar.Cells(3, 1) > ar.Cells(2, 1) Then i = 2 Do While ar.Cells(i, 1) <= x And i < ar.Rows.Count i = i + 1 Loop Else i = 2 Do While ar.Cells(i, 1) >= x And i < ar.Rows.Count i = i + 1 Loop End If 'xac dinh chi so j voi cells(1,j-1)<y<cells(1,j) If ar.Cells(1, 3) > ar.Cells(1, 2) Then j = 2 Do While ar.Cells(1, j) <= y And j < ar.Columns.Count j = j + 1 Loop Else j = 2 Do While ar.Cells(1, j) >= y And j < ar.Columns.Count j = j + 1 Loop End If 'xac dinh 2 gia tri a1, a2 tu noi suy 1 chieu voi x truoc a1 = ar.Cells(i - 1, j - 1) + (ar.Cells(i, j - 1) - ar.Cells(i - 1, j - 1)) * (x - ar.Cells(i - 1, 1)) / (ar.Cells(i, 1) - ar.Cells(i - 1, 1)) a2 = ar.Cells(i - 1, j) + (ar.Cells(i, j) - ar.Cells(i - 1, j)) * (x - ar.Cells(i - 1, 1)) / (ar.Cells(i, 1) - ar.Cells(i - 1, 1)) 'noi suy 1 chieu theo cot tu 2 gia tri a1 va a2 o tren NS2C = a1 + (a2 - a1) * (y - ar.Cells(1, j - 1)) / (ar.Cells(1, j) - ar.Cells(1, j - 1)) End Function Function NS_NGANG(ar As Range, x As Double, n As Byte) Dim j As Integer If ar.Cells(1, 2) > ar.Cells(1, 1) Then j = 1 Do While ar.Cells(1, j) <= x And j < ar.Columns.Count j = j + 1 Loop Else j = 1 Do While ar.Cells(1, j) >= x And j < ar.Columns.Count j = j + 1 Loop End If NS_NGANG = ar.Cells(n, j - 1) + (ar.Cells(n, j) - ar.Cells(n, j - 1)) * (x - ar.Cells(1, j - 1)) / (ar.Cells(1, j) - ar.Cells(1, j - 1)) End Function

Facebook Comments

• hàm nội suy excel

Trước đó

Văn bản số 3095/QĐ-BGTVT quy định về giải pháp công nghệ tạm thời đoạn đầu cầu, cống

Tiếp theo

Cách dùng Hàm Vlookup nhiều điều kiện

Tìm thứ bạn quan tâm ở đây nhé

Tìm kiếm cho:

Chúng tôi trên facebook

Bài viết mới

• Thống kê các dự án hầm được thi công bằng máy đào TBM
• Tổng hợp các dự án hầm vượt sông trên thế giới
• Thông tin chi tiết về tuyến đường sắt đô thị số 3 đoạn Nhổn Ga Hà Nội
• Các chất phụ gia trong sự cố phun trào phụ gia tại Hà Nội có độc hại không?
• Sự cố trào phụ gia khi thi công hầm bằng máy đào TBM tại tuyến số 3 Hà Nội: nguyên nhân, giải pháp và bài học kinh nghiệm
• Tổng hợp các bảng tính thiết kế kết cấu áo đường
• Bản đồ quy hoạch hệ thống đường sắt đô thị thành phố Hồ Chí Minh
• Bản đồ quy hoạch các tuyến đường sắt đô thị Hà Nội

Sản phẩm

• Sách- Công nghệ xây dựng đường sắt cao tốc Trung Quốc - Tập 2 400.000 ₫ Giá gốc là: 400.000 ₫.390.000 ₫Giá hiện tại là: 390.000 ₫.
• Sách- Công nghệ xây dựng đường sắt cao tốc Trung Quốc - Tập 1 300.000 ₫
• Sách- Cầu Bê Tông Cốt Thép Trên Các Tuyến Đường Sắt Đô Thị - Tập 2 199.000 ₫ Giá gốc là: 199.000 ₫.197.000 ₫Giá hiện tại là: 197.000 ₫.

NỘI DUNG PHỔ BIẾN

AUTOCAD autolisp BIM BIM là gì Block BÍ KÍP SỐNG BÍ KÍP VĂN PHÒNG BẢNG TÍNH CAD công nghệ BIM DOWNLOAD EXCEL GIẢI TRÍ HỌC & HỌC HỌC THIẾT KẾ HỌC TIẾNG ANH HỒ SƠ THIẾT KẾ kinh nghiệm thiết kế lan lisp LISP CAD MUSIC OFFICE PDF PHOTOSHOP PHẦN MỀM THIẾT KẾ PHẦN MỀM TIỆN ÍCH plaxis revit sách chuyên ngành TBM text thiết kế cầu thủ thuật excel TIÊU CHUẨN THIẾT KẾ TRĂN TRỞ CUỘC SỐNG tunnel TÀI LIỆU THAM KHẢO tường vây ung thư vba WORD Đường sắt tốc độ cao đường sắt đô thị ổ cứng NAS

Lịch

Tháng 2 2026

H	B	T	N	S	B	C
1
2	3	4	5	6	7	8
9	10	11	12	13	14	15
16	17	18	19	20	21	22
23	24	25	26	27	28

« Th3

Bản quyền © 2026 | Theme WordPress viết bởi MH Themes

Go to mobile version