GBKEE

¦^´_ 23# t8899
µL¨¥

GBKEE

¦^´_ 1# t8899
¤W¶Ç¾ã­ÓÀɮ׬ݬÝ

GBKEE

¦^´_ 27# t8899

1. Sub zzzzz()
   
2. 'Application.Interactive = False
   
3. Application.ScreenUpdating = False
   
4. Application.EnableEvents = False
   
5. Application.DisplayStatusBar = False
   
6. ActiveSheet.DisplayPageBreaks = False
   
7. Dim sh As Worksheet
   
8. Set sh = ActiveSheet
   
9. 'timestock   ¤£­n°õ¦æ
   
10. 'º¦¶^°±    ¤£­n°õ¦æ

½Æ»s¥N½X

½Ð¬ÝªþÀÉ ­×§ï§Aªºµ{¦¡½X,¤u§@ªíªº¤½¦¡

Dee.rar (60.17 KB)

¤U¸ü¦¸¼Æ: 11

2013-9-10 15:55

GBKEE

¦^´_ 31# t8899
12:00:15 ===>­â±á12:00:15 ¶}©l§ó·s?? 15¬í§ó·s¤@¦¸??  ¹ïªºÃþ±À   #00:00:01#    1¬íÄÁ,    #00:01#  1¤ÀÄÁ
³o¨â­Ó¥¨¶°¥i§_©ñ¦b¦P¤@­Ó¬¡­¶Ã¯?(¤Ö¤@­Óexcel ,¸û¬Ù¸ê·½)     ¸Õ¸Õ¬Ý°Ú,DeeªºÀɮפ¤µ²¦X2­Óµ{§Ç

1. Option Explicit
   
2. Sub TwOSub()
   
3.     Application.OnTime Time + #12:00:01 AM#, "twosub"
   
4.     SUB_A
   
5.     SUB_B
   
6. End Sub

½Æ»s¥N½X

GBKEE

¦^´_ 33# handsometrowa
ºô¸ô·j´M CreateObject("InternetExplorer.Application") ¦³³\¦h¥iºCºC¤F¸Ñ

GBKEE

¦^´_ 36# t8899

³o¸Ì¦³¹Ï¸Ñ

GBKEE

¦^´_ 38# t8899
«ö½T©w«á,·Ó¹Ï¥Ü¦A°µ¤U¥h¬Ý¬Ý

GBKEE

¦^´_ 40# t8899
³oºô§}´N¬O§A³o¥DÃDªººô§},¦]¦X¨Ö¨â¥DÃD¦Ó§ï¤Fºô§},©Ò¥H¤£¨£¤F.
'http://udn.megatime.com.tw/asp/hot/ShortOperate.asp?lcount=20&m=puplim&align=v"
¶×¨ìexcel«á¦s¬°¬d¸ßÀÉ,¦p¹Ï
   

¤U¸ü (79.01 KB)

2013-9-13 21:09

¦s¬°¬d¸ßÀɤº®e

1. WEB
   
2. 1
   
3. http://udn.megatime.com.tw/asp/hot/ShortOperate.asp?lcount=20&m=puplim&align=v
   
4. Selection=21,25     ' ´î -1   -> 2#ªºµ{¦¡½X¦³   For Each i In Array(20, 24)
   
5. Formatting=None
   
6. PreFormattedTextToColumns=True
   
7. ConsecutiveDelimitersAsOne=True
   
8. SingleBlockTextImport=False
   
9. DisableDateRecognition=False
   
10. DisableRedirections=False

½Æ»s¥N½X