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

[µo°Ý] ¤G­ÓÄæ¦ì¸ê®Æ·j´M?

[µo°Ý] ¤G­ÓÄæ¦ì¸ê®Æ·j´M?

½Ð°Ý¡G
¦b¥ªÃä¸ê®Æ°Ï¥u­n¦³²Å¦X¤Ø¤oÄæ©ÎªÌÃC¦âÄæ±ø¥óªÌ¡A³£¤@¤@¦C¥X¨Ó¡C
ÁÂÁ¡I

2­ÓÄæ¦ì±ø¥ó¬d¸ß.zip (9.65 KB)

ÁÂÁ½׾Â,ÁÂÁ¦U¦ì«e½ú
«á¾ÇÂǦ¹©«½m²ßVBA°}¦C,¾Ç²ß¤è®×¦p¤U,½Ð¦U¦ì«e½ú«ü±Ð

°õ¦æ«e:
20230601_1.jpg
2023-6-1 14:35


°õ¦æµ²ªG:
20230601_2.jpg
2023-6-1 14:35



Option Explicit
Sub TEST()
Dim Brr, V, i&, j%, T$, R&
T = "/" & [J2] & "/" & [K2] & "/" & [L2] & "/" & [M2] & "/"
Brr = Range([G1], [A65536].End(xlUp))
For i = 2 To UBound(Brr)
   V = InStr(T, "/" & Brr(i, 5) & "/") + InStr(T, "/" & Brr(i, 6) & "/")
   If V > 0 Then R = R + 1: For j = 1 To 7: Brr(R, j) = Brr(i, j): Next
Next
[J6].Resize(R, 7) = Brr
Erase Brr
End Sub
¥Î¦æ°Ê¸Ë¸mÂsÄý½×¾Â¾Ç²ß«Ü¤è«K,ÁÂÁ½׾¸gÀç¹Î¶¤
½Ð¤j®a¤@°_¤W½×¾Â¨Ó¥æ¬y

TOP

¦n²`¶øªº¤½¦¡
­È±o¦n¦n¬ã¨s...

TOP

J6/°}¦C¤½¦¡:
=IFERROR(INDEX(A:A,SMALL(IF(MMULT(COUNTIF($J$2:$M$2,$E$2:$F$11),{1;1}),ROW($2:$11)),ROW(A1))),"")

¦V¥k¿ï¾Ü©Ê¶K¤J¤½¦¡, ¦A¤U©Ô

TOP

¦^´_ 4# rouber590324


­Y¦^´_¤º®e¦³¥N½X©Î¤½¦¡,
¦b½T©w¦^´_«e, ±N ¤U¤è[¸T¥Îªí±¡]¨ú®ø¥´¤Ä, ¦A­«·s¥´¤Ä,
³o¼Ë§Y¥iÁקK³¡¥÷¤å¦r³QÃѧO¬°ªí±¡²Å¸¹

TOP

ÀH·NºÛ "EXCEL°g"  blog  ©Îhttps://hcm19522.blogspot.com/ EXCEL¨ç¼Æ

TOP

DEAR SIR
§ó¥¿¦p¤U

Sub AAA()
Sheet1.[J665536].ClearContents
X = Sheet1.[A65536].End(xlUp).Row
Y = Sheet1.[J65536].End(xlUp).Row
For M = 2 To X
If Sheet1.Cells(M, 5) = Sheet1.Cells(2, 10) Or Sheet1.Cells(M, 5) = Sheet1.Cells(2, 11) Or Sheet1.Cells(M, 6) = Sheet1.Cells(2, 12) Or Sheet1.Cells(M, 6) = Sheet1.Cells(2, 13) Then
    Sheet1.Cells(Y + 1, 10).Resize(, 7).Value = Sheet1.Cells(M, 1).Resize(, 7).Value
      Y = Y + 1
    End If
    Next
End Sub
ù

TOP

§Ú«ö¤U°õ¦æÁä®É¡A¥X²{"°õ¦æ¶¥¬q¿ù»~'424'  ¦¹³B»Ý­nª«¥ó"ªº°T®§¡A§Ú¹q¸£excelª©¥»¬O¢±¢¯¢°¢µªº¡C
ÁÂÁ¡I

TOP

DEAR SIR
§ó¥¿¦p¤U

Sub AAA()
Sheet1.[J665536].ClearContents
X = Sheet1.[A65536].End(xlUp).Row
Y = Sheet1.[J65536].End(xlUp).Row
For M = 2 To X
If Sheet1.Cells(M, 5) = Sheet1.Cells(2, 10) Or Sheet1.Cells(M, 5) = Sheet1.Cells(2, 11) Or Sheet1.Cells(M, 6) = Sheet1.Cells(2, 12) Or Sheet1.Cells(M, 6) = Sheet1.Cells(2, 13) Then
   Sheet1.Cells(Y + 1, 10).Resize(, 7).Value = Sheet1.Cells(M, 1).Resize(, 7).Value
     Y = Y + 1
   End If
   Next
End Sub
ù

TOP

§Ú©ó¤½¥q¹q¸£°õ¦æµL°ÝÃD
¦ý§Ú¤½¥q¹q¸£.µLªk¤W¶ÇÀɮפ©ºô¯¸.
§A»Ý¬Ý¤£¯à°õ¦æ¤§¿ù»~ÂI©ó¦ó³B.¤è¥i¬Ý¦p¦ó¸Ñ¨M(ª©¥»°ÝÃD OR......)
ù

TOP

        ÀR«ä¦Û¦b : ¤H­n¦Û·R¡A¤~¯à·R´¶¤Ñ¤Uªº¤H¡C
ªð¦^¦Cªí ¤W¤@¥DÃD