2010年11月25日星期四

VBA ADIDAS

Sub 開檔()




Workbooks.Open Filename:= _

"C:\Users\alexmysir\Desktop\07.FW11\2.xls"

Sheets("Comparison").Select

Range("A4:D53").Select

Selection.Copy

Windows("new.xls").Activate



Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _

xlNone, SkipBlanks:=False, Transpose:=False





Application.CutCopyMode = False

Selection.End(xlToRight).Select

ActiveCell.Offset(0, 2).Select



Windows("2.xls").Activate

ActiveWindow.Close

End Sub

Sub 調整()

'

' 調整 Macro

' alexmysir 在 11/26/2010 錄製的巨集

'



'

Cells.Select

Cells.EntireColumn.AutoFit

Range("A1").Select

End Sub

Sub 開檔二()



Workbooks.Open Filename:= _

"C:\Users\alexmysir\Desktop\07.FW11\1.xls"

Sheets("Comparison").Select

Range("C4:D53").Select

Selection.Copy

Windows("new.xls").Activate



Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _

xlNone, SkipBlanks:=False, Transpose:=False





Application.CutCopyMode = False



Windows("1.xls").Activate

ActiveWindow.Close

End Sub











Sub 整合()

開檔

開檔二



調整





End Sub



Sub 儲存()

'

' 儲存 Macro

' alexmysir 在 11/26/2010 錄製的巨集

'



'

ActiveWorkbook.SaveAs Filename:="C:\Users\alexmysir\Desktop\07.FW11\21.xls", _

FileFormat:=xlNormal, Password:="", WriteResPassword:="", _

ReadOnlyRecommended:=False, CreateBackup:=False

End Sub

2010年11月24日星期三

好康的報您知

各位好,




教育部推動的產業碩士專班100年度春季班, 世新大學即將於11/30~12/6 報名.



麻煩各位協助轉寄給同事及朋友們, 並鼓勵他們前來報考.



相關基本資料說明



1. 報名日期: 1010/11/30~2010/12/6



2. 筆試及口試日期: 2010/12/25(資訊軟體班), 2010/12/26(數位內容班)



3. 放榜: 2011/01/07



4. 修業期間: 2011/02/01~2012/07/31 共1年6個月



5. 學雜費: 每學期5萬元整



p.s. 簡章連結網址: http://www.shu.edu.tw/bbs/AnnounceDetail1.aspx?sID=7197

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