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

[µo°Ý] ¦¹¦¬´Mvba¼W¥[¸U¥Î¦r¤¸

¦^´_ 11# Hsieh


¤j¤j §Ú¥i¯à¦P¤@­Ó¤H ·|¦³¨âµ§¥H¤Wªº¥i¯à ©Ò¥H ¬O§_¥i¥H¦h°»´ú´XÄæ......aÄæ®ÚiÄæ¼g¤J¦r¨å
aÄæ¬O®É¶¡ iÄæ¬O¦W¤l   aÄ榳¨ì 2012/01/01 00:00 (¦³¨ì¤À)
©Ò¥H aÄæ®ÚiÄæ °ò¥»¤W¤£·|­«ÂР  À³¸Ó´N¯à¹F¨ì§Ú­nªº  ­è­è¦Û¤v¬ã¨s¤@¤U §Ú¤w¸g¤j·§À´¤F¦r¨åªº¥Îªk  ¦ý ¤£·|¨â­Ó¦P®É¼g¤J¦r¨å= ="
©Ò¥HÁÙ¬O±o³Â·Ð¤j¤j¨ó§U§Ú¤@§â¤F.......
­n¾ÇªºªF¦è¦n¦hªü@@" ¦ý¬O§Ú³£¦³°O¤U¨Ó ¤]¦³°µµ§°O ¤]½Ð¤j¤j¦h±Ð±Ð§Ú§a^^!! ¦è¦è.... ¨¯­W¤j¤j¤F!

TOP

  1. Sub ²Î¤@¬d¸ß¥\¯à()
  2. Application.ScreenUpdating = False
  3. Set d = CreateObject("Scripting.Dictionary")  '³Ð«Ø¦r¨åª«¥ó
  4. Name = Sheets("¬d¸ß³B²z°Ï").Range("M3")  '¬d¸ßÃöÁä¦r
  5. With Sheets("²Î¤@")  '²Î¤@¤u§@ªí°Ï¬q
  6. G = .[A65536].End(xlUp).Row   '²Î¤@¤u§@ªíªº¸ê®Æ§À
  7. For i = 2 To G
  8.     If .Cells(i, 9) Like "*" & Name & "*" And IsEmpty(d(.Cells(i, 1) & .Cells(i, 9))) Then '¦r¨å¤¤¨S¥X²{¹LIÄæ¥B¥]§t¬d¸ßÃöÁä¦r
  9.     Sheets("¬d¸ß³B²z°Ï").[A65536].End(xlUp).Offset(1).Resize(, 9) = .Cells(i, 1).Resize(, 9).Value  '±NA:IÄæ¼g¤JSheets("¬d¸ß³B²z°Ï")
  10.      d(.Cells(i, 1) & .Cells(i, 9)) = .Cells(i, 9).Value  '±NIÄ椺®e¦s¤J¦r¨å
  11.     End If
  12. Next i
  13. End With 'µ²§ô²Î¤@¤u§@ªí°Ï¬q±Ô­z
  14. Sheets("¬d¸ß³B²z°Ï").Select
  15. Application.ScreenUpdating = True  '¶}±ÒÅã¥Ü
  16. MsgBox "²Î¤@¬d¸ß§¹¦¨"
  17. End Sub
½Æ»s¥N½X
¦^´_ 12# die78325
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¦^´_ 13# Hsieh


    ¤j¤j §Ú­è´ú¤F¤@¤U ¥LÅܦ¨¨S¦³¦r¨åªº¥\¯à¤F= ="   ¦³¬Æ»ò¶K¬Æ»ò ! ¦³­«½Æ·Ó¶K¤£»~....

   ¹ï¤£°_§Ú¤£¬O¬G·N¨Ó¶Ãªº~~~((²\©b...
  ­è°µ¤F­ÓÀɵ¹¤j¤j´ú¸Õ¤F   ·P®¦... TXET.rar (18.56 KB)
TXET.rar (18.56 KB)

TOP

¦^´_ 13# die78325
¦³¬Æ»ò¶K¬Æ»ò ! ¦³­«½Æ·Ó¶K¤£»~
¤°»ò­«½Æ §A­n»¡©ú¥Õ

TOP

¦^´_ 13# die78325
µ{¦¡½X¬O¤ñ¹ïA»PIÄ椣­«½Æ
­Y¬O­n¥HAÄæ®É¶¡¨ì¤ÀÄÁ¬°§PÂ_°ò·Ç
  1. Sub ²Î¤@¬d¸ß¥\¯à()
  2. Application.ScreenUpdating = False
  3. Set d = CreateObject("Scripting.Dictionary")  '³Ð«Ø¦r¨åª«¥ó
  4. Name = Sheets("¬d¸ß³B²z°Ï").Range("M3")  '¬d¸ßÃöÁä¦r
  5. With Sheets("²Î¤@")  '²Î¤@¤u§@ªí°Ï¬q
  6. G = .[A65536].End(xlUp).Row   '²Î¤@¤u§@ªíªº¸ê®Æ§À
  7. For i = 2 To G
  8. mystr = Format(.Cells(i, 1), "yyyymmdd hhmm") & .Cells(i, 9) '¤£­«½Æ·Ç«h¦r¦ê
  9.     If .Cells(i, 9) Like "*" & Name & "*" And IsEmpty(d(mystr)) Then '¦r¨å¤¤¨S¥X²{¹LIÄæ¥B¥]§t¬d¸ßÃöÁä¦r
  10.     Sheets("¬d¸ß³B²z°Ï").[A65536].End(xlUp).Offset(1).Resize(, 9) = .Cells(i, 1).Resize(, 9).Value  '±NA:IÄæ¼g¤JSheets("¬d¸ß³B²z°Ï")
  11.      d(mystr) = .Cells(i, 9).Value  '±NIÄæ®ÚAÄ椺®e¦s¤J¦r¨å
  12.     End If
  13. Next i
  14. End With 'µ²§ô²Î¤@¤u§@ªí°Ï¬q±Ô­z
  15. Sheets("¬d¸ß³B²z°Ï").Select
  16. Application.ScreenUpdating = True  '¶}±ÒÅã¥Ü
  17. MsgBox "²Î¤@¬d¸ß§¹¦¨"
  18. End Sub
½Æ»s¥N½X
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¦^´_ 14# GBKEE


10¼Ó¤j¤jÀ°§Ú­×¥¿ªºÀÉ®×
·|¥h°µ°»´ú²Ä9¦C(¦W¤l)¬O§_¦³¬Û¦Pªº ¦p¬Û¦P´N¤£¶K (¥Î¦r¨å¥\¯à)¡ö ¸g´ú¸Õ«á¥i¦æ((³æ¦C¶Ç¤J¦r¨å¥h°»´ú))   

¦ý§Ú§Æ±æ¥i¥H¦A¦h¥[²Ä¤@Äæ¤]¦C¤J¦r¨å¤º  ´Nµ¥©ó ¡y®É¶¡&¦W¤l¡z¦C¤J¦r¨å  ((¦h±ø¥ó))   ³o¼Ë¤~²Å¦X§Ú­nªº»Ý¨D   ((¦]¬°¥i¯à·|¦W¤l¬Û¦P ¦ý ®É¶¡¤£¦P))  
¦ý12¼Ó¤j¤j¦bÀ°§Ú°µ­×¥¿«á    ³s10¼Ó¨º¦¸ªº³æ¦C°»´ú¥\¯à¤]¨S¦³¤F   

°²³]A­¶¦³5µ§¦W¤l¦³¥]¬A "±i"ªº       B­¶²{¦æ¤w¦³3µ§¦³"±i"   ¥¿±`­n§â¥Ø«eB­¶¨S¦³ªº¨âµ§¶K¤Jªñ¨Ó    ¦ý²{¦bÅܦA¶K¤­µ§  ¦A°õ¦æ¤@¦¸ ¤S¦A¶K¤­µ§.....
´N¥¢¥h¤F10¼Óªº¥\¯à

TOP

¯uªº¨S¿ìªk¶Ü........

§Ú¤W¶Çªºªþ¥ó  ......    ½Ð¿é¤J §»¹F¹q    ²Ä¤@¦¸·|¥X¤­µ§
©Ò¥H¥L¦s¤J¦r¨åªº¸ê®Æ¦p¤U
2012/11/19 9:01§»¹F¹q
2012/11/19 14:52§»¹F¹q
2012/11/19 19:19§»¹F¹q
2012/11/19 13:50§»¹F¹q
2012/11/19 16:02§»¹F¹q
2012/11/19 12:13§»¹F¹q

¥¿±`¨Ó»¡ §Ú¦AÂI¤@¦¸¦¬´M§»¹F¹q  
¥LÀ³¸Ó´N·|ª½±µÅã¥Ü "¬d¸ß§¹¦¨" ¦Ó¤£·|·s¼W¥ô¦ó¸ê®Æ(¦]¬°®É¶¡»P¦W¤l³£¤@¼Ë)
ª½¨ì§Ú·s¼W"²Î¤@"­¶­±¤S¦³¥s§»¹F¹qªº ¤~·|¥X²{³Ì·sªº§»¹F¹q¸ê®Æ ¨ì¬d¸ß³B²z°Ïªº³Ì¤U­±¤@Äæ(ÁöµM¦W¤l¤@¼Ë¦ý®É¶¡¤£¤@¼Ë....)

=_____________________________=!!·PÁ¦U¦ì¤j¤j

TOP

¦^´_ 17# die78325
  1. Sub ²Î¤@¬d¸ß¥\¯à()
  2. Application.ScreenUpdating = False
  3. Set d = CreateObject("Scripting.Dictionary")  '³Ð«Ø¦r¨åª«¥ó
  4. With Sheets("¬d¸ß³B²z°Ï")
  5. Name = .Range("M3") '¬d¸ßÃöÁä¦r
  6. For Each a In .Range(.[A2], .[A2].End(xlDown))
  7. mystr = Format(a, "yyyymmdd hhmm") & a.Offset(, 8)
  8. d(mystr) = a.Offset(, 8)
  9. Next
  10. End With
  11. With Sheets("²Î¤@")  '²Î¤@¤u§@ªí°Ï¬q
  12. G = .[A65536].End(xlUp).Row   '²Î¤@¤u§@ªíªº¸ê®Æ§À
  13. For i = 2 To G
  14. mystr = Format(.Cells(i, 1), "yyyymmdd hhmm") & .Cells(i, 9) '¤£­«½Æ·Ç«h¦r¦ê
  15.     If .Cells(i, 9) Like "*" & Name & "*" And IsEmpty(d(mystr)) Then '¦r¨å¤¤¨S¥X²{¹LIÄæ¥B¥]§t¬d¸ßÃöÁä¦r
  16.     Sheets("¬d¸ß³B²z°Ï").[A65536].End(xlUp).Offset(1).Resize(, 9) = .Cells(i, 1).Resize(, 9).Value  '±NA:IÄæ¼g¤JSheets("¬d¸ß³B²z°Ï")
  17.      d(mystr) = .Cells(i, 9).Value  '±NIÄæ®ÚAÄ椺®e¦s¤J¦r¨å
  18.     End If
  19. Next i
  20. End With 'µ²§ô²Î¤@¤u§@ªí°Ï¬q±Ô­z
  21. Sheets("¬d¸ß³B²z°Ï").Select
  22. Application.ScreenUpdating = True  '¶}±ÒÅã¥Ü
  23. MsgBox "²Î¤@¬d¸ß§¹¦¨"
  24. End Sub
½Æ»s¥N½X
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¦^´_ 18# Hsieh


     ¤j¤j¤Ó¼F®`¤F~~~~~
    ¥Ì«ô¤U­·:handshake   
    §Æ±æ¤U¦¸ÁÙ¥i¥H¦A¦¸½Ð±Ð±z~~~§Úªº°ÝÃD¤ñ¸û¦h  ¤]½Ð¤j¤j¨£½Ì!!:victory:

TOP

¦^´_ 18# Hsieh

¥H¤U³o¬q  ¦p¦ó­×§ï¦¨­nÅý¥L¶]¨â­Ó©Î¦h­Ó¤u§@ªí°Ï¬q
³oÃä¸ÑÄÀ¤@¤U    ´N·N«ä¬O§Ú¦¬´M "  ¸¹¨¤  "  ¥L·|¦¬´M  
²Î¤@¤u§@ªí°Ï¬q  ¸ò XX¤u§@ªí°Ï¬q  XX¤u§@ªí°Ï¬q   §Ú¥Ø«e¬O½Æ»s¥H¤U°Ï¬q¦A§ó§ïWith Sheets("²Î¤@")   ²Î¤@ªº³¡¤À  ¦ý¬Oµ{¦¡½X«K«Ü¦h À³¸Ó¦³§ó¦nªº¿ìªk§a  

    With Sheets("²Î¤@")  '²Î¤@¤u§@ªí°Ï¬q
G = .[A65536].End(xlUp).Row   '²Î¤@¤u§@ªíªº¸ê®Æ§À
For i = 2 To G
mystr = Format(.Cells(i, 1), "yyyymmdd hhmm") & .Cells(i, 9) '¤£­«½Æ·Ç«h¦r¦ê
    If .Cells(i, 9) Like "*" & Name & "*" And IsEmpty(d(mystr)) Then '¦r¨å¤¤¨S¥X²{¹LIÄæ¥B¥]§t¬d¸ßÃöÁä¦r
    Sheets("¬d¸ß³B²z°Ï").[A65536].End(xlUp).Offset(1).Resize(, 9) = .Cells(i, 1).Resize(, 9).Value  '±NA:IÄæ¼g¤JSheets("¬d¸ß³B²z°Ï")
     d(mystr) = .Cells(i, 9).Value  '±NIÄæ®ÚAÄ椺®e¦s¤J¦r¨å
    End If
Next i
End With 'µ²§ô²Î¤@¤u§@ªí°Ï¬q±Ô­z
¦Û¥Î¨®¤]¥i¥Hñ±b³á!
¤­¤d¤¸¥[ªoª÷¥[¤Jªo½c«áÁÙ¦^õX±z6200¤¸
ºÖ§Q©ô¨®¤Í·|power-want.com

TOP

        ÀR«ä¦Û¦b : ½_ÁJµ²±o¶V¹¡º¡¡A¶V·|©¹¤U««¡A¤@­Ó¤H¶V¦³¦¨´N¡A´N­n¶V¦³Á¾¨Rªº¯ÝÃÌ¡C
ªð¦^¦Cªí ¤W¤@¥DÃD