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

°}¦C¦^¶Ç

°}¦C¦^¶Ç

½Ð°Ý¤@¤U¡A§Ú­n¦p¦ó±N¤Ñ¼Æ³o­Ó°}¦C¦^¶Ç¨ì¤W­±µM«áÄ~Äò¨Ï¥Î©O?
  1. Public Sub µ²§ô¤é´Á1()
  2. lastrow = Sheet4.[I65536].End(xlUp).Row
  3.     For µ§¼Æ = 2 To lastrow               
  4.         §å¦¸ = Sheet4.Cells(µ§¼Æ, 12)
  5.         SDay = Sheet4.Cells(µ§¼Æ, 14)
  6.         ¦U¤Ñ¼Æ µ§¼Æ
  7. End Sub
  8. Private Function ¦U¤Ñ¼Æ(µ§¼Æ)
  9.           aa = Cells(µ§¼Æ, 9)      
  10.          ²Ä´X¦æ = [a:a].Find(aa).Row   
  11.          ¥kÃä´XÄæ = Cells(²Ä´X¦æ, 1).End(xlToRight).Column - 2
  12.     ReDim Preserve ¤Ñ¼Æ(¥kÃä´XÄæ - 1)  
  13.               ¤Ñ¼Æ²Ó¶µ = 3   
  14.               For i = 0 To ¥kÃä´XÄæ - 1
  15.             ¤Ñ¼Æ(i) = Cells(²Ä´X¦æ, ¤Ñ¼Æ²Ó¶µ)
  16.                 ´X¤Ñ = ´X¤Ñ + 1 '¥[¤@¦C
  17.                 Next i
  18.               ¦U¤Ñ¼Æ = ¤Ñ¼Æ
  19. End Function
½Æ»s¥N½X

¤Ñ¼Æ = ¦U¤Ñ¼Æ( µ§¼Æ )

ok???

TOP

¦^´_ 2# jackyq

J¤j~

§Ú§ï¦¨ ¤Ñ¼Æ = ¦U¤Ñ¼Æ( µ§¼Æ ) «á¡Aµ{¦¡Åܦ¨·|¤@ª½¦b Private Function ¦U¤Ñ¼Æ(µ§¼Æ) ³o¸Ì­±¤@ª½°õ¦æ¤£·|¦^¨ì­ì¨Óªº¦a¤è¡A

«á¨Ó§â³o¬q¾ã¦U®³±¼«á¡Aµo²{¥L´N¥¿±`¤F¡A¥L¨ä¹ê¬O¥i¥H¶Ç¦^¥hªº¡C

ÁÂÁÂ:loveliness:

TOP

        ÀR«ä¦Û¦b : ¥¬¬I¦p¼½ºØ¡A¥HÅw³ß¤ß´þ¼íºØ¤l¡A¤~·|µoªÞ¡C
ªð¦^¦Cªí ¤W¤@¥DÃD