Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
3869 / 13645 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【59763】AoutFilter? Sort? ｼｷﾉｷﾛｸ 09/1/7(水) 16:17 質問[未読]
【59775】Re:AoutFilter? Sort? ゆみこん 09/1/8(木) 7:37 発言[未読]
【59778】Re:AoutFilter? Sort? ｼｷﾉｷﾛｸ 09/1/8(木) 10:13 お礼[未読]
【59763】AoutFilter? Sort?
質問  ｼｷﾉｷﾛｸ  - 09/1/7(水) 16:17 -
引用なし
パスワード
   　　　　　A　　　　　　　B　　　　　　　 C　　　　　　　　 D
1　　0614000385014　0615000468012　0616000543010　 0117000825020

上記の様に100以上のデーターが並んでいる下３桁を順位として20位迄を取り出したいのですが、どのょうにすれば良いか教えてください。

　　　　
【59775】Re:AoutFilter? Sort?
発言  ゆみこん  - 09/1/8(木) 7:37 -
引用なし
パスワード
   ▼ｼｷﾉｷﾛｸ さん：
>　　　　　A　　　　　　　B　　　　　　　 C　　　　　　　　 D
>1　　0614000385014　0615000468012　0616000543010　 0117000825020
>
>上記の様に100以上のデーターが並んでいる下３桁を順位として20位迄を取り出したいのですが、どのょうにすれば良いか教えてください。
>
>　　　　
２つの配列を用意して、
・片方に　0614000385014　・・・を入れていく　（Ａ
・もう一方に　014　・・・右から３文字を入れていく　（Ｂ

Ｂでソートを行ない、入れ替わりが発生したらＡの添字も入替える。

書き出す際には小さい順の１〜２０（添字なら０〜１９かな？）を書き出せばいい。

とか。
【59778】Re:AoutFilter? Sort?
お礼  ｼｷﾉｷﾛｸ  - 09/1/8(木) 10:13 -
引用なし
パスワード
   ▼ゆみこん さん：
>▼ｼｷﾉｷﾛｸ さん：
>>　　　　　A　　　　　　　B　　　　　　　 C　　　　　　　　 D
>>1　　0614000385014　0615000468012　0616000543010　 0117000825020
>>
>>上記の様に100以上のデーターが並んでいる下３桁を順位として20位迄を取り出したいのですが、どのょうにすれば良いか教えてください。
>>
>>　　　　
>２つの配列を用意して、
>・片方に　0614000385014　・・・を入れていく　（Ａ
>・もう一方に　014　・・・右から３文字を入れていく　（Ｂ
>
>Ｂでソートを行ない、入れ替わりが発生したらＡの添字も入替える。
>
>書き出す際には小さい順の１〜２０（添字なら０〜１９かな？）を書き出せばいい。
>
>とか。

ゆみこんさん　アドバイス有難うございました。
頑張ってみます。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
3869 / 13645 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free