Mình không biết file này lập trình như thế nào

[xfìrely]

http://www.orbitfiles.com/download/id3272209806
các bạn down về và xem họ lập trình như thế nào hộ mình nhé.thanks.
Ví dụ như xem ô D161 chẳng hạn.những lệnh này đều bắt nguồn từ công việc nội suy trong tính toán của mình.

 

[Po_Pikachu]

Đây là lập trình VBA (hoặc nói chính xác hơn là VBE). Bạn muốn xem những công thức đặt biệt đó thì nhấn Alt + F11 -> Nhấp vào mục Module bên dưới các tên Sheet -> Nhấp vào Module1 bạn sẽ thấy có rất nhiều Function trong. Còn đây là Function của dùng đã tạo và ứng dụng nó trong ô D161:

'Tim he so dong luc Public Function hsDL(Epsilon As Double, Wo As Double, lamda As Double) Dim x(1 To 21) As Double Dim Y(1 To 21) As Double 'Khai bao If lamda = 0.3 Then x(1) = 0: Y(1) = 1.17 x(2) = 0.01: Y(2) = 1.25 x(3) = 0.02: Y(3) = 1.33 x(4) = 0.03: Y(4) = 1.42 x(5) = 0.04: Y(5) = 1.5 x(6) = 0.05: Y(6) = 1.58 x(7) = 0.06: Y(7) = 1.67 x(8) = 0.07: Y(8) = 1.75 x(9) = 0.08: Y(9) = 1.8 x(10) = 0.09: Y(10) = 1.83 x(11) = 0.1: Y(11) = 1.9 x(12) = 0.11: Y(12) = 1.95 x(13) = 0.12: Y(13) = 1.97 x(14) = 0.13: Y(14) = 2 x(15) = 0.14: Y(15) = 2.05 x(16) = 0.15: Y(16) = 2.06 x(17) = 0.16: Y(17) = 2.1 x(18) = 0.17: Y(18) = 2.15 x(19) = 0.18: Y(19) = 2.17 x(20) = 0.19: Y(20) = 2.15 x(21) = 0.2: Y(21) = 2.1 End If If lamda = 0.15 Then x(1) = 0: Y(1) = 1.17 x(2) = 0.01: Y(2) = 1.45 x(3) = 0.02: Y(3) = 1.7 x(4) = 0.03: Y(4) = 1.92 x(5) = 0.04: Y(5) = 2 x(6) = 0.05: Y(6) = 2.1 x(7) = 0.06: Y(7) = 2.2 x(8) = 0.07: Y(8) = 2.25 x(9) = 0.08: Y(9) = 2.3 x(10) = 0.09: Y(10) = 2.4 x(11) = 0.1: Y(11) = 2.45 x(12) = 0.11: Y(12) = 2.5 x(13) = 0.12: Y(13) = 2.6 x(14) = 0.13: Y(14) = 2.7 x(15) = 0.14: Y(15) = 2.75 x(16) = 0.15: Y(16) = 2.76 x(17) = 0.16: Y(17) = 2.77 x(18) = 0.17: Y(18) = 2.78 x(19) = 0.18: Y(19) = 2.77 x(20) = 0.19: Y(20) = 2.76 x(21) = 0.2: Y(21) = 2.75 End If Dim i As Integer If Epsilon = x(i) And Epsilon  Thân.

 

[xfìrely]

cám ơn bạn rất nhiều vì sự nhiệt tình của bạn.