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

[µo°Ý] ¸ê®Æ®w¸ê®Æ¾ã¦X°ÝÃD½Ð±Ð

[µo°Ý] ¸ê®Æ®w¸ê®Æ¾ã¦X°ÝÃD½Ð±Ð

DEAR  ALL ¤j¤j -
1.SHEET1¸ê®Æ®w¤u§@ªíÀx¦s®æ¤º®e¦p¤U (¤p§Ì¤½¥q­­¨îµLªk¤W¶ÇÀÉ®×)
        A         B         C         D
   1  ©m¦W     ¤é´Á     ¤J¼t®É   ¥X¼t®É
   2   A    1030102   0746    1203
   3   A    1030102   1246    1709
   4   A    1030103   0750    1716
   5   B    1030103   0742    1855
    ...
2.»Ý¨D»¡©ú
    2.1 ¥Ø«e¸ê®Æ¤¤¤È¥X¥~¥ÎÀ\ªÌ·|¦P¤@¤é¥X²{2µ§¸ê®Æ(¦p  A§g 2 3 ¦C 0746  1203 & 1246  1709).
        »Ý¨ú¨ä·í¤é¤W¤U¯Z®É¶¡(¸É¦^¦Y¶º®É¶¡­pºâ ¦p A§g 0746 1709)
  2.2 »Ý¨Dµ²ªG®æ¦¡¦p¤U  (©m¦W¦P¤@¤H¦P¤@¤Ñ¥u¯à¯d¤@¦C¸ê®Æ-¨ú¨ä«e(¨Ò-0746)»P§À(¨Ò-1709)¤§¸ê®Æ)
    2.2.1 ¸ê®Æ Âà¥t¤@¤u§@ªí   SHEET2  µ²ªG¤u§@ªíÀx¦s®æ¦p¤U
         A      B           C         D
   1  ©m¦W      ¤é´Á          ¤J¼t®É     ¥X¼t®É
     2   A    1030102   0746    1709
   3   A    1030103   0750    1716
   4   B    1030103   0742    1855
    ...
3.·Ð¤£§[½ç±Ð  THANKS*10000
ù

ÅÞ¿è¤W

¦P¤@­Ó¤H, ¦P¤@¤Ñ¡A¨ú¨ä ¤J³õªº³Ì¤p­È¡A»P ¥X³õªº³Ì¤j­È...

¦ý­Y¦³¤H ¸ó¤Ñªº­â±á ¤~Â÷¶}¡A¨Ò¦p ¹j¤Ñªº 0100Â÷¶}¡A¨º·í¤Ñ´Nºâ¨ì 2400 ?  

§A³o¬O­nºâ ¥[¯Z¶Oªº¡H©Î¤W¯Z®É¼Æ¡H

TOP

dear sir
1ºâ ¤W¯Z®É¼Æ  
  2¤£·|¦³¶W¹L 00:00 «áÁÙ¤£¨«¦a.­Y¦³ºâ¦Ü 00:00 thanks
ù

TOP

¦^´_ 3# rouber590324
¸Õ¸Õ¬Ý
  1. Option Explicit
  2. Sub Ex()
  3.     Dim D As Object, Rng As Range, AR()
  4.     Set D = CreateObject("SCRIPTING.DICTIONARY") '¦r¨åª«¥ó
  5.     Set Rng = Sheets("Sheet1").Range("a1")  '
  6.     Do While Rng <> ""
  7.         If D.EXISTS(Rng & Rng(1, 2)) Then 'key(ÃöÁä¦r)­È¦s¦b
  8.             AR = D(Rng & Rng(1, 2))       '¨ú±o¤º®e
  9.             AR(1, 4) = Rng(1, 4)
  10.             D(Rng & Rng(1, 2)) = AR       'key(ÃöÁä¦r)­È ¤º®e­«·s¸m¤J
  11.         Else
  12.             D(Rng & Rng(1, 2)) = Rng.Resize(, 4)
  13.         End If
  14.         Set Rng = Rng.Offset(1)  '¤U²¾¤@­ÓÀx¦s®æ
  15.     Loop
  16.     With Sheets(2)
  17.         .Cells.Clear
  18.         .[A1].Resize(D.Count, 4) = Application.Transpose(Application.Transpose(D.ITEMS))
  19.     End With
  20. End Sub
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

DEAR  GBKEE  ¤j¤j
1.§¹¥þ²Å¦X¤p§Ì¤§»Ý¨D.«D±`·PÁ±z¤§«ü¾É. THANKS*10000
ù

TOP

DEAR  GBKEE  &  ALL  ¤j¤j
  1.SORRY Âà¥X¸ê®ÆµL°ÝÃD.
   ¨Ò
   CÄæ =¤J¼t®É¶¡(A) 10301020756  
   DÄæ =¥X¼t®É¶¡(B) 10301021815
  1.1 ¤p§Ì»Ý©ó  EÄæ¨q¥X ¤W¯Z®É¼Æ(D-C) DÄæ®É¶¡ -CÄæ®É¶¡«á¤§¤p®É
         1.1.1 ¦p½d¨Ò  10301021815-10301020756= 9.32¤p®É
   2.½Ð±Ð VBA¦p¦ó®Ñ¼g  THANKS*10000
ù

TOP

DEAR ALL ¤j¤j
  ¤p§Ì¤w¥Î¦p¤U¤è¦¡¸Ñ¨M  THANKS*10000

Sub ­pºâ·s¥X¶Ô¤u®É()
  Sheet4.Select
  Range("A1").Select
  Sheet4.[E2:E65536].ClearContents
  R = Sheet4.[A65536].End(xlUp).Row
  On Error Resume Next
  For M = 2 To R
  X1 = Mid(Sheet4.Cells(M, 3), 8, 2)
  X2 = Mid(Sheet4.Cells(M, 3), 10, 2)
  Y1 = Mid(Sheet4.Cells(M, 4), 8, 2)
  Y2 = Mid(Sheet4.Cells(M, 4), 10, 2)
  Sheet4.Cells(M, 5) = (Y1 - X1 - 1) + (60 - X2 + Y2) / 60
    Next
  Sheet4.Select
  Range("A1").Select
End Sub
ù

TOP

rouber590324 ¤j¤j~
                 §AªºÀÉ®×¥i¥H¤À¨Éµ¹§Ú¶Ü??

TOP

DEAR  SIR
  §ÚµLªk¤W¶ÇÀÉ®×.¤½¥qLOCK
ù

TOP

        ÀR«ä¦Û¦b : ¦³´¼¼z¤~¯à¤À¿ëµ½´c¨¸¥¿¡F¦³Á¾µê¤~¯à«Ø¥ß¬üº¡¤H¥Í¡C
ªð¦^¦Cªí ¤W¤@¥DÃD