Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


6516 / 13644 ツリー ←次へ | 前へ→

【44756】SMALLで行き詰まり たろう 06/11/30(木) 18:34 質問[未読]
【44781】Re:SMALLで行き詰まり りん 06/12/1(金) 9:26 発言[未読]
【44793】Re:SMALLで行き詰まり たろう 06/12/1(金) 15:17 お礼[未読]

【44756】SMALLで行き詰まり
質問  たろう  - 06/11/30(木) 18:34 -

引用なし
パスワード
   いつも参考にさせていただいてます。
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まで

【44781】Re:SMALLで行き詰まり
発言  りん E-MAIL  - 06/12/1(金) 9:26 -

引用なし
パスワード
    たろう さん、おはようございます。
>なお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まで
リンク先は見てませんが、数式で空いているセル(F列等)に絶対値をとって並び替えてはどうでしょう。
 [F27セル]=ABS($C$25-C27)
 F27:F36を選択して下方向へコピー
 F列昇順でソート
これを記録すると基本のマクロができます。
後は、Selectionとかを何とかするとコードの見た目も良くなります。
気にしないならそのままでもいいですが。

リンク先に同じことが書いてあったらごめんなさい。

【44793】Re:SMALLで行き詰まり
お礼  たろう  - 06/12/1(金) 15:17 -

引用なし
パスワード
   ▼りん さん:
返事ありがとうございます。
もう少し勉強してから再質問します。
> たろう さん、おはようございます。
>>なお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まで
>リンク先は見てませんが、数式で空いているセル(F列等)に絶対値をとって並び替えてはどうでしょう。
> [F27セル]=ABS($C$25-C27)
> F27:F36を選択して下方向へコピー
> F列昇順でソート
>これを記録すると基本のマクロができます。
>後は、Selectionとかを何とかするとコードの見た目も良くなります。
>気にしないならそのままでもいいですが。
>
>リンク先に同じことが書いてあったらごめんなさい。

6516 / 13644 ツリー ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free