締切済み

「繰り返し」について教えてください。

2006/07/03 20:31

こんばんは。よろしくお願いします。エクセル2003vbaで例えば、 book1を立ち上げた時、sheet1のa列からd列までのデータを、sheet2のa列からd列に貼り付け、10秒後にsheet2のd列のデータを同じsheetのf列にコピーし、d列を基準に「降順」に並べ替る。そして、4分30秒後には「降順」はもとの状態の戻し、この作業を5分間隔で行いたいのですが … どなたか、サンプルでもありましたら教えてください。お願いします。

6765
お礼率15% (3/19)

Visual Basic
回答数1
ありがとう数0

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

みんなの回答

toshi_2000
ベストアンサー率30% (306/1002)

2006/07/04 22:03 回答No.1

途中までなら以下の通り。 Private Sub Workbook_Open() Sheets("sheet1").Range("A:D").Copy Destination:=Sheets("sheet2").Range("A:D") Application.Wait Now() + TimeValue("00:00:10") Sheets("sheet2").Range("D:D").Copy Destination:=Sheets("sheet2").Range("F:F") Sheets("sheet2").Select Range("D1").Select Selection.Sort Key1:=Range("D2"), Order1:=xlDescending, Header:=xlGuess, _ OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, SortMethod _ :=xlPinYin End Sub