締切済み

エクセル　リストボックスの順番入替について

2017/07/25 10:33

エクセル2010で取引先の会社の名簿を作成しています。A列に取引先会社番号（１～）、C列に会社名、D列以降に会社情報を表記しています。B列は取引会社に子会社があれば１、なければ０としています。例）１/０　A商事　１/１　B商事（A商事子会社）　2/０　C商事　3/０　D商事　3/１　E商事（D商事子会社）。順番を入替時用にユーザーフォームのリストボックスに直近の取引会社（A、C、D社）を表示しコマンドボタンで順番を入れ替えてます。（A、C、D社→D、C、A社等）ここまでは過去の例等を参考にしてできました。リストボックスの順番にシートを入れ替える時、子会社がある場合どうしたらいいのでしょうか。また、D、C、A社順にした場合、並び替えだけだと3/０D商事、3/１E商事、2/０C商事、１/０A商事、１/１B商事となりますが、B列の番号を1/０D社、１/１E社、2/０C社、3/０A社,、3/１B社と変えるには、どうしたらよいか教えてください。

goodjob507
お礼率11% (1/9)

Excel（エクセル）
回答数3
ありがとう数1

みんなの回答 （3）
専門家の回答

みんなの回答

imogasi
ベストアンサー率27% (4737/17070)

2017/07/26 10:19 回答No.3

#1です。私の＃１での説明記述上、漏れたのは、プログラムの中のＡｄｄｉｔｅｍの順序を変更することです。記述の（１）－（３）に、（４）に当たるものを追加します。例えば個別に項目を指定する方式を採った場合は Private Sub UserForm_Initialize() UserForm1.ListBox1.RowSource = "" UserForm1.ListBox1.AddItem "AA" UserForm1.ListBox1.AddItem "CC" UserForm1.ListBox1.AddItem "BB" End Sub のように、記述したコード行の順序のＡＡ，ＣＣ、ＢＢの順序に項目がリストボックスに表示されます。ーーちなみに Private Sub UserForm_Initialize() UserForm1.ListBox1.RowSource = "" UserForm1.ListBox1.AddItem Range("A1") UserForm1.ListBox1.AddItem Range("A2") UserForm1.ListBox1.AddItem Range("A3") End Sub のような書き方もできます。質問はこういう状況が再々起こって面倒ということか？

tsubu-yuki
ベストアンサー率46% (179/386)

2017/07/26 09:28 回答No.2

うんまぁ・・なんというか・・・パっと見た感想なんですけどね。「取引先会社番号」ってそんなにコロコロ変わるもんです？社内の基準がどうなっているか、部外者にはわからんのですが、まずはその「コロコロ変わる」システムを見直すのが前では？・・・と読めてしまいます。一度クローズし、もう少しよく考えて再投稿なさってはいかがでしょう。

imogasi
ベストアンサー率27% (4737/17070)

2017/07/25 19:21 回答No.1

質問の表現が、ゴタゴタしていて、判りにくい。特に子会社の例など質問者の特有のニーズで、丁寧に説明しないと状況がわか啞ない。Ａ現在データーー＞Ｂ変わってほしい順のデータを２列に並べてデータ実例で説明すべきではないか。あるいは子会社のデータを数を多くしてセルの列に表現して説明すべきだろう。ーーエクセルのリストボックスを使っているらしいが、まず、リストボックスをユーザーフォームに乗せているということだね。エクセル程度のコントロールでは、マウスなどを用いて、アイテム（表示明細）の順序をマウスなどで入れ替える操作は作られていないと思う。このアイテムはエクセルでは、もとになる明細のあるセル範囲をセル範囲記号で（Ａ１：Ａ１０のような文字列）指定する道も作られていてそれがメインのやり方だ。だからそのセル範囲のデータを並べ替えすれば、仕舞ではないのか。ＶＢＡなどを使えば（特にＡＣＣＥＳＳで）配列やＳＱＬ文を指定して、その実行結果で指定できるようになっている。ＳＱＬではＯｒｄｅｒ　Ｂｙで結果の順序を簡単に指定できる。だから順番を入れ替えるには、（１）手動でマウスで並べ替えるや、（２）ソート後には望みの順になるようなソートキーを新たな列に作って絵そこでデータ全体範囲をソートして使うほかないと思う。ーーセルにあるデータを他の順序に並べ替えるのはワーク列が必要だったりして非常に煩雑。並べ替えるべき順序数値を別に振って、元データと順序数を同時に並べ替えるようなことをするほかない。後先がはっきりしているならばプログラムで、初歩的なアルゴリズムで、並べ替えもできそうだが、いづれにしろ、プログラム（ＶＢＡ以上）ができないとダメ。ーーエクセルを離れて、処理系により、リストボックスのＤａｔａＳｏｕｒｃｅは（１）エクセルのセル範囲指定方式（セル範囲の文字列で）（２）配列（３）ＳＱＬ文そのものの指定などを見かけるが（２）、（３）は順序を変えられる。その場合もＳｏｒｔ（並べ替え）の機能を使うだろう。ーー仕事にエクセルを使っているようだが、ＶＢＡの駆使が必須ではないか。色々な考え方や、対処法が拡がると思う。そうすれば、本件質問は、つまらない質問にと思えるのではないか。