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

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

¦^´_ 20# die78325
³o¼Ë¶Ü?

Dim sName As String
For Each sName In Array("²Î¤@", "¨ä¥L¤u§@ªí")
    With Sheets(sName)  '²Î¤@¤u§@ªí°Ï¬q

    '¤¤²¤
   
    End With 'µ²§ô²Î¤@¤u§@ªí°Ï¬q±Ô­z
Next

TOP

¦^´_ 21# stillfish00


    ¥¦Åã¥Ü½sĶ¿ù»~

For Each ªº±±¨îÅܼƥ²¶·¬OVariant©ÎObject
¦Û¥Î¨®¤]¥i¥Hñ±b³á!
¤­¤d¤¸¥[ªoª÷¥[¤Jªo½c«áÁÙ¦^õX±z6200¤¸
ºÖ§Q©ô¨®¤Í·|power-want.com

TOP

¦^´_ 21# stillfish00


    §Ú§âÅܼƩw¸q§R°£ (Dim.......)

¿ï¾Üsheets( ªº  "  §R°£  

´N¥i¥H¤F    ·PÁ¤j¤jµ¹ªºÆF·P
.
¦Û¥Î¨®¤]¥i¥Hñ±b³á!
¤­¤d¤¸¥[ªoª÷¥[¤Jªo½c«áÁÙ¦^õX±z6200¤¸
ºÖ§Q©ô¨®¤Í·|power-want.com

TOP

¦^´_ 22# die78325
ªüªü , ©êºp!
¨S¹ê»Ú¥h¶]¨Sµo²{³o¿ù»~
§â«Å§iªºAs String®³±¼À³¸Ó´N¥i¥H¤F

TOP

¦^´_ 24# stillfish00
22#  For Each ªº±±¨îÅܼƥ²¶·¬OVariant©ÎObject
Dim sName As String  §ï¦¨¥¿½Tªº«Å§i  Dim sName As Variant
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¦^´_ 22# die78325

Dim sName As Worksheet
For Each sName In Sheets(Array("²Î¤@", "¨ä¥L¤u§@ªí"))
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¦^´_ 26# Hsieh
¦^´_ 25# GBKEE

    ÁÂÁ¨â¦ì¤j¤j¦^´_^^  ·PÁ±z­Ì~!
¦Û¥Î¨®¤]¥i¥Hñ±b³á!
¤­¤d¤¸¥[ªoª÷¥[¤Jªo½c«áÁÙ¦^õX±z6200¤¸
ºÖ§Q©ô¨®¤Í·|power-want.com

TOP

¦^´_ 18# Hsieh
H¤j¤j ¦A¦¸³Â·Ð±z
  1. Sub Äé¤J¸ê®Æ()
  2. Application.ScreenUpdating = False
  3. Set d = CreateObject("Scripting.Dictionary")  '³Ð«Ø¦r¨åª«¥ó
  4. With Sheets("¦©´Ú")
  5. Name = "GH" '¬d¸ßÃöÁä¦r
  6. For Each a In .Range(.[A2], .[A65535].End(xlUp))
  7. mystr = Format(a, "yyyymmdd hhmmss") & a.Offset(, 8)
  8. d(mystr) = a.Offset(, 8)
  9. Next
  10. End With
  11. For Each sName In Array("1", "2", "3")

  12.     With Sheets(sName)  '¥H¤W¤u§@ªí°Ï¬q
  13.     g = .[A65536].End(xlUp).Row   '¥H¤W¤u§@ªíªº¸ê®Æ§À
  14.     For i = 2 To g
  15.     mystr = Format(.Cells(i, 1), "yyyymmdd hhmmss") & .Cells(i, 9) '¤£­«½Æ·Ç«h¦r¦ê
  16.         If .Cells(i, 9) Like "*" & Name & "*" And IsEmpty(d(mystr)) Then '¦r¨å¤¤¨S¥X²{¹LIÄæ¥B¥]§t¬d¸ßÃöÁä¦r
  17.         Sheets("¨®¤Í·|¦©´Ú").[A65536].End(xlUp).Offset(1).Resize(, 9) = .Cells(i, 1).Resize(, 9).Value  '±NA:IÄæ¼g¤JSheets("¦©´Ú")
  18.          d(mystr) = .Cells(i, 9).Value  '±NIÄæ®ÚAÄ椺®e¦s¤J¦r¨å
  19.         End If
  20.     Next i
  21.     End With 'µ²§ô¥H¤W¤u§@ªí°Ï¬q±Ô­z
  22. Next
  23. Sheets("¦©´Ú").Select
  24. Application.ScreenUpdating = True  '¶}±ÒÅã¥Ü
  25. MsgBox "¬d¸ß§¹¦¨"
  26. End Sub
½Æ»s¥N½X
¦pªGÁÙ­n¦A·s¼W°»´úÄæ¦ì ¬O§_­n­×§ï«Ü¦h¦a¤è= =?
¦]¬°²{¦bµ§¼Æ¶V¨Ó¶V¦h  ®É¶¡§Ú¤w¸g¼W¥[¦Ü  yyyymmdd hhmmss
¦ýÁÙ¬O·|¦³­«½Æªº¥i¯à.....  ·Q¦A¼W¥[ D¸òHÄd¥h¦r¨å¤º¤ñ¹ï   
§Ú¦Û¤v´ú¸Õ±N³o¨â­ÓÄæ¦ì¶i¥h  ¦ý¨SÔ£¤ÏÀ³= = " ¥ú­×¥¿D¸òHÄd  ¥LÁÙ¬O»{¬°¨º¬O¤@¼Ëªº..((¥Nªí±ø¥ó¨S·s¼W¨ì¦r¨å¤º))

¦pªG¥i¥H ½ÐÀ°§Ú­×¥¿¨â­Óª©¥»...  ¤@­Ó¬O¼W¥[ D¸ò H Äæ¦ì  
¤@­Ó¬O¥þ³¡¸ê®Æ¤ñ¹ï    A¨ìIÄd³£¼g¤J¦r¨å  .....·PÁ¦U¦ì¤j¤j!!

½Ð¦U¦ì¤j¤jÀ°¦£¸Ñµª@@"
¦Û¥Î¨®¤]¥i¥Hñ±b³á!
¤­¤d¤¸¥[ªoª÷¥[¤Jªo½c«áÁÙ¦^õX±z6200¤¸
ºÖ§Q©ô¨®¤Í·|power-want.com

TOP

        ÀR«ä¦Û¦b : ¤H­nª¾ºÖ¡B±¤ºÖ¡B¦A³yºÖ¡C
ªð¦^¦Cªí ¤W¤@¥DÃD