|
|
24#
樓主 |
發(fā)表于 2016-2-16 08:58:46
|
只看該作者
ngsxngtd 發(fā)表于 2016-2-15 20:51 ![]()
% d; G% `, Z! U) p" x& R& [AC-arctan(AC/80)*80=1是數(shù)學(xué)問題,。- q8 z. r& Z+ w9 I X$ J2 V
子子大俠既然讀過VB,，那么讀VBA代碼就應(yīng)該沒什么困難，核心是數(shù)值計(jì)算 ...
4 @9 t/ |* a* X' A2 v [這位一看就是,，去看過原帖然后到這里踢場(chǎng)來了,。開個(gè)玩笑。+ K# i2 A* u2 V5 a; t e
( H8 a4 d" n q: m [ b/ y謝謝您的認(rèn)真編程和回復(fù),。
, b. J) j8 u1 G. ~; V) y0 o- i4 IVBA我也是非常喜歡的,。8 G5 E! Z2 x8 |) O8 q" H+ {* _+ r
我的VB停留于VB6.0的年代，然后沒機(jī)會(huì)去弄,，就改用VBA了,。
2 B$ @, Q9 a2 w7 R' d9 [看你的程序真是漂亮多了,，佩服一下。/ ^* a' b4 X+ |5 \9 P. z- b
1 Y+ F( L7 Q( z e/ x在需要進(jìn)行復(fù)雜迭代和循環(huán)計(jì)算和積分計(jì)算的時(shí)候,，我會(huì)用VBA來做,。1 h9 w+ c3 `1 H& F6 u! f* O# N
我的水平一般是在Sheet里面添加一個(gè)Button，然后在里面寫程序,。# g9 M6 Y# w0 e+ e# P% M# C
Dim A as Double: M% |" S8 m( _% |; f
Dim B as Double E+ L, i9 f# E" P
Dim Sum as Double
8 G* v! G5 A5 c+ g' ^7 p: v* u6 M. i" [% I% U G2 I/ }( u! i
A=Cells(6,3)& h% |8 f; ]" Z J% }
B=Cells(7,3)
, n5 b: c) j3 V, mFor I =1 to 100
, ^- M8 u1 \ e$ I- C V blabla.......! O( a7 O8 X) C0 n2 U. i2 K( o; r
Next% {3 M5 Z( v8 i! }/ V+ V
Cells(8,3)=Sum
0 n) I6 ~' R7 B8 V( `' s
3 u3 B6 T0 h: K0 v( c基本是這個(gè)水平,。見笑了。& T$ k0 R5 y9 w
+ {$ f. B, U9 J4 y4 {! S
您的附件我有下載打開,，但是Excel Fleeze了,，所以沒能看到里面程序。
4 F' u' q5 f; T9 W看您發(fā)的圖片數(shù)據(jù),，像是一個(gè)凸輪的計(jì)算,。; ^$ ~. }0 u' P2 |- c
看熱力計(jì)算也很久違了，我是十年前讀碩士的時(shí)候接觸Enthapy的,。( X2 M2 ]# L0 S0 ~" N
我的Master theme是燃燒的數(shù)值計(jì)算,，主要是用N-S方程式和k-e模型作CFD解析。$ L! a# H9 w8 {. i0 {
不過我做的不太好,，勉強(qiáng)畢業(yè)而已,。遙遠(yuǎn)的回憶。7 M. I. p$ B" A h
0 m' q% m" \9 [: @- p2 h
再次感謝您的回復(fù),。
) T' e+ d/ x) ~' F2 V7 U |
|
樓主: 子子61961
[復(fù)制鏈接]
發(fā)表于 2016-2-15 20:53:15
發(fā)表于 2016-2-16 09:30:00
