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

同じようにＨＰ用を37行目から
NO　　　　2　　　　0.04　　　　ＨＰ
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　　　　 ＶＰ
>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まで
リンク先は見てませんが、数式で空いているセル（Ｆ列等）に絶対値をとって並び替えてはどうでしょう。
　[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　　　　 ＶＰ
>>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まで
>リンク先は見てませんが、数式で空いているセル（Ｆ列等）に絶対値をとって並び替えてはどうでしょう。
>　[F27セル]=ABS($C$25-C27)
>　F27:F36を選択して下方向へコピー
>　F列昇順でソート
>これを記録すると基本のマクロができます。
>後は、Selectionとかを何とかするとコードの見た目も良くなります。
>気にしないならそのままでもいいですが。
>
>リンク先に同じことが書いてあったらごめんなさい。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
6516 / 13644 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free