|
24#

樓主 |
發(fā)表于 2016-2-16 08:58:46
|
只看該作者
ngsxngtd 發(fā)表于 2016-2-15 20:51 ; [$ N! i# K! `3 k7 u2 k1 f
AC-arctan(AC/80)*80=1是數(shù)學(xué)問題,。
) w1 Y( D9 }8 h' ^, ?1 T( d. G, w7 i子子大俠既然讀過VB,那么讀VBA代碼就應(yīng)該沒什么困難,,核心是數(shù)值計算 ...
" T8 i; G- ^7 S' Q0 m. ]% B3 i這位一看就是,,去看過原帖然后到這里踢場來了。開個玩笑,。
a8 D7 |9 A" Z1 J/ n. E
) u1 r1 x5 w8 I$ o: L7 _+ c謝謝您的認(rèn)真編程和回復(fù),。1 _$ X# f/ L# K7 r
VBA我也是非常喜歡的。
1 X3 Q* H' b/ ?6 R) q! F我的VB停留于VB6.0的年代,,然后沒機(jī)會去弄,,就改用VBA了。
0 S9 {1 q& s; t+ X2 u# C2 K2 z看你的程序真是漂亮多了,,佩服一下,。
6 L0 F* \8 x# c$ R% {. D! h$ F8 R- s
在需要進(jìn)行復(fù)雜迭代和循環(huán)計算和積分計算的時候,我會用VBA來做,。
8 b5 L6 s/ v8 o. Z2 b0 {我的水平一般是在Sheet里面添加一個Button,,然后在里面寫程序。
2 e* F3 s" T7 ?( n. |& dDim A as Double
9 ~( n+ i) q& `) e1 K0 W# V+ X: oDim B as Double
+ u0 }8 u- L z% `( D: ADim Sum as Double
/ X. ~# u% p0 _; t0 o8 d2 W$ [- o; \ ^0 b. |9 ^( J& J
A=Cells(6,3)% n) a& x+ u$ l" r6 B
B=Cells(7,3)& M3 e; S( Q# E# K- U
For I =1 to 1005 {& J- K" U" d) R' S
blabla.......
# R& E) R$ l6 [4 F. E1 C5 TNext& _& Z# a9 w0 R5 h3 W( q$ H* H
Cells(8,3)=Sum
; G' I7 u/ q8 X: V z6 }2 z- _. ~: U) h$ V
基本是這個水平,。見笑了,。9 Y8 K) C" U2 J/ {9 |" m2 F
- d$ X- I8 b+ |6 ?5 I' R- |, f
您的附件我有下載打開,但是Excel Fleeze了,,所以沒能看到里面程序,。
2 d6 p+ J" D/ I2 ^3 [9 D看您發(fā)的圖片數(shù)據(jù),像是一個凸輪的計算。0 b9 X7 Y( C4 ?1 N8 V; j
看熱力計算也很久違了,,我是十年前讀碩士的時候接觸Enthapy的,。
4 M9 n+ I1 {1 v8 T我的Master theme是燃燒的數(shù)值計算,主要是用N-S方程式和k-e模型作CFD解析,。* t; b+ ?: k6 c% O( E! y
不過我做的不太好,,勉強畢業(yè)而已。遙遠(yuǎn)的回憶,。7 e8 @: @8 T% E1 k
. p" i$ F! T6 a5 ]
再次感謝您的回復(fù),。" K% e# x) }0 i! M: X. `- k
|
|