|
いつも参考にさせていただいてます。
http://www.efcit.co.jp/cgi-bin2/wwwlng.cgi?print+200611/06110216.txt
上記で関数にて表を作成と思い質問しましたが
VBAでできませんか。?
なおD12の計算値(0.166666667)から近似値を探す基準ですが
必ず同数か近い順に以上で候補をあげたいのですがよろしくお願いします。
B C D E
25 NO 1 0.166666667 VP
26 No.1 公式値 口径 勾配
27 近1 0.17179 400 1/250
28 近2 0.1606 300 1/50
29 近3 0.17278 350 1/125
30 近4 0.15767 350 1/150
31 近5 0.15671 400 1/300
32 近6 0.1922 400 1/200
33 近7 0.19325 350 1/100
34 近8 0.13644 350 1/200
35 :
36 近10まで
同じようにHP用を37行目から
NO 2 0.04 HP
No.1 公式値 口径 勾配
近1 0.03968 250 1/200
近2 0.04292 200 1/50
近3 0.03545 250 1/250
近4 0.04586 250 1/150
近5 0.03233 250 1/300
近6 0.03031 200 1/100
近7 0.05026 250 1/125
近8 0.0271 200 1/125
:
近10まで
|
|