OKWAVEのAI「あい」が美容・健康の悩みに最適な回答をご提案!
-PR-
解決
済み

エクセルで並べ変えについて

  • 暇なときにでも
  • 質問No.231550
  • 閲覧数261
  • ありがとう数1
  • 気になる数0
  • 回答数1
  • コメント数0

お礼率 80% (8/10)

エクセルで資金繰表を作って使用しています。
いつもは、日付などを変更したりしたときは、範囲を指定して、昇順ボタンを押しているのですが、とっても面倒です。常に日付順に並べ替える設定などがありましたら、是非
教えていただきたいのですが。
よろしくお願いします。
通報する
  • 回答数1
  • 気になる
    質問をブックマークします。
    マイページでまとめて確認できます。

質問者が選んだベストアンサー

  • 回答No.1
レベル13

ベストアンサー率 68% (791/1163)

例えば、Sheet1のA列、B列、C列・・・に続けてデータが入力され、行方向にも連続して入力されるとします。ソートの関係で、1行目は表題で、2行目からデータが入力されているとしています。
B列を日付を入力する列と仮定すると、次のようにします。

ツール→マクロ→Visual Basic Editor でVBE画面に移り、
表示→プロジェクトエクスプローラでプロジェクトエクスプローラを表示し、Sheet1をダブルクリックします。
でてきたコードウインドウに下記マクロをコピーして貼り付けます。
次に、シートに戻り、B列の日付(年月日)を入力したり変更すると自動的に昇順にソートします。
Excel2000で確認済みです。ご参考に。

↓ここから
Const sortCol = "B"  'B列に日付が入力される場合。実際のシートに合うよう修正して下さい。

Private Sub Worksheet_Change(ByVal Target As Range)
  '日付が入力される列を変更した場合
  If Target.Column = Range(sortCol & ":" & sortCol).Column Then
    '指定した列を基準に昇順に並べ替える
    Selection.Sort Key1:=Range(sortCol & "2"), Order1:=xlAscending, Header:=xlGuess
  End If
End Sub
お礼コメント
junkok

お礼率 80% (8/10)

すっかり忘れたころのお礼になってしまって申し訳ありません。
とても勉強になりました。ありがとうございます。
早速試してみます。
投稿日時 - 2008-07-23 10:39:47
-PR-
-PR-
このQ&Aで解決しましたか?
関連するQ&A
-PR-
-PR-
このやり方知ってる!同じこと困ったことある。経験を教えて!
このQ&Aにはまだコメントがありません。
あなたの思ったこと、知っていることをここにコメントしてみましょう。

その他の関連するQ&A、テーマをキーワードで探す

キーワードでQ&A、テーマを検索する
-PR-
-PR-
-PR-

特集


いま みんなが気になるQ&A

関連するQ&A

-PR-

ピックアップ

-PR-
ページ先頭へ