|
24#
樓主 |
發(fā)表于 2016-2-16 08:58:46
|
只看該作者
ngsxngtd 發(fā)表于 2016-2-15 20:51 6 d+ u1 p" @' C, D6 y+ e
AC-arctan(AC/80)*80=1是數(shù)學(xué)問題。
; c# r' q X2 v8 \! J( I子子大俠既然讀過VB,那么讀VBA代碼就應(yīng)該沒什么困難,核心是數(shù)值計(jì)算 ...
8 d$ h$ k. B5 M0 o' I+ u# X1 @這位一看就是,去看過原帖然后到這里踢場來了。開個(gè)玩笑。
& M3 \; Y( D5 e: S7 h) |1 {0 i$ Y' {2 h
謝謝您的認(rèn)真編程和回復(fù)。9 N' g, V( j. Q7 J" F( X
VBA我也是非常喜歡的。* @. v* j+ Z3 X2 N
我的VB停留于VB6.0的年代,然后沒機(jī)會(huì)去弄,就改用VBA了。) X; k8 U! u% W: ?6 t
看你的程序真是漂亮多了,佩服一下。
! L) ?2 L6 C- Q. V
( h' P0 j* l: B/ K: ^' f8 P* P3 c5 N在需要進(jìn)行復(fù)雜迭代和循環(huán)計(jì)算和積分計(jì)算的時(shí)候,我會(huì)用VBA來做。) {7 u4 T4 [% S+ z# ?" i+ [& S* C0 H
我的水平一般是在Sheet里面添加一個(gè)Button,然后在里面寫程序。
3 ^4 h2 N w1 d: z- X0 `Dim A as Double
# I# @; q& h) s( XDim B as Double! k3 |! M3 I; F8 Q: w' J2 @' _) a+ T
Dim Sum as Double3 b- f7 V4 Y( x; B7 f
& w ^3 e6 Q5 p/ E7 L; J, mA=Cells(6,3)
( ^6 h+ T7 b$ t; S- qB=Cells(7,3)) D* z- J! }% ?$ N
For I =1 to 100
' z, u$ _+ }1 Q/ B blabla.......+ L" r/ \1 R5 W9 G
Next! O! N. o- u( O) v8 ?7 q: A9 n* `% k
Cells(8,3)=Sum+ M- O2 c0 O" t+ S8 B$ Y
) D1 w' P# B# |, s
基本是這個(gè)水平。見笑了。
& w: i3 j* J) f + E l3 N4 [- K; X6 N( g
您的附件我有下載打開,但是Excel Fleeze了,所以沒能看到里面程序。
3 B" d+ ~; y. t3 y) N# C9 ?看您發(fā)的圖片數(shù)據(jù),像是一個(gè)凸輪的計(jì)算。
: g+ q% u* [. B. G$ z" P看熱力計(jì)算也很久違了,我是十年前讀碩士的時(shí)候接觸Enthapy的。; K# J6 X/ h( c
我的Master theme是燃燒的數(shù)值計(jì)算,主要是用N-S方程式和k-e模型作CFD解析。
0 O e7 g3 }; v$ O不過我做的不太好,勉強(qiáng)畢業(yè)而已。遙遠(yuǎn)的回憶。
! E1 Q3 ?' w( A+ X* e# G
! A% G6 }- C' F8 c/ ]! A% ^& z* I再次感謝您的回復(fù)。 @5 j, G# d% X6 Z! F! e
|
|