|
24#

樓主 |
發(fā)表于 2016-2-16 08:58:46
|
只看該作者
ngsxngtd 發(fā)表于 2016-2-15 20:51 ![]()
3 u8 ^5 V, x! }9 m" R8 K6 BAC-arctan(AC/80)*80=1是數(shù)學(xué)問題。
+ [$ }: D9 n4 P' I" Z3 f子子大俠既然讀過VB,那么讀VBA代碼就應(yīng)該沒什么困難,核心是數(shù)值計(jì)算 ...
. Y$ ^* P) I% z- B* n; H3 B這位一看就是,去看過原帖然后到這里踢場來了。開個(gè)玩笑。9 J: H' |9 |! a; n& d/ Q& @& G9 S5 N
/ q3 P( }2 Q& b" O5 j" b謝謝您的認(rèn)真編程和回復(fù)。2 j- S0 q' |& ^; t! J. j
VBA我也是非常喜歡的。* R0 v) `! }* h4 J3 F
我的VB停留于VB6.0的年代,然后沒機(jī)會(huì)去弄,就改用VBA了。2 {- p! M% ]+ L) L; f# N3 T
看你的程序真是漂亮多了,佩服一下。% S1 Q1 x4 Z8 [* Y* ]" G+ D
$ E( p9 a0 Q8 r; Q) { Z在需要進(jìn)行復(fù)雜迭代和循環(huán)計(jì)算和積分計(jì)算的時(shí)候,我會(huì)用VBA來做。
5 _! \8 Q8 Q- `+ {, \5 z. z我的水平一般是在Sheet里面添加一個(gè)Button,然后在里面寫程序。
# ]0 I6 r* R1 F9 qDim A as Double& y) t- U. G. j3 _ j' g
Dim B as Double
# ^+ `# ~% o V2 nDim Sum as Double- m& [9 o0 j+ z( D* @2 {" N% D& g/ a
2 r; C) p) m3 gA=Cells(6,3)9 F% ?6 m# t1 c+ q7 q0 }: r8 a
B=Cells(7,3): G1 E# g: a2 y3 j) J9 G
For I =1 to 100/ {- T3 m8 L/ ]3 g6 f
blabla.......6 h: J' B& m$ k0 r$ w8 f
Next
$ h3 F3 j" \7 ?+ l' D$ m! oCells(8,3)=Sum7 p: i* Q Q8 \- i& m
; ^* |, o2 l; ]& L. ?
基本是這個(gè)水平。見笑了。: C) c4 r- m8 [6 I' h2 s
+ y/ P7 z$ L& I+ r: Q8 ^8 P; `
您的附件我有下載打開,但是Excel Fleeze了,所以沒能看到里面程序。 D" S7 r6 f" |
看您發(fā)的圖片數(shù)據(jù),像是一個(gè)凸輪的計(jì)算。
8 r7 M; b; ]3 V, |- m看熱力計(jì)算也很久違了,我是十年前讀碩士的時(shí)候接觸Enthapy的。" b: t1 I* a- N9 O# x
我的Master theme是燃燒的數(shù)值計(jì)算,主要是用N-S方程式和k-e模型作CFD解析。2 x+ W1 y* o8 |: s5 o& u, E4 i9 S
不過我做的不太好,勉強(qiáng)畢業(yè)而已。遙遠(yuǎn)的回憶。. I6 E( l: h1 Q) G# ~
I* ?4 v. t. h {, s; l8 U1 K& d再次感謝您的回復(fù)。
) R0 y, f; }- Q |
|