GBKEE

¦^´_ 32# usana642
¤£¦n·N«ä¨S¸Ô²ÓÀˬd,§ó¥¿¦p¤U

1. Option Explicit
   
2. Private Sub §ó·s()
   
3.     Dim Rng As Range
   
4.     With ActiveSheet
   
5.         .Cells.Clear
   
6.         With .QueryTables.Add("URL;http://www.taifex.com.tw/chinese/3/3_2_2.asp", ActiveSheet.[A1])
   
7.             .WebFormatting = xlWebFormattingNone
   
8.             .Refresh BackgroundQuery:=False
   
9.             ActiveSheet.Names(.Name).Delete
   
10.         End With
    
11.         .Range("E:G,I:L,N:Q").Delete                                    '§R°£¦h¾lªºÄæ
    
12.         .Range("1:6,8:8").Delete                                        '§R°£¦h¾lªº¦C
    
13.         .Range("B1").End(xlDown).Offset(1).Resize(2).EntireRow.Delete   '§R°£¦h¾lªº¦C
    
14.         .Range("A:A").Insert                                            '´¡¤J¤@Äæ
    
15.         .[B1].Resize(, 12) = Array("«´¬ù", "¤ë¥÷", "¼i¬ù»ù", "¶R½æÅv", "¦¨¥æ»ù", "¥¼¥­­Ü¶q", "CALL", "=C2", "call-oi", "put-oi", "call-oi$", "put-oi$")
    
16.         '**  "=C2" ¥i­×§ï¬° ¥¿½Tªº°Ñ·Ó  ***
    
17.         With .Range("b2", .[b2].End(xlDown))
    
18.             .Offset(, -1) = "=rc4 +rc8 + rc9"
    
19.             .Columns(5).Replace "-", ""
    
20.             .Columns(7) = "=IF(rc[-3]=""Call"",1,0)"    'R1C1ªí¥Üªk : ¤u§@ªí¤Wß}¤J¤½¦¡
    
21.             .Columns(8) = "=IF(rc[-6]=r1c9,1,8)"
    
22.             .Columns(9) = "=IF(rc[-2]=1,rc[-3],0)"
    
23.             .Columns(10) = "=IF(rc[-3]=0,rc[-4],0)"
    
24.             .Columns(11) = "=if(rc[-1]=0,rc[-6]*rc[-5],"""")"
    
25.             .Columns(12) = "=if(rc[-2]<>0,rc[-7]*rc[-6],"""")"
    
26.         End With
    
27.         .UsedRange.Value = .UsedRange.Value             '®ø°£¤½¦¡
    
28.         .Columns.AutoFit
    
29.         Set Rng = .Range("b2", .[b2].End(xlDown))
    
30.         With Rng
    
31.             .Offset(, -1) = "=rc4 +rc8 + rc9"
    
32.             .Columns(5).Replace "-", ""
    
33.             .Columns(7) = "=IF(rc[-3]=""Call"",1,0)"    'R1C1ªí¥Üªk : ¤u§@ªí¤Wß}¤J¤½¦¡
    
34.             .Columns(8) = "=IF(rc[-6]=r1c9,1,8)"
    
35.             .Columns(9) = "=IF(rc[-2]=1,rc[-3],0)"
    
36.             .Columns(10) = "=IF(rc[-3]=0,rc[-4],0)"
    
37.             .Columns(11) = "=if(rc[-1]=0,rc[-6]*rc[-5],"""")"
    
38.             .Columns(12) = "=if(rc[-2]<>0,rc[-7]*rc[-6],"""")"
    
39.              With .Cells(.Rows.Count + 1, 1) '.Rows.Count + 1 ½d³ò¤º¸ê®ÆÁ`¦C¼Æ+1
    
40.                 .Cells(1, 0) = "¤p­p"
    
41.                 .Cells(1, 6) = Application.Sum(Rng.Columns(6))
    
42.                 .Cells(1, 9) = Application.Sum(Rng.Columns(9))
    
43.                 .Cells(1, 10) = Application.Sum(Rng.Columns(10))
    
44.                 .Cells(1, 11) = Application.Sum(Rng.Columns(11))
    
45.                 .Cells(1, 12) = Application.Sum(Rng.Columns(12))
    
46.             End With
    
47.         End With
    
48.     End With
    
49. End Sub

½Æ»s¥N½X

usana642

¦^´_ 30# GBKEE


GBKEE¤j¤j,§Ú­è­è°õ¦æµ{¦¡,µo²{¤p­pºâ¥Xªº¼Æ­È³£¤£¥¿½T,½Ð°Ý­n­×§ï­þ¸Ì?¤£¦n·N«ä¦A³Â·Ð±zÀ°¦£,ÁÂÁ±z

1. Option Explicit
   
2. Private Sub §ó·s()
   
3.     With ActiveSheet
   
4.         .Cells.Clear
   
5.         With .QueryTables.Add("URL;http://www.taifex.com.tw/chinese/3/3_2_2.asp", ActiveSheet.[A1])
   
6.             .WebFormatting = xlWebFormattingNone
   
7.             .Refresh BackgroundQuery:=False
   
8.             ActiveSheet.Names(.Name).Delete
   
9.         End With
   
10.         .Range("E:G,I:L,N:Q").Delete                                    '§R°£¦h¾lªºÄæ
    
11.         .Range("1:6,8:8").Delete                                        '§R°£¦h¾lªº¦C
    
12.         .Range("B1").End(xlDown).Offset(1).Resize(2).EntireRow.Delete   '§R°£¦h¾lªº¦C
    
13.         .Range("A:A").Insert                                            '´¡¤J¤@Äæ
    
14.         .[B1].Resize(, 12) = Array("«´¬ù", "¤ë¥÷", "¼i¬ù»ù", "¶R½æÅv", "¦¨¥æ»ù", "¥¼¥­­Ü¶q", "CALL", "=C2", "call-oi", "put-oi", "call-oi$", "put-oi$")
    
15.         '**  "=C2" ¥i­×§ï¬° ¥¿½Tªº°Ñ·Ó  ***
    
16.         With .Range("b2", .[b2].End(xlDown))
    
17.             .Offset(, -1) = "=rc4 +rc8 + rc9"
    
18.             .Columns(5).Replace "-", ""
    
19.             .Columns(7) = "=IF(rc[-3]=""Call"",1,0)"    'R1C1ªí¥Üªk : ¤u§@ªí¤Wß}¤J¤½¦¡
    
20.             .Columns(8) = "=IF(rc[-6]=r1c9,1,8)"
    
21.             .Columns(9) = "=IF(rc[-2]=1,rc[-3],0)"
    
22.             .Columns(10) = "=IF(rc[-3]=0,rc[-4],0)"
    
23.             .Columns(11) = "=if(rc[-1]=0,rc[-6]*rc[-5],"""")"
    
24.             .Columns(12) = "=if(rc[-2]<>0,rc[-7]*rc[-6],"""")"
    
25.         End With
    
26.         .UsedRange.Value = .UsedRange.Value             '®ø°£¤½¦¡
    
27.         .Columns.AutoFit
    
28.         With .Range("b2", .[b2].End(xlDown))
    
29.             .Offset(, -1) = "=rc4 +rc8 + rc9"
    
30.             .Columns(5).Replace "-", ""
    
31.             .Columns(7) = "=IF(rc[-3]=""Call"",1,0)"    'R1C1ªí¥Üªk : ¤u§@ªí¤Wß}¤J¤½¦¡
    
32.             .Columns(8) = "=IF(rc[-6]=r1c9,1,8)"
    
33.             .Columns(9) = "=IF(rc[-2]=1,rc[-3],0)"
    
34.             .Columns(10) = "=IF(rc[-3]=0,rc[-4],0)"
    
35.             .Columns(11) = "=if(rc[-1]=0,rc[-6]*rc[-5],"""")"
    
36.             .Columns(12) = "=if(rc[-2]<>0,rc[-7]*rc[-6],"""")"
    
37.              With .Cells(.Rows.Count + 1, 1) '.Rows.Count + 1 ½d³ò¤º¸ê®ÆÁ`¦C¼Æ+1
    
38.                 .Cells(1, 0) = "¤p­p"
    
39.                 .Cells(1, 6) = Application.Sum(.Parent.Columns(6))
    
40.                 .Cells(1, 9) = Application.Sum(.Parent.Columns(9))
    
41.                 .Cells(1, 10) = Application.Sum(.Parent.Columns(10))
    
42.                 .Cells(1, 11) = Application.Sum(.Parent.Columns(11))
    
43.                 .Cells(1, 12) = Application.Sum(.Parent.Columns(12))
    
44.             End With
    
45.         End With
    
46.     End With
    
47. End Sub

½Æ»s¥N½X

usana642

¦^´_ 30# GBKEE

¤w¥¿±`°õ¦æ
¯uªº«D±`·PÁÂGBKEE¤j¤jªº¼ö¤ßÀ°¦£,ÁÂÁ±z

GBKEE

¦^´_ 29# usana642
¦ý¬O«ö¶s¤£¨£¤F?

¤U¸ü (27.75 KB)

2012-10-19 12:58

27# ¥[¤Jµ{¦¡½X

1. With .Range("b2", .[b2].End(xlDown))
   
2.             .Offset(, -1) = "=rc4 +rc8 + rc9"
   
3.             .Columns(5).Replace "-", ""
   
4.             .Columns(7) = "=IF(rc[-3]=""Call"",1,0)"    'R1C1ªí¥Üªk : ¤u§@ªí¤Wß}¤J¤½¦¡
   
5.             .Columns(8) = "=IF(rc[-6]=r1c9,1,8)"
   
6.             .Columns(9) = "=IF(rc[-2]=1,rc[-3],0)"
   
7.             .Columns(10) = "=IF(rc[-3]=0,rc[-4],0)"
   
8.             .Columns(11) = "=if(rc[-1]=0,rc[-6]*rc[-5],"""")"
   
9.             .Columns(12) = "=if(rc[-2]<>0,rc[-7]*rc[-6],"""")"
   
10.              With .Cells(.Rows.Count + 1, 1) '.Rows.Count + 1 ½d³ò¤º¸ê®ÆÁ`¦C¼Æ+1
    
11.                 .Cells(1, 0) = "¤p­p"
    
12.                 .Cells(1, 6) = Application.Sum(.Parent.Columns(6))
    
13.                 .Cells(1, 9) = Application.Sum(.Parent.Columns(9))
    
14.                 .Cells(1, 10) = Application.Sum(.Parent.Columns(10))
    
15.                 .Cells(1, 11) = Application.Sum(.Parent.Columns(11))
    
16.                 .Cells(1, 12) = Application.Sum(.Parent.Columns(12))
    
17.             End With
    
18.         End With

½Æ»s¥N½X

usana642

¦^´_ 27# GBKEE

GBKEE¤j¤j¯u©êºp
§Ú¦Û¤v·s¼W¥[¤@¨ÇªF¦è,ÁÙ¦³¥H¤U°ÝÃD
1.¥i§_¦b''­pºâ''ªº¤u§@ªí¤¤²Ä278¦C¥[¤W¥[Á`ªº­pºâ?³o¤@¦C¬O§_·|ÀH¸ê®Æ·½¨C¤ëÅܰʦÓÅÜ°Ê?
2.¦b''­pºâ''ªº¤u§@ªí¤¤¤w¥[¤W"§ó·s"³o­Ó«ö¶s¨Ó±±¨î§ó·s,«ö¤U«á,¸ê®Æ¶i¨Ó,¦ý¬O«ö¶s¤£¨£¤F?

½Ð°Ý­n¦p¦ó­×¥¿?ÁÂÁ±z¼·ªÅ«ü¾É,ÁÂÁÂ...

usana642

¦^´_ 27# GBKEE


   ¥i¥H¥¿±`°õ¦æ¤F
«D±`·PÁÂGBKEE¤j¤jªº¼ö¤ß¨ó§U,ÁÂÁ±z

GBKEE

¦^´_ 26# usana642
¸Õ¸Õ¬Ý

1. Option Explicit
   
2. Sub Ex()
   
3.     With ActiveSheet
   
4.         .Cells.Clear
   
5.         With .QueryTables.Add("URL;http://www.taifex.com.tw/chinese/3/3_2_2.asp", ActiveSheet.[A1])
   
6.             .WebFormatting = xlWebFormattingNone
   
7.             .Refresh BackgroundQuery:=False
   
8.             ActiveSheet.Names(.Name).Delete
   
9.         End With
   
10.         .Range("E:G,I:L,N:Q").Delete                                    '§R°£¦h¾lªºÄæ
    
11.         .Range("1:6,8:8").Delete                                        '§R°£¦h¾lªº¦C
    
12.         .Range("B1").End(xlDown).Offset(1).Resize(2).EntireRow.Delete   '§R°£¦h¾lªº¦C
    
13.         .Range("A:A").Insert                                            '´¡¤J¤@Äæ
    
14.         .[B1].Resize(, 12) = Array("«´¬ù", "¤ë¥÷", "¼i¬ù»ù", "¶R½æÅv", "¦¨¥æ»ù", "¥¼¥­­Ü¶q", "CALL", "=C2", "call-oi", "put-oi", "call-oi$", "put-oi$")
    
15.         '**  "=C2" ¥i­×§ï¬° ¥¿½Tªº°Ñ·Ó  ***
    
16.         With .Range("b2", .[b2].End(xlDown))
    
17.             .Offset(, -1) = "=rc4 +rc8 + rc9"
    
18.             .Columns(5).Replace "-", ""
    
19.             .Columns(7) = "=IF(rc[-3]=""Call"",1,0)"    'R1C1ªí¥Üªk : ¤u§@ªí¤Wß}¤J¤½¦¡
    
20.             .Columns(8) = "=IF(rc[-6]=r1c9,1,8)"
    
21.             .Columns(9) = "=IF(rc[-2]=1,rc[-3],0)"
    
22.             .Columns(10) = "=IF(rc[-3]=0,rc[-4],0)"
    
23.             .Columns(11) = "=if(rc[-1]=0,rc[-6]*rc[-5],"""")"
    
24.             .Columns(12) = "=if(rc[-2]<>0,rc[-7]*rc[-6],"""")"
    
25.         End With
    
26.         .UsedRange.Value = .UsedRange.Value             '®ø°£¤½¦¡
    
27.         .Columns.AutoFit
    
28.     End With
    
29. End Sub

½Æ»s¥N½X

usana642

¦^´_ 24# GBKEE

½Ð°ÝGBKEE¤j¤j

§Ú¦b"­pºâ"¤u§@ªíªº¨â­ÓÄæ¦ì "call-oi$" "put-oi$",­n§¹¦¨¤W­z°ÝÃDªº¼Æ¾Ú­pºâ,½Ð°Ý­n¦p¦ó­×¥¿?ÁÂÁ±zªº¨ó§U

usana642

¦^´_ 24# GBKEE


    ÁÂÁ±z

GBKEE

¦^´_ 23# usana642

1. Option Explicit
   
2. ¥Î 2000ª© ¥H¤W¸Õ¸Õ¬Ý
   
3. Sub Ex()
   
4.      Columns(8).Replace "-", ""
   
5.      '©Î¬O
   
6.      Range("H:H").Replace "-", "0"
   
7. End Sub

½Æ»s¥N½X