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

[µo°Ý] ¨D§U~Ãö©óvbaªºµ{¦¡!

¦^´_ 10# candy516
  1. Sub ex()
  2. Set d = CreateObject("Scripting.Dictionary")
  3. Application.ScreenUpdating = False
  4. With Sheet1
  5.    For Each a In .Range(.[A2], .[A2].End(xlDown))
  6.       d(a & Year(a.Offset(, 1))) = a.Offset(, 1).Value
  7.    Next
  8. End With
  9. For y = 2001 To 2010
  10.   With Sheets(CStr(y))
  11.     If Application.CountBlank(.Range(.[B1], .[IV1].End(xlToLeft))) > 0 Then .Range(.[B1], .[IV1].End(xlToLeft)).SpecialCells(xlCellTypeBlanks).EntireColumn.Delete
  12.     .Range(.[IV1].End(xlToLeft).Offset(, 1), .[IV1]).EntireColumn.Clear
  13.     k = 2
  14.     Do Until .Cells(1, k) = ""
  15.     .Columns(k + 1).Insert
  16.        mystr = .Cells(1, k) & y
  17.        Set a = .Columns("A").Find(d(mystr))
  18.        If Not a Is Nothing Then
  19.        cnt = 0
  20.          r = a.Row
  21.          test = .Cells(r + 1, k)
  22.          cnt = cnt + 1
  23.          Do Until .Cells(r, k) >= test Or .Cells(r, k) = ""
  24.          cnt = cnt + 1
  25.          r = r - 1
  26.          Loop
  27.          If r <= 2 Then
  28.          .Cells(a.Row, k + 1) = "µL¶ñÅv"
  29.          Else
  30.          .Cells(a.Row, k + 1) = cnt
  31.          End If
  32.        End If
  33.        k = k + 2
  34.     Loop
  35.   End With
  36. Next
  37. Application.ScreenUpdating = True
  38. End Sub
½Æ»s¥N½X
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¦^´_ 11# Hsieh


½Ð°Ý¤j¤j~
¦pªG§Ú±Nµ{¦¡½XCOPYªº¥t¥~¤@­ÓÀÉ®×(²{ª÷ªÑ§Qªº)¡A¦³­þ¸Ì¬O»Ý­n§ïªº¶Ü?
¦]¬°¦n¹³µLªk®M¥Î¡A§Ú¦³¤W¶Ç¤@­Ó·sªºÀɮ׬O²{ª÷ªÑ§Qªº¡A¦ý¦]¬°ÀɮפӤj¡A
©Ò¥H§Ú¥ý±N³¡¤À¸ê®Æ§R±¼¡A¥u±q2005~2010!
ÁÂÁ§AªºÀ°¦£!

TOP

¦^´_ 12# candy516

¦]¬°Äæ¼Æ¹L¦h¥²¶·¨Ï¥Î2007ª©¥»
  1. Sub ex()
  2. Set d = CreateObject("Scripting.Dictionary")
  3. Application.ScreenUpdating = False
  4. With Sheet1
  5.    For Each a In .Range(.[A2], .[A2].End(xlDown))
  6.       d(a & Year(a.Offset(, 1))) = a.Offset(, 1).Value
  7.    Next
  8. End With
  9. For y = 2001 To 2004
  10.   With Sheets(CStr(y))
  11.     If Application.CountBlank(.Range(.[B1], .[XFD1].End(xlToLeft))) > 0 Then .Range(.[B1], .[XFD1].End(xlToLeft)).SpecialCells(xlCellTypeBlanks).EntireColumn.Delete
  12.     .Range(.[XFD1].End(xlToLeft).Offset(, 1), .[XFD1]).EntireColumn.Clear
  13.     k = 2
  14.     Do Until .Cells(1, k) = ""
  15.     .Columns(k + 1).Insert
  16.        mystr = .Cells(1, k) & y
  17.        Set a = .Columns("A").Find(d(mystr))
  18.        If Not a Is Nothing Then
  19.        cnt = 0
  20.          r = a.Row
  21.          test = .Cells(r + 1, k)
  22.          cnt = cnt + 1
  23.          Do Until .Cells(r, k) >= test Or .Cells(r, k) = ""
  24.          cnt = cnt + 1
  25.          r = r - 1
  26.          Loop
  27.          If r <= 2 Then
  28.          .Cells(a.Row, k + 1) = "µL¶ñÅv"
  29.          Else
  30.          .Cells(a.Row, k + 1) = cnt
  31.          End If
  32.        End If
  33.        k = k + 2
  34.     Loop
  35.   End With
  36. Next
  37. Application.ScreenUpdating = True
  38. End Sub
½Æ»s¥N½X
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¹ïóø~Äæ¦ì¼Æ¦³®t!
§ÚÀ´¤F!¦ý§Ú²{¦bµo²{§Ú¸ê®Æ¦³¤@ÂI·d¿ù¤F!= =
§Ú¦A¥h­«§ì¸ê®Æ¤F!
ÁÂÁ§Aªº­@¤ß¦^ÂÐ!
¤S°ÝÃD¥i¥H¦A½Ð±Ð§A¶Ü?^^
ÁÂÁ§A!

TOP

¦^´_ 13# Hsieh


½Ð°Ý~
¬°¤°»ò¦b°õ¦æ«á¥u¦³2008¦~ªº®æ¦¡·|¶]±¼©O?!
ÁÂÁ§A!

TOP

¦^´_ 15# candy516

¨º­n¬Ý§Aªº®æ¦¡¬O§_¸ò¨ä¥L¦~«×¤@¼Ë
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¬Ý°_¨ÓÀx¦s®æ®æ¦¡¬O¤@¼Ë¡A§Ú¤w¸g§â¸ê®Æ­«§ì¤@«K!
­«§ì´NOK¤F!
^^
ÁÂÁÂ!

TOP

¥»©«³Ì«á¥Ñ FAlonso ©ó 2011-1-18 20:45 ½s¿è

¤£¦n·N«ä,§Úµo²{¤@¨Ç°ÝÃD
2003¦~Z¦æªÑ²¼"¤é³Ó¥Í",¶À¦â®æ¤l¬O³Ì«á¤@¦æ
®Ú¾Ú§Aªº»¡ªk,­pºâ¤é¤lªº¤èªk¬O§â¶À¦â®æ¤l¤Î¶À¦â®æ¤l¦ì¸m¥H¤Wªº®æ¤l* ©M ¶À¦â®æ¤l¥H¤Uªº¤@®æ§@¤ñ¸û
²{¦b¶À¦â®æ¤l¤U­±¨S¦³ªF¦è,«ç¿ì?

*«ü­Y¶À¦â®æ¤l¬OC10,©Ò¿×¥H¤Wªº®æ¤l¬OC9,C8,........¤ª¤ª,¶À¦â¥H¤Uªº¤@®æ¥NªíC11¤ª¤ª

ÁÙ¦³¤¤¶¡ªº¤é¼Æ¬O§_«ütrading days?
80 ¦r¸`¥H¤º
¤£¤ä«ù¦Û©w¸q Discuz! ¥N½X

TOP

¦^´_ 18# FAlonso


§A¦n~
§Ú³£¨Sµo²{¨ì³o­Ó°ÝÃD­C!
¤é³Ó¥Í¦b2003/01/02°£Åv¡A¨ä¹ê¥¦À³¸Ó­n¸ò2002/12/31ªº¦¬½L»ù°µ¤ñ¸û!
¦]¬°§Ú¬O¤À¦~«×§ì¸ê®Æªº,©Ò¥H©¿²¤¤F³o¤@ÂI!= =
¤é¼Æ³£¬O¥æ©ö¤é¨S¿ù!
^^

TOP

¦^´_ 19# candy516
¤ñ¸û¦nªº¤è¦¡¬O§â©Ò¦³¦~«×¸ê®Æ³£¾ã²z¦b¦P¤@¤u§@ªí¤¤
¸ó¦~¸ó¤ëªº°ÝÃD´N®e©ö¸Ñ¨M
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

        ÀR«ä¦Û¦b : ¤£©È¨Æ¦h¡A¥u©È¦h¨Æ¡C
ªð¦^¦Cªí ¤W¤@¥DÃD