[µo°Ý] ­W«ä¤£±o¨ä¸Ñ¤§ÃøÃD...

fr447446

¦b§ì¤F´X¦Ê®ÚÀY¾v¤§«áÁÙ¬O­n¨Óµo°Ý...
½Ð±Ð¦U¦ì¥X¯«¤J¤Æªº¤j®v¡A
§Ú·Q±q¤@¬q®É¶¡¤º¡A§ì¥X¥|­Ó¯Z§O¦U¦û¤F¦h¤Ö¤p®É¡A
¸Ô²Ó¤º®e½Ð°Ñ¾\ªþ¥ó¡AÁÂÁÂ

Andy2483

ÁÂÁ½׾Â,ÁÂÁ¦U¦ì«e½ú
«á¾Ç§ïÅܻݨD±¡¹Ò,ÂǦ¹©«½m²ß°}¦C»P¦r¨å,¾Ç²ß¤è®×¦p¤U,½Ð¦U¦ì«e½ú«ü±Ð

°õ¦æ«e:

¤U¸ü (128.27 KB)

2023-5-12 11:43

°õ¦æµ²ªG:

¤U¸ü (181.72 KB)

2023-5-12 11:43

Option Explicit
Sub TEST()
Dim Brr, Crr, Y, N&, i&, j&
'¡ô«Å§iÅܼÆ
Set Y = CreateObject("Scripting.Dictionary")
'¡ô¥OYÅܼƬO ¦r¨å
Brr = Range([C1], [A65536].End(xlUp))
'¡ô¥OBrrÅܼƬO ¤Gºû°}¦C,¥HA~CÄæ¸ê®Æ±a¤J
For i = 2 To UBound(Brr)
'¡ô³]¶¶°j°é
   If Y(Brr(i, 3)) = "" Then N = N + 1: Y(Brr(i, 3)) = N
   '¡ô¥O¥H¦r¨å¬ö¿ý¯Z§O¦bµ²ªG°}¦CCrrªºÄæ¦ì
Next
ReDim Crr(1 To UBound(Brr), 1 To 2 + N)
'¡ô«Å§iCrrÅܼƬO ¤GºûªÅ°}¦C,Áa¦V½d³ò¦PBrr°}¦C,¾î¦V±q1¨ì(2+N)
For i = 1 To UBound(Brr)
'¡ô³]¶¶°j°é
   Crr(i, 1) = Brr(i, 1): Crr(i, 2) = Brr(i, 2)
   '¡ô¥O¤é´Á±a¤JCrr²Ä1Äæ,'¡ô¥O®É¶¡±a¤JCrr²Ä2Äæ
   If i = 1 Then
   '¡ô¦pªG¬OBrr²Ä1¦C!´N§â¯Z§O¼ÐÃD¦C¼g¤JCrr°}¦C²Ä1¦C
      For j = 1 To N: Crr(1, j + 2) = Y.KEYS()(j - 1): Next
      GoTo i01
      '¡ô¼ÐÃD¦C³B²z§¹,¤£¥²³B²z«áÄò²Ó¸`,©Ò¥H¸õ¨ì¼Ð¥Üi01¦ì¸mÄ~Äò°õ¦æ
   End If
   Crr(i, Y(Brr(i, 3)) + 2) = "V"
   '¡ô¥OCrr°}¦C¥¿½T¯Z§O¦ì¸mÄæ¼g¤J "V"
i01: Next
With [E1].Resize(UBound(Crr), 2 + N)
   .EntireColumn.Clear
   '¡ô¥Oµ²ªGÄæ¸ê®Æ¾ãÄæ²M°£
   .Value = Crr
   '¡ô¥O¥HCrr°}¦C­È¶K¤J³oWithªº½d³ò
   Intersect(.Cells, [E:E]).NumberFormatLocal = "yyyy/m/d"
   Intersect(.Cells, [F:F]).NumberFormatLocal = "hh:mm:ss"
   .Borders.LineStyle = 1
   .EntireColumn.AutoFit
   '¡ô³B²z®æ¦¡
End With
Set Y = Nothing: Erase Brr, Crr
'¡ôÄÀ©ñÅܼÆ
End Sub

fr447446

¼È®É¥H²ÊÁWªº¦Û©w¸q¨ç¼Æ + ­«·s³W¹º¯Z§Oªº½ü¯Z³W«h«á¼È®É¹F¨ì»Ý­nªº¥\¯à¡A
ªþ¤Wªìª©¡A¦³§ó¦nªº¤è¦¡ªº¸Ü·Ð½Ð¤£§[«ü±Ð¡ATHANKS¡I

fr447446

¦^´_ 7# Hsieh

ªþ¤W©ú½Tªº¤â°Êºâªk¡A³y¦¨¿ëŪ¤£©ö½Ð¦h¥]§t~

Hsieh

¦^´_ 6# fr447446


    ¥H§AÁ|ªº¨Ò¤l½d³ò¬O5:9¦Cªº¸ê®Æ­n­pºâG3:J3ªº­È
¨º»ò¨ä¤¤A¦³3µ§¡AB¦³2µ§
¨º¦U¯Z§O¦U­Ó°_¨´®É¶¡¦p¦ó§P©w?

fr447446

¦^´_ 5# gong

§Úªº»Ý¨D¬O...¨C­Ó¶}©l»Pµ²§ô®É¶¡ªº°Ï¶¡¤º¡A¨C­Ó¯Z©Ò¦û¥Îªº®É¶¡¤À°t¤ñ¡A

A~CÄæ¦ì¥u¬O§Ú¥Î¨Ó°Ï¤À¨C­Ó¯Zªº½ü¯Z¤è¦¡¡A
¦]¬°¨C¤Ñªº¦­¤W7:30¸ò±ß¤Wªº19:30´N·|´«¤@¦¸¯Z¡A
¤]´N¬O ¦­¤Wªº07:30~19:30 ¬O¤@¯Z¡A19:30~07:30·|Åܦ¨¤U¤@¯Z¡A

¤S¦]¬°¬O¥|¯Z¤G½üªº¤è¦¡©Ò¥H¨C¨â¤Ñ´N·|±qA/B¯Z´«¦¨C/D¯Z¡A
¯Z§O½ü´Àªº¯Zªí¸ê®Æ·|±q1¤ë¨ì12¤ë¡A¬Æ¦Ü·|¸ó¦~«×¡A

§Úªº«ä¦ÒÅÞ¿è¬O...¥ý±q°Ï¶¡ªº¤é´Á¥h§ì¥X¦b²Å¦Xªº¸ê®Æ½d³ò¡A
¦A±q³o­Ó½d³ò¤º³v¤@±N®É¶¡®t§@¥[Á`¡A
¦ý...©l²×·Q¤£¥X¤èªk¨Ó°µ¥X®É¶¡®tªº¥[Á`...

gong

ÃD¥Ø¨ì²{¦b³£ÁÙ¨S¦³¬ÝÀ´

¤£¹L¬JµM¬O¤@­Ó¤ëªº¯Zªí
§Ú·QÁ`¤u®ÉÀ³¸Ó¸¨¦b168~360¤§¶¡(8*22~12*30)

¤£ª¾­nºâ¥X®É,ÁÙ¬O¤Ñ,ÁÙ¬O³s¬í³£­n
ÁÙ¦³¶}©l®É¶¡¦³·N¸q¶Ü?¬O­nºâ¥X¸Ó°Ï¶¡¤u®É

fr447446

¦^´_ 3# Hsieh
·PÁ Hsieh ¤j³o»ò§Ö´N¦^ÂСA
¦bÅçÃÒ¤§«áµo²{¥X¨Óªº¼Æ­È¦n¹³¤£¥¿½T¡A
¥H (F3-E3)*24 «á³o­Ó°Ï¶¡ªºÁ`®É¼Æ¦³30.98¤p®É¡A
¦ý¨ç¼Æ±a¤J«á ABCD¯ZÁ`®É¼Æ¥u¦³6¤p®É

Hsieh

G3=SUMPRODUCT((($A$2:$A$125+$B$2:$B$125)>=$E3)*(($A$2:$A$125+$B$2:$B$125)<=$F3)*($C$2:$C$125=G$2))
¦V¤U¦V¥k½Æ»s

hugh0620

¦^´_ 1# fr447446


    xxxx  «ä¦Ò¤¤