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

[¤À¨É] ¤j½L¨C¤ë¨C¤Ñ¾ú¥v¦¨¥æ¶q»Pª÷ÃB¤U¸ü

¦^´_ 20# usana642
¨º¬O¶×¤J¥~³¡¸ê®Æ, ³o¬O¶}±ÒExcel  csv   ¤å¦rÀÉ,¦³¨Ç¤£¦Pªº
§A¸ÕµÛ¶}±Ò¤@ Excel  csv ¤å¦rÀÉ,¦p¦³§A»¡¸ê®Æ¬Ò¦bAÄæ,¨º´N¥i¯à¬OEXCELªº°ÝÃD.

TOP

¦^´_ 21# GBKEE

§Ú¦A¸Õ¬Ý¬Ý,ÁÂÁ±z
stock

TOP

¦^´_ 21# GBKEE

ÁÂÁÂGBKEE¤j¤j
§Ú¬O¥ÎEXCEL 2000,
¦A½Ð±Ð±z¤@­Ó°ÝÃD,§Ú¥Î WEB¬d¸ßªº¤è¦¡,±N¤U¦Cºô¯¸¼Æ¾Ú¦s¤J¤u§@ªí¤@¤¤,·í§Ú­n¦b¤u§@ªí¤G,­pºâ"³Ì«á¦¨¥æ»ù"­¼¤W"¥¼¨R¾P«´¬ù¶q"®É,ªí®æ¤¤ªºµL¼Æ¾Ú²Å¸¹"-",·|³y¦¨¿ù»~
#VALUE! ,½Ð°Ý­n¦p¦ó¦bµL¼Æ¾ÚªºÄæ¦ì§â¥¦·í¦¨0³B¸Ì,¥H¤è«K­pºâ
   
http://www.taifex.com.tw/chinese/3/3_2_2.asp
stock

TOP

¥»©«³Ì«á¥Ñ GBKEE ©ó 2012-10-18 17:56 ½s¿è

¦^´_ 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

TOP

¦^´_ 24# GBKEE


    ÁÂÁ±z
stock

TOP

¦^´_ 24# GBKEE

½Ð°ÝGBKEE¤j¤j

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

TEST.zip (99.9 KB)

stock

TOP

¦^´_ 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

TOP

¦^´_ 27# GBKEE


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

TOP

¦^´_ 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¼·ªÅ«ü¾É,ÁÂÁÂ...

TEST2.zip (34.86 KB)

stock

TOP

¥»©«³Ì«á¥Ñ GBKEE ©ó 2012-10-19 12:58 ½s¿è

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




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

TOP

        ÀR«ä¦Û¦b : ¨ü¤HÂI¤ô¤§®¦¡A¶··í´é¬u¥H³ø¡C
ªð¦^¦Cªí ¤W¤@¥DÃD