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

[µo°Ý] ½Ð°Ý¦p¦ó±N¦Uµ§¼Æ¶q¡A¨Ì¤é´Á½d³ò¥[Á`?

[µo°Ý] ½Ð°Ý¦p¦ó±N¦Uµ§¼Æ¶q¡A¨Ì¤é´Á½d³ò¥[Á`?

¥»©«³Ì«á¥Ñ gaishutsusuru ©ó 2020-3-24 15:19 ½s¿è

¦U¦ì¤j¤j±z¦n¡A·Q½Ð¦U¦ì¨ó§UÀ°¦£¥H¤U³o­Ó°ÝÃD¡G


(¹Ï¤ù¤¤¶È¬O¥Ü·N³¡¥÷¡C§¹¾ãªº¸ê®Æ¡A½Ð¦A°Ñ¦ÒªþÀÉ)

­ì©l¸ê®Æ¡G
(1) AÄæ¡G¦ì¸m¡CA2~A79¡G©T©w¤£Åܪº¡C
(2) BÄæ¡GºØÃþ¡CB2~B79¡G¸ê®Æ·|ÅÜ¡A¦ý»P³o¦¸¸ß°Ý°ÝÃDµLÃö¡C
(3) CÄæ¡G¶}©l¤é´Á¡C
(4) DÄæ¡Gµ²§ô¤é´Á¡C
(5) E~JÄæ¡G¦U¤Ø¤o¼Æ¶q¡C(¬°¤F¤è«K¡A±N¦P¤@µ§¸ê®Æªº¼Æ¶q³]¬°¬Û¦P¡C¤£¦Pµ§¸ê®Æªº¼Æ¶q³]¬°1~31¡C¦ý¹ê»Ú¤W¼Æ¶q·|¬O§¹¥þ¤£¦Pªº)

-----
³B²z«á§e²{¡G
(1) NÄæ¡G¦C¥X¤é´Á¡C¥HCÄæ(³Ì¦­¶}©l¤é´Á)¬°©l¡A¦ÜDÄæ(³Ì±ßµ²§ô¤é´Á)¬°¥½¡C
(2) OÄæ~TÄæ¡G¦U¤Ø¤o¼Æ¶q­pºâ¡C
* ±N©Ò¦³¦b¤é´Á½d³ò¸Ìªº¼Æ¶q¥[Á`¡A¶ñ¦b¹ïÀ³ªº¤é´Á¸Ì¡C
* »¡©ú1¡G
1_1        5E        2020/2/28        2020/3/6      (SS¡÷XXL)ªº¼Æ¶q¬O1
1_1        3C        2020/3/6        2020/3/25   (SS¡÷XXL)ªº¼Æ¶q¬O2
­pºâ®É¡A¡u¼Æ¶q¡G1¡v¥u»Ý­n­pºâ¨ì2020/3/5¡F±q2020/3/6¶}©l«h¬O­pºâ¡u¼Æ¶q¡G2¡v
¤]´N¬O»¡¡A¨Cµ§¸ê®Æ¦b­pºâ®É¡A¤£·|¥]§t¨ìµ²§ô¤é´Á¡C

* »¡©ú2¡G
2020/2/20ªº¼Æ¶q¡G¬O¥Ñ¡u1_3        1A        2020/2/18        2020/2/27¡v¡B¡u2_1        9I        2020/2/20        2020/3/7¡v¡B¡u3_2        6F        2020/2/20        2020/3/3¡v¡A³o¤Tµ§ªº¸ê®Æ6¡B15¡B28¥[Á`¦Ó¦¨ªº¡C(SS¡÷XXL¼Æ¶q¬Ò¦P¡A¬O¦]¬°¤è«K­pºâ¡A¹ê»Ú¤W¦U¤Ø¤oªº¼Æ¶q¬O§¹¥þ¤£¦Pªº¡C)
(¥H¦ÓªþÀɤ¤¦]¬°§Ú¬O¤â°Ê¤@µ§¤@µ§¥h¼gªº¡A©Ò¥H·|¬Ý¨ì¬O¡u=6+15+28¡vªº§e²{¡A¦ý§Æ±æ¥i¥Hª½±µÅã¥Ü¥[Á`«áªº­È´N¥i¥H¤F)
------
ªþÀÉ¡G ¬¡­¶Ã¯1.zip (12.92 KB)

ªþ¤WªþÀÉ¡A¦A«ô°U¦U¦ì¤j¤j¡A©âªÅ¨ó§U´£¨Ñ·Qªk¡AÁÂÁ±z­Ì¡C
(¦p¹ïµo°Ý¦³¥ô¦óºÃ°Ý¡A½Ð¦A¯d¨¥¡A§Ú±N·|¦^ÂСAÁÂÁ¡C)

°õ¦æ«áµo²{
3/21§Úªº¼Æ¾Ú¬O185
3/25§Úªº¼Æ¾Ú¬O106
¤£ª¾¬O­þÃä¥X¤F°ÝÃD¡H
[b]Kubi[/b]

TOP

¦^´_ 2# Kubi

ÁÂÁ±zªº¦^ÂСA¤£¦n·N«ä¡A¦]¬°¬O¤â°Ê¿é¤J¡A©Ò¥H¥X²{2µ§¿ù»~ªº¸ê®Æ¡A¦ý±zªº­È¬O¥¿½Tªº³á¡C

3/21§Úªº¼Æ¾Ú¬O185
±z¬O¹ïªº¡A¦]¬°§Ú¤â°Ê¿é¤J®É¡A§â¡u3_1        15O        2020/3/13        2020/3/21¡vªº­È¡u27¡v»~´Ó¶i¥h¤F¡C

3/25§Úªº¼Æ¾Ú¬O106
±z¬O¹ïªº¡A¦]¬°§Ú¤â°Ê¿é¤J®É¡A§â¡u1_1        3C        2020/3/6        2020/3/25¡vªº­È¡u2¡v»~´Ó¶i¥h¤F¡C

TOP

¶}©l»Pµ²§ô¤é, ¦³§_¥i¯à¦P¤@¤Ñ???

TOP

¥»©«³Ì«á¥Ñ gaishutsusuru ©ó 2020-3-24 21:58 ½s¿è

¦^´_ 4# ­ã´£³¡ªL

­ã´£¤j¤j±z¦n¡A

±z»¡ªº±¡ªp¤@¯ë¨Ó»¡¬O¤£·|µo¥Íªº¡A¦ý¦pªG¹³¤U­±³o­Ó¨Ò¤lªº¸Ü¡G
¨Ò¡G
²Ä¤@µ§ 2020/4/1 2020/4/1¡G6
²Ä¤Gµ§ 2020/4/1 2020/4/5 ¡G3
«h2020/4/1§Æ±æ¬O¥H¤ñ¸û¤jªº­È¥h­p¡G6

-----
¥t¥~¡A·Q¦A³Â·Ð­ã´£¤j¤j»P¦U¦ìª©¤W¤j¤j¡A¦]¬°©«¤l¤wµo©«¸g¹L15¤ÀÄÁ¤F¡A©Ò¥H¤£¯à¦A¶i¦æ§ó·s¡C¦ÓÃö©ó°ÝÃD¡A¦]¬°¹ê»Ú¤Wªº¾Þ§@¡A»Ý­n¦A°µ¶i¤@¨Bªº³B²z¡A©Ò¥H±N°ÝÃD·s¼W¦b¤U¤è¡G


(¹Ï¤ù¤¤¶È¬O¥Ü·N³¡¥÷¡C§¹¾ãªº¸ê®Æ¡A½Ð¦A°Ñ¦ÒªþÀÉ)

­ì©l¸ê®Æ¡G(·s¼W)
(6) LÄæ¡G¯S®í1¡C¥ç§Y±NBÄæ(ºØÃþ)¤â°Ê¬D¥X¨ÓÂkÃþ¦b¯S®í1¡C (¸ê®Æ½d³ò¡GL2~L20)
(7) MÄæ¡G¯S®í2¡C¥ç§Y±NBÄæ(ºØÃþ)¤â°Ê¬D¥X¨ÓÂkÃþ¦b¯S®í2¡C (¸ê®Æ½d³ò¡GM2~M20)
--
³B²z«á§e²{¡G(§ó§ï¡G±q­ì¥»1­Óªí§ó§ï¦¨3­Óªí)
1. ¤@¯ë
BÄæºØÃþ¸Ì¡A±Æ°£¡u¯S®í1¡v¡B¡u¯S®í2¡v¥H¥~ªº¡A³£ÂkÃþ¦b¡u¤@¯ë¡v¡C(¦ÓBÄ檺ºØÃþ¥Ø«e¬O¦C¨ì15ºØ¡A¦ý¹ê»Ú¤W¥i¯à·|Åܦh)
(1) OÄæ¡G¤@¯ë
(2) PÄæ¡G¦C¥X¤é´Á¡C¥HºØÃþ²Å¦X¡u¤@¯ë¡vªº¡A¦C¥X±qCÄæ(³Ì¦­¶}©l¤é´Á)¬°©l¡A¦ÜDÄæ(³Ì±ßµ²§ô¤é´Á)¬°¥½¡C
(3) QÄæ~VÄæ¡G¦U¤Ø¤o¼Æ¶q­pºâ¡C

2. ¯S®í1
(1) YÄæ¡G¯S®í1
(2) ZÄæ¡G¦C¥X¤é´Á¡C¥HºØÃþ²Å¦X¡u¯S®í1¡vªº¡A¦C¥X±qCÄæ(³Ì¦­¶}©l¤é´Á)¬°©l¡A¦ÜDÄæ(³Ì±ßµ²§ô¤é´Á)¬°¥½¡C
(3) AAÄæ~AFÄæ¡G¦U¤Ø¤o¼Æ¶q­pºâ¡C

3. ¯S®í2
(1) AIÄæ¡G¯S®í2
(2) AJÄæ¡G¦C¥X¤é´Á¡C¥HºØÃþ²Å¦X¡u¯S®í2¡vªº¡A¦C¥X±qCÄæ(³Ì¦­¶}©l¤é´Á)¬°©l¡A¦ÜDÄæ(³Ì±ßµ²§ô¤é´Á)¬°¥½¡C
(3) AKÄæ~APÄæ¡G¦U¤Ø¤o¼Æ¶q­pºâ¡C

·sªºªþÀÉ¡G ¬¡­¶Ã¯2.zip (15.65 KB)

¯uªº¤£¦n·N«ä¡AÃD¥Ø¨S¦³¥ß§Y§ó·s¤W¥h¡C§Æ±æ¦U¦ì¤j¤j¯à¦A©âªÅ¨ó§U¡A«D±`·PÁ¡C

TOP

¦³ÂI½ÆÂø, ¦Û¦æ°Ñ°u~~

  1. Sub TEST()
  2. Dim Arr, xD(3), d1, d2, i&, j&, k%, U%, Ur, Srr, xS As Worksheet
  3. For j = 0 To 3: Set xD(j) = CreateObject("Scripting.Dictionary"): Next j
  4. Arr = [L2:M30]
  5. For j = 1 To 2: For i = 1 To UBound(Arr)
  6.     If Arr(i, j) <> "" Then xD(0)(Arr(i, j)) = j
  7. Next: Next
  8. '--------------------------------
  9. Arr = Range([J1], Cells(Rows.Count, 1).End(xlUp))
  10. For i = 2 To UBound(Arr)
  11.     d1 = Arr(i, 3): d2 = Arr(i, 4)
  12.     If IsDate(d1) * IsDate(d2) = 0 Then GoTo 101
  13.     U = xD(0)(Arr(i, 2)) + 1
  14.     For j = d1 To d2 - 1
  15.         Ur = xD(U)(j)
  16.         If Not IsArray(Ur) Then Ur = Array(CDate(j), 0, 0, 0, 0, 0, 0)
  17.         For k = 5 To 10: Ur(k - 4) = Ur(k - 4) + Arr(i, k): Next k
  18.         xD(U)(j) = Ur
  19.     Next j
  20. 101: Next i
  21. '--------------------------------
  22. Srr = Array("", "¤@¯ë", "¯S®í1", "¯S®í2")
  23. For k = 1 To 3
  24.     With Sheets(Srr(k))
  25.          .UsedRange.Offset(1, 0).EntireRow.Delete
  26.          U = xD(k).Count: If U = 0 Then GoTo 102
  27.          With .[B2:H2].Resize(U)
  28.               .Value = Application.Transpose(Application.Transpose(xD(k).items))
  29.               .Sort Key1:=.Item(1), Order1:=xlAscending, Header:=xlNo
  30.          End With
  31.     End With
  32. 102: Next k
  33. End Sub
½Æ»s¥N½X


Xl0000054.rar (21.99 KB)


==============================

TOP

¦^´_ 5# gaishutsusuru
µ{¦¡¦³ÂIªø¡A½Ð°Ñ¦Ò¡C
ª`·N¡G¥»µ{¦¡½XµLªk·ÓÅU¨ì§A©Ò»¡ªº¨Ò¤l(§Æ±æ¬O¥H¤ñ¸û¤jªº­È¥h­p)
¬¡­¶Ã¯2.rar (25.21 KB)

TOP

¦^´_ 6# ­ã´£³¡ªL


ÁÂÁ­㴣¤j¤jªº¦^ÂСA

±zªºÀÉ®×´ú¸Õ«á¡A¸ê®Æ¬O¤À§OÅã¥Ü¦b3­Ó¤u§@ªí¸Ì

·Q½Ð°Ý¸Ó«ç»ò¥Î¡A¤~¥i¥H¥þ³¡Åã¥Ü¦b¡u¤u§@ªí1¡v¸Ì­±©O?(¦p¦P§ÚªþÀɸ̪º¤@¼Ë¡A³£Åã¥Ü¦b¤u§@ªí1¸Ì­±)

¦A³Â·Ð±z©âªÅ¨ó§U´£¨Ñ·Qªk¡AÁÂÁ±z¡C

TOP

¦^´_ 7# Kubi


ÁÂÁÂKubi¤j¤j±zªº¦^ÂЮ@¡A§Ú¥ý°Ñ¦Ò¬Ý¬ÝÅo¡C

TOP

¦^´_ 8# gaishutsusuru


¤w­×§ï:
Xl0000054-2.rar (17.78 KB)

TOP

        ÀR«ä¦Û¦b : ¤Hªº²´·úªø¦b«e­±¡A¥u¬Ý¨ì§O¤Hªº¯ÊÂI¡Aµ·²@¬Ý¤£¨ì¦Û¤vªº¯ÊÂI¡C
ªð¦^¦Cªí ¤W¤@¥DÃD