Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

10260 / 13655 ﾂﾘｰ

←次へ　｜　前へ→

▼

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

【22905】Re:表の並べ替えと行列変換等 ichinose 05/3/6(日) 22:35

【22909】Re:表の並べ替えと行列変換等 kuro 05/3/6(日) 23:39


	【22903】表の並べ替えと行列変換等

kuro - 05/3/6(日) 21:57 -


	引用なし

	パスワード

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

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

処理内容
１、ﾌｫﾙﾀﾞ"c:\販売記録\個人別"というﾌｫﾙﾀﾞに個人別ﾌｧｲﾙを1人1ﾌｧｲﾙ作成(ﾌｧｲﾙ名はｲﾆｼｬﾙ2文字です。例:AB.xls)します。
２、ﾌｫﾙﾀﾞ"c:\販売記録\月間販売個数.xls"というﾌｧｲﾙが↑のﾌｧｲﾙ（表）になります。
３、月間販売個数.xlsの表に"c:\販売記録\個人別"の各ﾌｧｲﾙから必要なﾃﾞｰﾀｰのみを1人1行づつ使って取り出し、上から順に出力していきます。（2行目から。）
４、全員分の出力終了後（"c:\販売記録\個人別"内の全ﾌｧｲﾙの出力終了後）ランクを干支に例えましたので、干支の順に並べ替えを行い、行と列を入れ替えて、sheet2 のRange("A3")　から貼り付けます。
５、出来上がった表(Sheet2)を印刷します。

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

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


	【22905】Re:表の並べ替えと行列変換等

ichinose - 05/3/6(日) 22:35 -


	引用なし

	パスワード

▼kuro さん：
こんばんは。

>質問よろしいでしょうか。まず以下のような表があります。
>　
>　　 A　　　　　B　　　　C　　　　　　D　　　　　　E　　　　F
>1 　ランク　　　　名前　　仕入れ予定数　販売予定個数　仕入れ数　販売個数
>2　(任意の文字)　(人名)　　(数値)　　　　(数値)　　　　(数値)　　(数値)
>3　　・　　　　　　・　　　　・　　　　　　・　　　　　　・　　　　・
>4　　・　　　　　　・　　　　・　　　　　　・　　　　　　・　　　　・
>5　　・　　　　　　・　　　　・　　　　　　・　　　　　　・　　　　・
>6　　・　　　　　　・　　　　・　　　　　　・　　　　　　・　　　　・
>7　　・　　　　　　・　　　　・　　　　　　・　　　　　　・　　　　・
>8　　・　　　　　　・　　　　・　　　　　　・　　　　　　・　　　　・
>9　　・　　　　　　・　　　　・　　　　　　・　　　　　　・　　　　・
>
>
>説明
>ランク・・・その人に付けられた便宜的なランクです。（ね・うし・とら・う・たつ・み）のように干支とします。
>名前・・・その人の名前です。
>
>処理内容
>１、ﾌｫﾙﾀﾞ"c:\販売記録\個人別"というﾌｫﾙﾀﾞに個人別ﾌｧｲﾙを1人1ﾌｧｲﾙ作成(ﾌｧｲﾙ名はｲﾆｼｬﾙ2文字です。例:AB.xls)します。
>２、ﾌｫﾙﾀﾞ"c:\販売記録\月間販売個数.xls"というﾌｧｲﾙが↑のﾌｧｲﾙ（表）になります。
>３、月間販売個数.xlsの表に"c:\販売記録\個人別"の各ﾌｧｲﾙから必要なﾃﾞｰﾀｰのみを1人1行づつ使って取り出し、上から順に出力していきます。（2行目から。）
>４、全員分の出力終了後（"c:\販売記録\個人別"内の全ﾌｧｲﾙの出力終了後）ランクを干支に例えましたので、干支の順に並べ替えを行い、行と列を入れ替えて、sheet2 のRange("A3")　から貼り付けます。
>５、出来上がった表(Sheet2)を印刷します。
>
>
>以上の処理を考えているのですが、並べ替えを行うときに任意の文字に順番を付ける事はできるのでしょうか？A列に上からうし、ひつじ、さる　等干支からすると
>順番がばらばらに出力されていくのですが、並べ替えで　ね＞うし＞とら＞う＞・・
>などのように並べ替えたいのですが^^;
手動操作で行うならば、

・「ツール」---「オプション」の「ユーザー設定リスト」にその順番を規定する
リストの登録が必要になります。

・リストに子，丑，寅・・・は予め入っているようですが、
ね,うし,とら・・・というようにリストに登録します。
登録の詳細は、ＨＥＬＰで確認して下さい。

・登録後、並べ替え（「データ」---「並べ替え」）のオプションの「並べ替え順序の指定」で登録したユーザーリストを選択して並べ替えを実行します。

こんな手順で行うと、干支の順に並べ替えが行えると思います。

確認してみて下さい。


	【22909】Re:表の並べ替えと行列変換等

kuro - 05/3/6(日) 23:39 -


	引用なし

	パスワード

▼ichinose さん：
こんばんわ。

早速の回答ありがとうございます。

Application.AddCustomList ListArray:=Array("ね","うし","とら","う", _
　　　　　　　　　　　　　　　　　　　　　 "たつ",)

のようにすればできるんですね＾＾

マクロの手動登録を使って改修してみます。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

10260 / 13655 ﾂﾘｰ

←次へ　｜　前へ→

ページ：

┃

記事番号：

(SS)C-BOARD v3.8 is Free