|
|
ngsxngtd 發表于 2016-2-15 20:51 ![]()
% D4 e& Z/ Q# EAC-arctan(AC/80)*80=1是數學問題。
, r+ J# V7 d2 G- X子子大俠既然讀過VB，那么讀VBA代碼就應該沒什么困難，核心是數值計算 ...
! U4 h0 W: O/ W2 H$ ^ G3 L: W這位一看就是，去看過原帖然后到這里踢場來了。開個玩笑。2 v" g, H g: v4 j# v$ `9 |! @
$ c$ Z9 ?! F$ u- l' ?4 y6 Z謝謝您的認真編程和回復。6 U+ I- V2 r& q: y3 U/ J
VBA我也是非常喜歡的。
- J" P% n4 b8 [# v7 v3 D8 T* d' f我的VB停留于VB6.0的年代，然后沒機會去弄，就改用VBA了。
* Q: F1 U! g8 [2 K* G! ]% l4 W4 m$ I看你的程序真是漂亮多了，佩服一下。+ F8 H/ F# H/ O- y' L( F; f
5 A% ]# ?+ c- H% N
在需要進行復雜迭代和循環計算和積分計算的時候，我會用VBA來做。2 D- O* C7 |' Y. n3 m1 s
我的水平一般是在Sheet里面添加一個Button，然后在里面寫程序。
& q7 v1 E. ~% z! d" oDim A as Double
* {4 B5 d4 ~+ @' T; f* U+ c* K5 t* r: lDim B as Double; X- Z3 S( \& `. m" A
Dim Sum as Double3 r. \3 F; F1 Y: W/ G7 b
$ R( ?/ m' S: a: ^, T& _
A=Cells(6,3)
; c9 I( U8 C; H- c! b7 t0 h* r4 l7 PB=Cells(7,3)
6 v) ]* i. ^: g% L8 A! _For I =1 to 100; X9 t2 G3 \) [! }& m
blabla.......
7 K% o9 e. x" l' m$ [4 u1 ?3 Y/ PNext, D# M) _! z1 \% e' A
Cells(8,3)=Sum) E9 v5 B e4 p) B7 H
5 a; q- }& t0 B$ k0 m
基本是這個水平。見笑了。
2 W' `: _7 ]9 E1 F0 [ 1 ]' O5 J+ }7 x- ^
您的附件我有下載打開，但是Excel Fleeze了，所以沒能看到里面程序。8 x6 c7 E F$ F/ S
看您發的圖片數據，像是一個凸輪的計算。
/ Q3 O* P# j( _& m+ ^' i! C看熱力計算也很久違了，我是十年前讀碩士的時候接觸Enthapy的。5 e# C! Y8 l$ r5 H7 H( E! J0 D; F$ b
我的Master theme是燃燒的數值計算，主要是用N-S方程式和k-e模型作CFD解析。
5 S2 t( W% V3 `2 N, d6 c X4 F; K5 ]不過我做的不太好，勉強畢業而已。遙遠的回憶。& e$ S# g a* n; ]) a
9 E. w# L" I7 C
再次感謝您的回復。5 r7 ]; A! `/ V
|
|
樓主: 子子61961
發表于 2016-2-15 20:53:15
發表于 2016-2-16 09:30:00
