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

[µo°Ý] ½Ð°ÝVBA ªºµ{¦¡¦³¨S¦³¥i¥H¿ë»{¬Y­ÓÀx¦s®æ¤ºªº¦r¤¸¦³µL¥]§t¬Y´X­Ó¦r¦ê¡H

¦^´_ 19# 198188

¦pªG§Ú¼g³o¥y´À¥N¤W­±¨â¥yfs = "W:\PIHK\DOCS RECEIVED N RELEASED RECORD.xlsx"
²Ä5¦æ³o¥y
With Workbooks.Open(fd & fs)
´N­n§ï¦¨
With Workbooks.Open(fs)

Join(Ar, "¡B"): Erase ³o¥y¬O¤°»ò·N«ä¡H
µ{¦¡»yªk¤£¯à¥uŪ¤@¥b¡A¦b¦P¤@¦æ±Ô­z¨Ï¥Î«_¸¹¡A¬Û·í©ó¨â¦æ±Ô­z
Join(Ar, "¡B") ¡÷  ·|±o¨ì°}¦C¤¸¯À¥Î¹y¸¹¡B³s±µªº¦r¦ê
Erase Ar ¡÷  ¬O²MªÅ°}¦C

µ{¦¡¼g±o¹ï¤£¹ï¡A°õ¦æ¤@¤U´Nª¾¹Dµ²ªG°Õ
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¦^´_ 21# Hsieh

¥¼©R¦W.JPG
2013-3-9 23:13

        ·PÁ¸ÑÄÀ¡AÁöµM¤£¤Ó©ú¥Õ¡A¦ý·|¦h¹Á¸Õ¡C
¥t¥~§Ú·Q°Ý
¦pªGH Äæ¦pªþ¥ó¨º¼Ë¦X¨Ö¡A¬O§_µLªkŪ¨ú¡H
¥u¦³214110 ¦³¸ê®Æ
¤U­±´X­Ó¬O¤£¬Oµ¥©óªÅ®æ¨S¸ê®Æ¡H
210695
214162
213924
212340
212341
211914
211915
212857

TOP

¥»©«³Ì«á¥Ñ Hsieh ©ó 2013-3-10 10:14 ½s¿è

¦^´_ 22# 198188
³o¼Ëªºµ{¦¡»P¼Ó¤Wµ{¦¡½X¤ñ¸û¬Ý¬ÝÀ³¸Ó´N®e©ö¤F¸Ñ
  1. Sub ex()
  2. Dim Sh As Worksheet, Rng As Range, C As Range, Ar()
  3. fd = ThisWorkbook.Path & "\"  '¸ê®Æ¨Ó·½¥Ø¿ý
  4. fs = "DOCS RECEIVED N RELEASED RECORD.xlsx" '¸ê®Æ¨Ó·½ÀÉ®×(§t°ÆÀɦW)
  5. With Workbooks.Open(fd & fs)
  6.   Set Sh = .Sheets("¦¬¥ó°O¿ý")
  7.       With ThisWorkbook.Sheets("State")
  8.          For Each A In .Range(.[A2], .Cells(.Rows.Count, 1).End(xlUp))
  9.             Set Rng = Sh.Columns("D").Find(A, lookat:=xlWhole)
  10.             If Not Rng Is Nothing Then
  11.                For Each C In Sh.Range(Rng, Sh.Cells(Sh.Rows.Count, 4).End(xlUp))
  12.                   If C = A And InStr(UCase(C.Offset(, 4).MergeArea(1)), "OBL") > 0 Then
  13.                      ReDim Preserve Ar(s)
  14.                      Ar(s) = C.Offset(, 4).MergeArea(1)
  15.                      s = s + 1
  16.                   End If
  17.                 Next
  18.             If s > 0 And A.Offset(, 9) = "" Then
  19.                A.Offset(, 9) = Join(Ar, "¡B")
  20.                Erase Ar
  21.                s = 0
  22.                   Else
  23.                A.Offset(, 9) = ""
  24.             End If
  25.             End If
  26.          Next
  27.       End With
  28.     .Close
  29. End With
  30. End Sub
½Æ»s¥N½X
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¦^´_ 23# Hsieh


    ­ì²z©ú¥Õ¡A¥u¬O»yªk¥Îªk¥½²M´·¦p¦ó¥Î¡AÁ¡I
¦pªG¦X¨Ö´X­ÓÀx¦s®æ¬O§_Ū¤£¤F¡H¦p¤W¹Ï¡H

TOP

¦^´_ 24# 198188
µ½¥ÎF1»¡©ú»P³v¦æ°»¿ù¤~¯à¹ï»yªk¹ý©³¤F¸Ñ
§A°Ý¦X¨ÖÀx¦s®æ¬O§_¥i¦æ?
ªí¥Ü§A®Ú¥»¨S¦³°õ¦æ´ú¸Õ
¨S¦³«i®ð´ú¸Õ¥u·|Åý§A¥Ã»·°±¹y
°£«D¦³ÃÒ©ú¼Ó¤Wµ{¦¡½XµLªk¹F¦¨»Ý¨D
¥B»¡©ú²M·¡°ÝÃDÂI¡A§_«h¦¹°ÝÃD±N¤£¦A¦^À³
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¦^´_ 25# Hsieh


    ¦X¨Ö¤@°Ý¡A¤§«e¤w¸Õ¹L¡A¥u¦³²Ä¤@­Ó¥iŪ¨ú¡A¨ä§E¬OªÅ®æ¡C§Ú°ÝÃD¼g±o¤£²M·¡¡A©êºp¡C
À³¸Ó¬O¤£¬O¦³¤èªk°µ¨ì¡H

TOP

¦^´_ 26# 198188
§A«ç»ò´ú¸Õªº?
play.gif
2013-3-10 10:18
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

¦^´_ 20# 198188
With Sheet2                 (³o¥y¬O§_§ïWith W:\Payment Daily Report\DOCS RECEIVED N RELEASED RECORD.xlsx ¡H¡^¦ý¬O¦n¹³¤£¹ï¡H¡H
¦pªG§Ú¼g³o¥y´À¥N¤W­±¨â¥yfs = "W:\PIHK\DOCS RECEIVED N RELEASED RECORD.xlsx"
²Ä5¦æ³o¥y
With Workbooks.Open(fd & fs)
´N­n§ï¦¨
With Workbooks.Open(fs)
  1.              With Workbooks.Open(fs)
  2.                      Set Sh=.Sheets("¦¬³æ°O¿ýSHEET")
  3.              End With

  4.               With Sh  '->¦p¦¹ Sh ¤w´À¥N¬°¬°W:\Payment Daily Report\DOCS RECEIVED N RELEASED RECORD.xlsx"ªº ¦¬³æ°O¿ýSHEET
  5.             
  6.                End With
½Æ»s¥N½X

TOP

¦^´_ 27# Hsieh


    ²{¦b¥i¥H¤F¡A¥i¯à¬Oexcel¦³ÂI½Ä¬ð¡C
¤£ª¾¹D¬°¤°»ò¦³®É­Ôexcelªºµ{¦¡¥»¨­¤@ª½¨S°ÝÃD¡A¦ý¬O¦³®É­Ô·|¬ðµM¥X²{°ÝÃD¡A¦ý¬O­«·s±Ò°Êexcel «á©ÎªÌ­«·s±Ò°Ê¹q¸£«á¡A´N¨S¦³°ÝÃD¤F¡C

TOP

¦^´_ 28# GBKEE
  1. Sub Ex()
  2. Dim Sh As Worksheet, Rng As Range, C As Range, Ar()
  3.     Dim R As Range, E As Range
  4.     With Sheets("State")                         '*** ¶·§ï¬°: Test.xlsmªºState Sheet
  5.         Set R = .Cells(1, "a")          'A1¶}©l
  6.                         
  7.          fs = "C:\Documents and Settings\USER\®à­±\DOCS RECEIVED N RELEASED RECORD.xlsx"
  8. With Workbooks.Open(fs)
  9.   Set Sh = .Sheets("¦¬¥ó°O¿ý")
  10.   Do Until R = "" 'Â÷¶}°j°éªº±ø¥ó:  AÄ檺 Àx¦s®æ=""
  11.       With Sh '*** ¶·§ï¬°: W:\Payment Daily Report\DOCS RECEIVED N RELEASED RECORD.xlsx"
  12.               
  13.                 Set Rng = .Columns("D").Find(R, lookat:=xlWhole)
  14.                  If Not Rng Is Nothing Then
  15.                     With .Columns("D")
  16.                         .Replace R, "=ABC", xlWhole                 '­×§ï"´M§äªº¦r¦ê" = ¨S©w¸qªº¦WºÙ
  17.                         Set Rng = .SpecialCells(xlCellTypeFormulas, xlErrors) 'Àx¦s®æ¦³¿ù»~­Èªº¯S©w½d³ò
  18.                         Rng.Value = R                               '¨S©w¸qªº¦WºÙ §ï¦^ "´M§äªº¦r¦ê"
  19.                         For Each E In Rng.Offset(0, 4)              'DÄæ¦ì²¾4Äæ=HÄæ
  20.                             If InStr(UCase(E), "OBL") Then          'HÄ檺¦r¤¸¤º¥]§t"OBL"¤T­Ó¦r
  21.                                                                     'UCase(E) Âà´«¬°¤j¼g
  22.                                 R.Offset(0, 9) = E.Value            'R.Offset(0, 9)-> AÄæ¦ì²¾¨ì JÄæ
  23.                                 'Test.xlsmªºState Sheet->JÄæ=DOCS RECEIVED N RELEASED RECORD.xlsx"->HÄ檺¦r¤¸
  24.                                 Exit For    '¦³§ä¨ì "OBL" Â÷¶}°j°é                          '
  25.                             End If
  26.                        Next
  27.                     End With                '.Columns("D")
  28.                 End If
  29.             End With                        'Sheet2
  30.             Set R = R.Offset(1)             '¤U²¾¨ì A2
  31.      Loop
  32.     End With                                'Sheet1
  33. End With
  34. End Sub
½Æ»s¥N½X
³o¼Ë´N¥i¥H¤F¡C
¤£¹L³o­Óµ{¦¡¡A¦pªGDOCS RECEIVED N RELEASED RECORD.xlsxªºHÄæ´X¦C¬O¦X¨Öªº¸Ü¡A´NŪ¤£¤F¥u¦³²Ä¤@­Ó¤~·|¦³¸ê®Æ¡A²Ä¤G¦C¶}©l´NµL¸ê®Æ¡C

TOP

        ÀR«ä¦Û¦b : ÁÀ¨¥¹³¤@¦·²±¶}ªºÂAªá¡A¥~ªí¬üÄR¡A¥Í©Rµu¼È¡C
ªð¦^¦Cªí ¤W¤@¥DÃD