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

BOMªí®i¶} °lÂܨt²Î

BOMªí®i¶} °lÂܨt²Î

±z¦n ¦U¦ì°ª¤â
¥Ø«e·Q¾Ç²ß ¦p¦óÅý¤u§@§ó¥[¶¶ºZ
****·Q§âBOMªí®i¶}¬°¦Û°Ê°l®Æ¤Î´£¿ô********±Æ©w¤u³æ
¦]Ãø«×¤Ó°ª
¯S¨Ó½Ð¯q¦U¦ì°ª¤â

­Yªí®æ§¹¦¨«á¡A¯à¸ò§ÚÁ¿­z¨ä¥¦¥i¥H¼W¶iªº¤è¦¡¡A¬Æ¬O¶}¤ß
­Y¦³¬ÛÃöªº»Ý¨D ¤]¥i¥H¨Ó«H§i¶D§Ú
§Ú¥²¦³¦^À³

ªþ¹Ï¡FªþÀÉ¡A½Ð¦U¦ì¯º¯Ç

¦b±Æ¦¨ª¬ªp­¶­±¡A¦³2­Ó·Qªk
¦]±Æµ{¬OÀH®É§ó°Êªº
¬O¤£¬O±Æµ{¦Û°Ê±Æ§Ç¦n«á
§Ú´N°Å¤U¨Ó ¶K¨ì¨ä¥L­¶­±¥h
³o¼Ë§Ú´N¯àÀH®É§ó§ï¨ä¤º®e ¤Îª¬ªp

§í©Î¦U¦ì¦³Ãþ¦üªº±Æµ{¨t²Î
¯à¤À¨É»P§Ú©O?

·PÁ¦U¦ì~

EXCEL ÃøÃD.jpg (302.36 KB)

ªí®æ¤º®e

EXCEL ÃøÃD.jpg

GO IT.rar (320.99 KB)

¹Ï¤ù+EXCEL

Cyssuc

¥»©«³Ì«á¥Ñ n7822123 ©ó 2020-6-18 02:29 ½s¿è

¦^´_ 1# Cyssuc


»Ý¨D:
****·Q§âBOMªí®i¶}¬°¦Û°Ê°l®Æ¤Î´£¿ô********±Æ©w¤u³æ



¬Ý¤£¤ÓÀ´§Aªº°_©lÄæ¦ìFU6«ç»ò¨Óªº¡A§Ú³]©wH8Äæ¦ìÅý§A¶ñ¶}©l®É¶¡



Sub ¶ñ±Æµ{()
Dim CelStr As Range, Ri%, Arr, C%, WkD%, DayAdd%
Set CelStr = Rows(5).Find([H8], , xlValues, xlWhole)
[L6].Resize(4, 2000).ClearContents
CelStr(2) = "¶}©l": CelStr(2).Select    '¶}©l¤é´Á
With Sheets("²£«~²M³æ")
  Ri = .[B:B].Find([H6], , xlValues, xlWhole).Row
  Arr = Range(.Cells(Ri - 1, "E"), .Cells(Ri + 1, "D").End(2))
End With
For C = 1 To UBound(Arr, 2)
  WkD = Arr(3, C): DayAdd = 0
  Do Until WkD = 0
    DayAdd = DayAdd + 1
     If CelStr(0, 1 + DayAdd) <> "S" Then WkD = WkD - 1
  Loop
  CelStr(2, 1 + DayAdd) = Arr(1, C)
  CelStr(3, 1 + DayAdd) = Arr(2, C)
  If C <> UBound(Arr, 2) Then
    CelStr(4, 1 + DayAdd) = Arr(1, C + 1)
    CelStr(5, 1 + DayAdd) = Arr(2, C + 1)
    Set CelStr = CelStr(, 1 + DayAdd)
  End If
Next C
End Sub


±Æµ{½d¨ÒVBA.rar (369.29 KB)
µ{¦¡¬O¨Ì»Ý¨D¼gªº¡A»Ý¨Dªí¹F¤£²M·¡
©ÎªÌ¨S¦³¤W¶Çªþ¥ó¡A·R²ö¯à§U

TOP

¦^´_ 2# n7822123


    ÁÂÁ§A! §Ú¦b§V¤O¬Ý¬Ý§Ú¯à¤£¯à¥[¤W»Ý¨D¼Æ¶q¤Î¨C¤@¦¸§¹¤uªº¤é´Á¤Î¸Ó¤é´Á§¹¦¨ªº¼Æ¶q¡C
Cyssuc

TOP

¤é´Á®i¶}, ¤Óªø¤F§a???
±N¦U»sµ{¤é´Á¼Ð¥X¨Ó, À³§Y¥i°lÂÜ:
Xl0000208(±Æµ{)_v01.rar (16.42 KB)

TOP

        ÀR«ä¦Û¦b : ¦³Ä@©ñ¦b¤ß¸Ì¡A¨S¦³¨­Åé¤O¦æ¡A¥¿¦p¯Ñ¥Ð¤£¼½ºØ¡A¬Ò¬OªÅ¹L¦]½t¡C
ªð¦^¦Cªí ¤W¤@¥DÃD