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

¦p¦ó¨C¤é§ó·s¤£¦P¤é´ÁªºÀɮסA¶¶«K­pºâÀx¦s®æ¼Æ??

¦^´_ 4# zaq370


    ¯à²z¸Ña¥Nªí¬Æ»ò¶Ü?
¤F¸Ñaªº·N¸q¡A¦A¥h¬Ýoffset¨ç¼Æªº»¡©ú
d¬O¤@­Ó¦r¨åª«¥óÅܼơA½Ð¥ýª¦¤å¤F¸ÑDictionaryª«¥óªº¥Îªk
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¦^´_ 3# Hsieh


    ·PÁ¤j¤j!!

¥i¥H¨Ï¥Î!!¤£¦n·N«ä¡A§Ú¬O·s¤â¡I

¦³¤@¥yµ{¦¡½X¤£¤ÓÀ´"a.Offset(, 1) = d(a.Value)"
³o¥yªº·N«ä¬O«ü???
VBAªºµ{¦¡½X¦³ÂIÃøÀ´!!>"<

TOP

¦^´_ 1# zaq370
¸Õ¸Õ¬Ý
  1. Private Sub Workbook_Open()
  2. Set d = CreateObject("Scripting.Dictionary")
  3. wb = Format(Date, "mmdd")
  4. With Workbooks.Open(ThisWorkbook.Path & "\" & wb & ".xls")
  5. With .Sheets(1)
  6. For Each a In .Range(.[I2], .[I2].End(xlDown))
  7.   d(a.Value) = d(a.Value) + 1
  8. Next
  9. End With
  10. .Close
  11. End With
  12. With Sheets(1)
  13. For Each a In .Range(.[A2], .[A2].End(xlDown))
  14. a.Offset(, 1) = d(a.Value)
  15. Next
  16. End With
  17. End Sub
½Æ»s¥N½X
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¦^´_ 1# zaq370
§Ú¤w§xÂZ«Ü¤[
¥i¥H¬Ý¬Ý §A¹Á¸Õªºµ{¦¡½X¶Ü?

TOP

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