エクセルで自動的に・・・

解決済

質問者：commune
質問日時：2003/01/18 08:29
回答数：3件

ある表を作っています。作業を自動化したいです。

詳細は次の通りです。

●１行目はタイトルです。
●Ｄ列に数字を上書きすると、その行を表の一番下に並び替えたいです。
●その行のＨ列に今日の日付を入れたいです。

このようにするには、どのようなことをすればいいですか？
よろしくおねがいします。

通報する

この質問への回答は締め切られました。

質問の本文を隠す

回答 (3件)

No.1

回答者： news_0203
回答日時：2003/01/18 08:39

●3は関数を使うといいと思います。

日付の関数は、
=today()
と入力すると表示されます。
その日付はパソコンの中の日付がつくので、日にちなどが違うときは
「スタート」→「設定」→「コントロールパネル」→「日付と時刻」で訂正すると解決すると思います。
しかしながら●1と●2の内容ですが、
一行目のタイトルというものは、どうするのですか？
あとD列に数字を上書きするとその行の一番下に並べ替えるというのは具体的には・・・？
すいません・・・。
「並び替え」となると「ツールバー」のなかの「データ」から「並び替え」を選択すればいいのですが・・・？
よろしいでしょうか？
また何か補足の方がいただけるともう一度書き込みをしたいと思います。
宜しくお願いします。

最後にですが先ほどのtoday関数は
2003/1/18
という形で表示されますが宜しかったでしょうか？

この回答への補足

さっそくのご回答ありがとうございます
１行目はタイトルですので、２行目以降のＤ列に数字を入力した場合にデータの並び替えをいちいち選択しなくても、入力した時点で自動的に並び替えたいのです。
ちなみに、現在は４６行まで表にしていますがこれも変動がありますので「表の最終行」に移したいのです。
today関数ですが、昨日以前にＤ列に入力した行のＨ列も今日の日付になってしまいませんか？
あくまでも、Ｄ列に入力した日付にしたいのですが。。。
面倒な事ばかりでスミマセン。よろしくお願いします。

補足日時：2003/01/18 08:48

通報する

- 0
- 件

通報する

No.2

回答者： noname#7099
回答日時：2003/01/18 08:57

マクロを作成すればいいと思います。

１行目をタイトル行のための行とします。
１行目に特定のセルを決めて、数字を入れてから動作するようにします。
セルに書式が必要な場合は列単位に書式設定をしておくといいでしょう。

１）２行目に行を追加。
２）Ｈ２のセルに本日日付を代入。
３）Ｄ２のセルに特定のセルの数字を代入。
４）１行目をタイトル行にしてＨ列の日付を昇順にするなどの指定をして、並び替えを行います。

ってことをしたらいいと思います。
　マクロの使い方や記述方法がわからない場合、
ツール->マクロ->マクロの記録で、やりたい手順をマクロに自動記録させて、マクロを解析していくと理解が早いでしょう。
　マクロが入っているエクセルのファイルはウイルスの攻撃対象となりやすいため十分注意してくださいね。

この回答への補足

説明が不充分でスミマセンでした。
Ｄ列に入力するのは何行目かは場合によって異なります。
例えば、Ｄ２２に入力することもあればＤ４に入力することもあるのですが、教えてくださったマクロでうまくいきますでしょうか？
知識不足でスミマセンm(__)m
よろしくお願いします。

補足日時：2003/01/18 09:01

通報する

- 0
- 件

通報する

No.3ベストアンサー

回答者： wildcard
回答日時：2003/01/18 11:00

これでどうでしょうか？

処理対象のシートがSheet1であると仮定した場合、

まず他にファイルを開いている場合は、閉じてください。

次に、Alt+F11でVisual Basic Editorを起動し、左上部のプロジェクトウィンドウでSheet1をダブルクリックし、右側のコードウィンドウに下記コードを貼り付ければokです。

Private Sub Worksheet_Change(ByVal Target As Range)
　　If Target.Column <> 4 Then Exit Sub
　　Dim a, b As Long
　　a = Target.Row
　　b = Range("A1").CurrentRegion.Rows.Count
　　Cells(a, 8).Value = _
　　　　CStr(Year(Now())) & "/" _
　　　　& CStr(Month(Now())) & "/" _
　　　　& CStr(Day(Now()))
　　Rows(a).Copy Rows(b + 1)
　　Rows(a).Delete Shift:=xlUp
End Sub