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

¸ê®Æ¶q¤jªº­pºâ

¸ê®Æ¶q¤jªº­pºâ

¦U¦ì¥ý¶i¦n
a-iÄæ¦ì¬O­ì©l¸ê®Æ
§Æ±æ¦bL1©MM1Àx¦s®æ¿é¤J¸ê®Æ¿z¿ï±ø¥ó
¥u­nA-IÄæ¦ì¤º®e«DªÅ¥Õ´N¶i¦æ¿z¿ï
¦Ó±N¿z¿ïµ²ªGÅã¥Ü¦bN-PÄæ¦ì
³Ì«á¦A±Æª©,¦bV-XÄæ¦ì±N¸ê®Æ¥Ñ²Ä2¦C©¹¤U±Æ

Image 001.jpg (237.09 KB)

Image 001.jpg

©ú²Ó.rar (7.8 KB)

¦U¦ì¥ý¶i¦n
a-iÄæ¦ì¬O­ì©l¸ê®Æ
§Æ±æ¦bL1©MM1Àx¦s®æ¿é¤J¸ê®Æ¿z¿ï±ø¥ó
¥u­nA-IÄæ¦ì¤º®e«DªÅ¥Õ´N¶i¦æ¿z¿ï
...
oak0723-1 µoªí©ó 2022-5-4 21:33


½Ð´ú¸Õ¬Ý¬Ý¡AÁÂÁÂ
Sub test()
Dim Arr, Brr(), T$, T1$, n&, R&, i&
Arr = Range("a1").CurrentRegion
ReDim Brr(1 To UBound(Arr), 1 To 3)
T = [L1] & "|" & [M1]
For i = 2 To UBound(Arr)
    T1 = Arr(i, 3) & "|" & Arr(i, 2)
    If T = T1 Then
        n = n + 1: If n = 1 Then R = i
        Brr(n, 1) = Application.Text(Arr(i, 4), "00\:00\:00")
        Brr(n, 2) = Arr(i, 5): Brr(n, 3) = Arr(i, 6)
    End If
Next
If n > 0 Then
    [v1].CurrentRegion.Offset(1).ClearContents
    Range("n2:p" & UBound(Arr)).ClearContents
    Range("n" & R).Resize(n, 3) = Brr
    Range("v2").Resize(n, 3) = Brr
End If
End Sub

TOP

Sub «ö¶s1_Click()
     X = ¤u§@ªí1.[A65536].End(xlUp).Row
     Y = 2
     MP1 = Range("L1")
     MP2 = Range("M1")
     For i = 1 To X
        If ¤u§@ªí1.Cells(i, 3) = MP1 And ¤u§@ªí1.Cells(i, 2) = MP2 Then
           Cells(Y, 14) = Application.Text(¤u§@ªí1.Cells(i, 4).Value, "00\:00\:00")
           Cells(Y, 15).Resize(, 2).Value = ¤u§@ªí1.Cells(i, 5).Resize(, 2).Value
           Y = Y + 1
        End If
    Next
End Sub
­è¦b¾Ç²ß,¤@°_¬ã¨s.
§ù¤p¥­

TOP

google"EXCEL°g"  blog  ©Îgoogleºô§}:https://hcm19522.blogspot.com/

TOP

¦^´_ 2# samwang

¦³ÂI°ÝÃD,¡Ä

©ú²Ó-vb01.rar (678.67 KB)

TOP

¦^´_ 3# dou10801


    °õ¦æµ²ªG¦³°ÝÃD
¦]¬°ª©¥»°ÝÃD¶Ü

©ú²Ó-vb02.rar (678.4 KB)

TOP

¦^´_  samwang

¦³ÂI°ÝÃD,¡Ä
oak0723-1 µoªí©ó 2022-5-5 20:44


»Ý¨DÄæ¦ì¤£¤@¼Ë¡A­×§ï§ï¦p¤U¬õ¦r§Y¥i¡AÁÂÁÂ
T1 = Arr(i, 1) & "|" & Arr(i, 2) '·sªº»Ý¨D

1.JPG (215.85 KB)

1.JPG

TOP

¥»©«³Ì«á¥Ñ dou10801 ©ó 2022-5-6 08:49 ½s¿è

¦^´_ 6# oak0723-1
If ¤u§@ªí1.Cells(i, 3) = MP1 And ¤u§@ªí1.Cells(i, 2) = MP2 Then  .
§ï If ¤u§@ªí1.Cells(i, 1) = MP1 And ¤u§@ªí1.Cells(i, 2) = MP2 Then
§ù¤p¥­

TOP

¦^´_ 8# dou10801


    ·P®¦·P®¦
§ÚÁÙ¥H¬°¬Oª©¥»°ÝÃD

TOP

¦^´_ 7# samwang


    ·P®¦·P®¦

TOP

        ÀR«ä¦Û¦b : «Ý¤H°h¤@¨B¡A·R¤H¼e¤@¤o¡A´N·|¬¡±o«Ü§Ö¼Ö¡C
ªð¦^¦Cªí ¤W¤@¥DÃD