|
|
ngsxngtd 發表于 2016-2-15 20:51 ![]()
4 U/ U- N9 O" ^' ?" D/ ~1 ]AC-arctan(AC/80)*80=1是數學問題。
% l, P" @& Q& ]: |# q/ Q+ g& C# X子子大俠既然讀過VB，那么讀VBA代碼就應該沒什么困難，核心是數值計算 ...
這位一看就是，去看過原帖然后到這里踢場來了。開個玩笑。
5 O% W0 j8 p/ a) S
4 ^! ]+ U7 z8 _7 k$ e( _3 L; V2 d謝謝您的認真編程和回復。: s8 N( K$ A9 K( p
VBA我也是非常喜歡的。
* e# E' x$ j% i4 y" t我的VB停留于VB6.0的年代，然后沒機會去弄，就改用VBA了。
* P/ k' j/ Y/ k) L& C* }看你的程序真是漂亮多了，佩服一下。, e7 _/ Y( s: c* D$ r# t6 i
& P' d6 Z& l7 d8 y1 U
在需要進行復雜迭代和循環計算和積分計算的時候，我會用VBA來做。- r* F+ w/ n: s. {# e8 u! O+ B4 n; G
我的水平一般是在Sheet里面添加一個Button，然后在里面寫程序。# q- ]4 a$ E* U- h& p0 o6 N$ {( D: f
Dim A as Double/ }/ G3 f. y/ o1 O }4 l) R$ |- {
Dim B as Double L) y4 q0 b/ C: k8 I- V. Q' L
Dim Sum as Double& M X# R9 k$ Y( q2 ^! M4 e/ }5 M* ^* s
2 E# b4 f! x& a: o
A=Cells(6,3)
$ ` O4 ~: T1 `" o7 X" n) S, MB=Cells(7,3)
( P% F' p3 _" F! Y' P9 w% tFor I =1 to 100( l' m' T% d0 @, F' |6 {
blabla.......
2 T! x& r8 x5 t. ], J7 r7 }Next
% |" _+ F2 M- WCells(8,3)=Sum
6 t1 D: j! h0 j# ^7 W! H- l% J: J7 I; b
基本是這個水平。見笑了。
: m7 h( [, ~+ {
: s4 z* u2 A6 Z$ @5 m2 |7 y1 o您的附件我有下載打開，但是Excel Fleeze了，所以沒能看到里面程序。* E( e6 `, g( e$ N- Z4 p1 m
看您發的圖片數據，像是一個凸輪的計算。2 x+ g5 Z) j5 A6 m
看熱力計算也很久違了，我是十年前讀碩士的時候接觸Enthapy的。: E* K7 X% S; H: D& k. c" r- `
我的Master theme是燃燒的數值計算，主要是用N-S方程式和k-e模型作CFD解析。0 j' S. Q! i& M0 B
不過我做的不太好，勉強畢業而已。遙遠的回憶。
) j3 t! m8 h2 n2 g5 v
' h# a/ ~& s: x/ a+ c. b6 w再次感謝您的回復。7 ? C% H$ j7 q. r( g/ X3 B9 D
|
|
樓主: 子子61961
發表于 2016-2-15 20:53:15
發表于 2016-2-16 09:30:00
