GBKEE

¦^´_ 1# hsu5120

1. With .Document
   
2.             '¶ñ¤JÃþªÑ option "©Ò¦³ÃÒ¨é(¤£§tÅvÃÒ¡B¤ûºµÃÒ)"
   
3.             .all("sect").Value = "EW"
   
4.             .all("sect").onchange
   
5.             '¶ñ¤J¸ê®Æ¤é´Á option
   
6.             .all("input_date").Value = Format(xDate, "E/MM/DD")
   
7.             .all("input_date").onchange
   
8.             Application.Wait Now + TimeValue("00:00:03")
   
9.             ' Åã¥Ü "¥þ³¡"µ§¸ê®Æªº option VBA¦p¦ó¼g¡H¡H
   
10.             'Åã¥Ü ?? ¸ê®Æ: stk_wn1430_result_length  option  -1 = >"¥þ³¡"
    
11.             .all("stk_wn1430_result_length")(1).Value = -1
    
12.             '.all("stk_wn1430_result_length")(1).Item(0).Selected = True '¿ï²Ä¤@­Ó
    
13.             .all("stk_wn1430_result_length")(1).fireEvent ("onchange")
    
14.             Application.Wait Now + TimeValue("00:00:03")
    
15.         End With

½Æ»s¥N½X