|
|
楼主 |
发表于 2016-2-16 08:58:46
|
显示全部楼层
ngsxngtd 发表于 2016-2-15 20:51 
1 c/ Q! W0 Z+ J) }0 q% @% r3 hAC-arctan(AC/80)*80=1是数学问题。
5 g% u# K+ P0 s A子子大侠既然读过VB，那么读VBA代码就应该没什么困难，核心是数值计算 ...
这位一看就是，去看过原帖然后到这里踢场来了。开个玩笑。
8 C% e: G, V: ^' J9 S v' E
6 x6 F1 x5 v+ y) I. Z谢谢您的认真编程和回复。, @1 }( h: @) @7 T7 k
VBA我也是非常喜欢的。
( p& A7 x) K% `6 i2 I; o* U我的VB停留于VB6.0的年代，然后没机会去弄，就改用VBA了。5 T! ^6 Z Q- O" M$ W
看你的程序真是漂亮多了，佩服一下。
# [ R4 B! e, M' {, K$ X. t7 ?- c) C% X& ]5 m& {
在需要进行复杂迭代和循环计算和积分计算的时候，我会用VBA来做。
4 N0 X/ ^; E* a3 J8 `- ?我的水平一般是在Sheet里面添加一个Button，然后在里面写程序。
7 ^0 s! Y# W+ Y+ y% y# L% ~Dim A as Double1 K. B1 I4 b o3 X2 v
Dim B as Double4 A, D6 `) A5 O. o) x( f
Dim Sum as Double
: ~+ Y! {% W, g8 }- f% E. l, v* C) N+ I4 X/ [' p
A=Cells(6,3)4 P8 Y( v7 ?1 x4 }9 ~/ |
B=Cells(7,3)
6 u" F+ D, _5 f& p/ p( @For I =1 to 100
7 I m! S5 c2 X# V" N blabla.......
$ ^$ Q0 f& H0 XNext; F9 h2 L, z: x. V! a5 N% ]/ X
Cells(8,3)=Sum
! W: p/ ~8 a( \: i# y3 _' F9 J; k4 |0 J# I* U# z
基本是这个水平。见笑了。
$ i" Y/ z' G8 u( S( _* c
& ^6 i& O8 e0 [; ]) H您的附件我有下载打开，但是Excel Fleeze了，所以没能看到里面程序。
5 [& t% U" V, f- }8 l- {看您发的图片数据，像是一个凸轮的计算。
( R# `0 G- N% d2 b$ f0 g看热力计算也很久违了，我是十年前读硕士的时候接触Enthapy的。
& k2 A. z. j, X! o/ ]; X8 ^我的Master theme是燃烧的数值计算，主要是用N-S方程式和k-e模型作CFD解析。
) y l2 T( Z# D2 z! g6 \不过我做的不太好，勉强毕业而已。遥远的回忆。- h/ s: p# ~# x5 j+ ^5 J7 o9 ]- k
3 E& L4 g2 t7 J' i+ |7 `8 `
再次感谢您的回复。; N* O5 e( r K6 e+ p
|
|
楼主: 子子61961
[复制链接]
发表于 2016-2-15 20:53:15
发表于 2016-2-16 09:30:00
