|
|
24#
樓主 |
發(fā)表于 2016-2-16 08:58:46
|
只看該作者
ngsxngtd 發(fā)表于 2016-2-15 20:51 ![]()
) U: R; E9 [, }AC-arctan(AC/80)*80=1是數(shù)學(xué)問題。% U* i0 O( n6 m) |% I7 a
子子大俠既然讀過VB,，那么讀VBA代碼就應(yīng)該沒什么困難,，核心是數(shù)值計算 ...
這位一看就是，去看過原帖然后到這里踢場來了,。開個玩笑,。+ k6 w! C0 U. J& ?! m7 p
9 Q& w9 R2 h! D j/ U. l
謝謝您的認真編程和回復(fù)。/ P) _6 w; F" U a
VBA我也是非常喜歡的,。, }1 R- w2 [! w! m
我的VB停留于VB6.0的年代,，然后沒機會去弄,，就改用VBA了。4 z8 t/ u; f. v) L. X. x9 I
看你的程序真是漂亮多了,，佩服一下,。
5 K& t( X0 [4 l. k" y$ f
; s) q# e/ H8 C在需要進行復(fù)雜迭代和循環(huán)計算和積分計算的時候，我會用VBA來做,。
7 R% r3 Y- F" F' L2 J3 k- n我的水平一般是在Sheet里面添加一個Button,，然后在里面寫程序。
% m# I0 K. U! p( ZDim A as Double- b/ b& ^7 \4 p; i- V! W& U0 D
Dim B as Double1 L L+ \- {1 M: v: Q, R
Dim Sum as Double) l- v$ }! X9 W! h) S
; ~" E6 A- o' S6 P8 g( M
A=Cells(6,3)" [* Y; H0 S( Y+ M# [8 X! {
B=Cells(7,3)5 B }" q7 s( r% N
For I =1 to 100; H9 T6 ~* l; v7 V7 G
blabla.......4 B$ M: h" S) w1 s. h% K# H
Next
- L7 P, D# W5 S/ B7 c$ OCells(8,3)=Sum& [6 a' h" d$ j$ D* B4 E
7 P+ G# a7 M1 |$ N1 |基本是這個水平,。見笑了,。' q x c, Y9 e/ {8 `
$ e6 `; q( X8 _. K; B, i% {# Z您的附件我有下載打開，但是Excel Fleeze了,，所以沒能看到里面程序,。
: d. y; e: ^% i4 r看您發(fā)的圖片數(shù)據(jù)，像是一個凸輪的計算,。 E5 ]( n2 y$ p& P6 ~
看熱力計算也很久違了,，我是十年前讀碩士的時候接觸Enthapy的。
" c1 R" s2 p4 U) n# R我的Master theme是燃燒的數(shù)值計算,，主要是用N-S方程式和k-e模型作CFD解析,。
{) i3 N9 {9 e; i( U& x不過我做的不太好，勉強畢業(yè)而已,。遙遠的回憶,。
) F% R4 i" h* t# _" U* _& A# r! D8 Z0 }- f `# X' x+ l! u5 u
再次感謝您的回復(fù)。- o# g# D- A* |( t" e# n v3 B# f
|
|
樓主: 子子61961
[復(fù)制鏈接]
發(fā)表于 2016-2-15 20:53:15
發(fā)表于 2016-2-16 09:30:00
