どのように自動振り分けデータをMicrosoft Excel 2010でVBAを使用して、任意の列で
この記事では、特定の列でデータを自動的に並べ替える方法を学習します。
[.underline]#例を見てみましょう:#以下は、私たちが持っているデータのスナップショットです。以下のスナップショットを参照してください:
入力時に列Aのデータを自動的に並べ替えるコードが必要です。
[開発者]タブをクリックします。[コード]グループから、[VisualBasic]を選択します
作業中のシートに次のコードを入力します。 (この例ではsheet1)
Private Sub Worksheet_Change(ByVal Target As Range)
エラー時に次を再開
交差しない場合(Target、Range( “A:A”))は何もありません
Range( “A1″)。Sort Key1:= Range( “A2″)、_
Order1:= xlAscending、Header:= xlYes、_
OrderCustom:= 1、MatchCase:= False、_
オリエンテーション:= xlTopToBottom
終了If
サブの終了
以下は、上記のコードの結果です。
上記のコードは、列Aに変更があるたびにアクティブになります。列Bに変更があるときにマクロをアクティブにする場合は、わずかな調整を行う必要があります
Private Sub Worksheet_Change(ByVal Target As Range)
エラー時に次を再開
交差しない場合(Target、Range( “B:B”))は何もありません
Range( “B1″)。Sort Key1:= Range( “B2″)、_
Order1:= xlAscending、Header:= xlYes、_
OrderCustom:= 1、MatchCase:= False、_
オリエンテーション:= xlTopToBottom
終了If
サブの終了
このようにして、特定の列でデータを簡単に並べ替えることができます。列A(最初の例)と列B(2番目の例)に情報を入力すると、コードがトリガーされ、データが自動的に並べ替えられます。これにより、データを定期的に並べ替える必要がある場合に多くの時間を節約できます。