Excel VBA質問箱 IV

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

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


58555 / 76732 ←次へ | 前へ→

【22903】表の並べ替えと行列変換等
質問  kuro  - 05/3/6(日) 21:57 -

引用なし
パスワード
   はじめまして。
質問よろしいでしょうか。まず以下のような表があります。
 
   A       B    C       D       E     F
1  ランク    名前  仕入れ予定数 販売予定個数 仕入れ数 販売個数
2 (任意の文字) (人名)  (数値)    (数値)    (数値)  (数値)
3  ・      ・    ・      ・      ・    ・
4  ・      ・    ・      ・      ・    ・
5  ・      ・    ・      ・      ・    ・
6  ・      ・    ・      ・      ・    ・
7  ・      ・    ・      ・      ・    ・
8  ・      ・    ・      ・      ・    ・
9  ・      ・    ・      ・      ・    ・


説明
ランク・・・その人に付けられた便宜的なランクです。(ね・うし・とら・う・たつ・み)のように干支とします。
名前・・・その人の名前です。

処理内容
1、フォルダ"c:\販売記録\個人別"というフォルダに個人別ファイルを1人1ファイル作成(ファイル名はイニシャル2文字です。例:AB.xls)します。
2、フォルダ"c:\販売記録\月間販売個数.xls"というファイルが↑のファイル(表)になります。
3、月間販売個数.xlsの表に"c:\販売記録\個人別"の各ファイルから必要なデーターのみを1人1行づつ使って取り出し、上から順に出力していきます。(2行目から。)
4、全員分の出力終了後("c:\販売記録\個人別"内の全ファイルの出力終了後)ランクを干支に例えましたので、干支の順に並べ替えを行い、行と列を入れ替えて、sheet2 のRange("A3") から貼り付けます。
5、出来上がった表(Sheet2)を印刷します。


以上の処理を考えているのですが、並べ替えを行うときに任意の文字に順番を付ける事はできるのでしょうか?A列に上からうし、ひつじ、さる 等干支からすると
順番がばらばらに出力されていくのですが、並べ替えで ね>うし>とら>う>・・
などのように並べ替えたいのですが^^;


長たらしくなってしまってすみません。

1 hits

【22903】表の並べ替えと行列変換等 kuro 05/3/6(日) 21:57 質問
【22905】Re:表の並べ替えと行列変換等 ichinose 05/3/6(日) 22:35 発言
【22909】Re:表の並べ替えと行列変換等 kuro 05/3/6(日) 23:39 お礼

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