av8d

¦^´_ 11# GBKEE


    ¥Ø«e¥u³Ñ³o­Ó°ÝÃD~¦p¦óÅý¶}±Òºô­¶«á~Åýºô­¶¬°³Ì¤W¼h
§Ú«ö·Ó¤j¤j¨Ï¥Î.Document.Focus
¦ý¬OEXCEL«oÁÙ¬O¦b³Ì¤W¼h~µM«á±µ¤U¨Ó«öENTERªº°Ê§@´NµLªkÄ~Äò°õ¦æ.
¦A¦¸ÁÂÁª©¥D.

av8d

¦^´_ 18# GBKEE


    ÁÂÁª©¤j~
¥Ø«e³Ñ¤U°ß¤@°ÝÃD~
¨C¦¸¶}±Ò«áºô­¶Á`¬O¦bEXCEL¤U¼h~
¾É­P°T®§µøµ¡·|¦s¦bªº°ÝÃD
(¦³¨Ï¥Î.Document.Focus)
¨C­Ó¦ì¤l¤]´ú¸Õ¹L¡A¬ÒµL®Ä

av8d

¦^´_ 20# GBKEE


    ª©¥D¦A¦¸³Â·Ð±z~¯u¤£¦n·N«ä~
ªþ¤W¥N½X

1. Private Sub CommandButton1_Click()
   
2.     With CreateObject("InternetExplorer.Application")
   
3.         .Navigate "https://google.com"
   
4.         .Visible = True
   
5. 
   
6.         Do While .Busy Or .ReadyState <> 4
   
7.             DoEvents
   
8.         Loop
   
9.         .Document.Focus
   
10.     End With
    
11. End Sub

½Æ»s¥N½X

¥H¤W¬O³Ì²©öªºGoogle¶}±Òªººô­¶
-------------------------------------------------
¥H¤U«D±`­«­n~­º¥ý§Ú§â«ö³o«ö¶s©ñ¤W³o­Ó¥N½X«á
Àx¦s¨ÃÃö³¬EXCEL
µM«á­«·s¶}±Ò¡Aª½±µ«ö¤U«ö¶s«á
±z·|¬Ý¨ìGoogleºô­¶«Ü©úÅ㪺¦bEXCEL«á­±
¸Ó¦p¦óÅýºô­¶¦b³Ì¤W¼h©O?
----------------------------------------------------
µo²{¤@­Ó²{¶H~¨C·í¶}±Ò«áºÝµ{¦¡½X°Ï«á
¦A°õ¦æ«ö¶s´N·|¥¿±`±Nºô­¶¦b³Ì¤W¼h
¦ý¬O·íÀÉ®×Ãö³¬¡A¶}±ÒÀɮ׫᪽±µ«ö«ö¶s¡Aºô­¶¤S·|¦A«×¶]¨ìEXCEL«á­±

av8d

¦^´_ 20# GBKEE


    ¸Ñ¨M¤F~
§ÚÅý¶}EXCEL®É¡A¦Û°Ê¶}±Òµ{¦¡½X¡A§Y¥i

1. Private Sub Workbook_Open()
   
2.     On Error Resume Next
   
3.     Application.SendKeys ("%{F11}") '«ö¤U Alt+F11 Áä
   
4. End Sub

½Æ»s¥N½X

¥u¬O¤£²M·¡¦p¦óÅý¥L³Ì¤p¤Æ¡A§V¤O¬d¸ß¤¤
ª©¥D¨¯­W¤F~ÁÂÁÂ

av8d

¦^´_ 23# GBKEE


    ÁÂÁª©¥D~·Q¦A½Ð±Ðª©¥D~
¤@¯ë§Ú­Ì¥´¶}EXCEL«á~
«ö¤UAlt+F11·|¥´¶}µ{¦¡½X~
¬O§_¦³³Ì¤p¤Æµ{¦¡½Xªº¼gªk©O?ÁÂÁÂ!

av8d

¦^´_ 25# GBKEE


    ÁÂÁª©¥D¹©¤O¬Û§U¡A§¹¦¨¦p¤U

1.     With Application
   
2.         With .VBE.MainWindow
   
3.             .WindowState = vbext_ws_Minimize
   
4.             .Visible = False
   
5.         End With
   
6.     End With

½Æ»s¥N½X

¯u¬O¨ü¯q¨}¦h~·P¿E¸U¤À!