シートをExcelで並べ替える

Question

これが可能かどうかわかりません。

Iは、二枚のシートを有するワークブックを有する "入力" 及び "出力"

USER1 "が入力シート"

列A =名
列B =年齢
列Cに充填=場所
列D =ハイト
..
..

そして "出力" シートの列AはSで「入力」シート上でのカラムAから値をコピーして、User2がUser1が

列B =アイカラー
列C =ヘアカラー
列D =の数を入力した値を用いて詳細に記入をEt指
..
..

だから私はあなたのアイデアを得る願って、User1はいくつかの詳細を入力して、User2がそれにいくつかの作業を行い、「出力用紙に詳細を入力します。列Aは、2つを結ぶ「インデックス」値です。

私の問題は、User2が詳細を入力して「入力」シートに戻り、並べ替えを実行すると、「出力」シートの値が一致しなくなります。残りのソート操作は同じままです。

シート間で行をリンクすることも、両方のシートをまたいで実行して一貫性を保つソートコードを作成することもできます。

これは、ユーザーが試したアドホック検索では機能しません。「名前で並べ替える」「場所で並べ替える」などのように、「入力」シートにボタンを配置したいだけです

よろしく

アーロン

Answer 1

あなたが事前に設定の種類を有するOKであれば、一つの解決策は、シートCにシートAとシートBの両方の値を反映して、ちょうどソートこと、および再することですシートAおよびBの値を新しいソートされた結果でポピュレートする。

I.e.例えば、あなたが、その後シート3をリセットする必要があるかもしれません、あなたがpastevaluesに必要なだけではなく、貼り付けるかもしれません（いくつかの作業が必要になる場合があります

Dim rngSortRange As Range, rngStartCell As Range, rngEndCell As Range 
Set rngStartCell = Worksheets("Sheet_3_Name_Goes_Here").Range("A1") 
Set rngEndCell = Worksheets("Sheet_3_Name_Goes_Here").Range(_ 
    rngStartCell.End(xlToRight).Column, _ 
    rngStartCell.End(xlDown).Row) 
Set rngSortRange = Worksheets("Sheet_3_Name_Goes_Here").Range(rngStartCell, rngEndCell) 
rngSortRange.Sort Key1:=<Column Number Here>, Order1:=xlAscending, Header:=xlYes 
rngSortRange.Range(rngStartCell, _ 
        Worksheets("Sheet_3_Name_Goes_Here").Range(_ 
        Worksheets("Sheet 1").Range("A1").End(xlToRight).Column, _ 
        rngEndCell.Row _ 
        ) _ 
        ).Copy 
Worksheets("Sheet 1").Paste 
rngSortRange.Range(Worksheets("Sheet_3_Name_Goes_Here").Range(
        rngStartCell.Column + Worksheets("Sheet 1").Range("A1").End(xlToRight).Column, _ 
        rngStartCell.Row _ 
        ), _ 
        rngEndCell _ 
        ).Copy 
Worksheets("Sheet 2").Paste 

：

Sheet1     | Sheet 2       | Sheet 3 (Hidden and named) 
         |         | 
Name  Age etc,  | Eye Colour Hair colour etc. | =Sheet1!A1 ... =Sheet2!A1 

その後、あなたのソートボタンのようなサブ何かを呼ぶだろうそうしないと、自己参照式を貼り付けることになります）、基本的な考え方はうまくいくはずです。