2009年6月6日星期六

EXCEL VBA 時間反序

一要有三張工作表
一張 IN : 資料輸入
二張 : 正向(fxd)
三張 : 反向(newfxd)
程式如下
Sub Macro1()
Sheets("fx-d").Select
Selection.End(xlDown).Select
ActiveCell.Offset(1, 0).Select
ActiveCell.Offset(0, 0).Value = Sheets("IN").Range("D6").Value
ActiveCell.Offset(0, 1).Value = Sheets("IN").Range("E6").Value
ActiveCell.Offset(0, 2).Value = Sheets("IN").Range("F6").Value
Range("A3").Select

Sheets("newfx-d").Select
Rows("3:3").Select
Selection.Insert Shift:=xlDown
Range("A3").Select
ActiveCell.Offset(0, 0).Value = Sheets("IN").Range("D6").Value
ActiveCell.Offset(0, 1).Value = Sheets("IN").Range("E6").Value
ActiveCell.Offset(0, 2).Value = Sheets("IN").Range("F6").Value
Sheets("IN").Select
Range("D6").Select
End Sub

0 评论:

 
妹咕數位學園歡迎網友們來信指教 妹咕信箱