|
|
楼主 |
发表于 2016-2-16 08:58:46
|
显示全部楼层
ngsxngtd 发表于 2016-2-15 20:51  6 Z6 P0 r/ X3 Y! h& C6 V* J8 ~* q
AC-arctan(AC/80)*80=1是数学问题。
/ z( E6 {5 P- n( ]/ m* l _; w子子大侠既然读过VB，那么读VBA代码就应该没什么困难，核心是数值计算 ...
* d' Q4 X% u! C" S) N这位一看就是，去看过原帖然后到这里踢场来了。开个玩笑。# i: u: r8 Q! P |+ ^! A! O! ^' v$ A
- }# t) Q' G* ^: u- i# I$ I. G
谢谢您的认真编程和回复。
5 ~" G& U: M: X0 H0 `! V Z) \VBA我也是非常喜欢的。/ C& F; @$ z9 g$ w" p, I. P
我的VB停留于VB6.0的年代，然后没机会去弄，就改用VBA了。% B7 P, ], P) Q( ]5 {# \
看你的程序真是漂亮多了，佩服一下。& O$ x% u" Q6 l) `. w
$ Z9 W; W3 b4 M2 k1 ]在需要进行复杂迭代和循环计算和积分计算的时候，我会用VBA来做。' X5 T5 ~$ _3 V$ w- i
我的水平一般是在Sheet里面添加一个Button，然后在里面写程序。
7 ~" Q, l7 z- M f6 F% CDim A as Double
w6 M" d& o+ ?+ t$ YDim B as Double
! ~! H b* W" x/ ?3 fDim Sum as Double L# }$ ?2 V5 x, n- Y8 f
3 L2 S' [! N' `A=Cells(6,3)/ w2 E$ c1 C0 z2 d u7 t
B=Cells(7,3)/ P1 x: {7 V. a: e
For I =1 to 100
9 k2 t- _! A2 c; p2 P9 K) B( { blabla.......
+ n! V( a P# S, D# TNext/ X* J7 M% \% q: S
Cells(8,3)=Sum
* l2 L! q ~. s* w9 v
1 A2 a- d; ^ |) k0 r. `7 S! H基本是这个水平。见笑了。3 @5 q# `5 O% G* M5 S; l! i/ |
. A* s! w# Y# y' _& W7 W( I您的附件我有下载打开，但是Excel Fleeze了，所以没能看到里面程序。
, ?$ ^& j4 v) ~看您发的图片数据，像是一个凸轮的计算。+ U1 \7 S: p3 P& e& {! [
看热力计算也很久违了，我是十年前读硕士的时候接触Enthapy的。
: a! ?6 t, L- A1 m我的Master theme是燃烧的数值计算，主要是用N-S方程式和k-e模型作CFD解析。1 i# u6 W( S2 E' {, P
不过我做的不太好，勉强毕业而已。遥远的回忆。( r/ c6 H' t+ p6 |! h) I* q
0 i( g- i# p) \5 e, q再次感谢您的回复。/ |0 @8 }$ B o& F
|
|
楼主: 子子61961
[复制链接]
发表于 2016-2-15 20:53:15
发表于 2016-2-16 09:30:00
