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

[µo°Ý] °õ¦æ¿ù»~¶¥¬q13-«¬ºA¤£²Å¦X

[µo°Ý] °õ¦æ¿ù»~¶¥¬q13-«¬ºA¤£²Å¦X

DEAR ALL ¤j¤j
²³æ¤§µ{¦¡¦p¤U
If Sheet48.Cells(M, 16) = Sheet10.Range("G168") And (Sheet48.Cells(M, 10) - Sheet10.Range("B84") = 0) Then
¥X²{
°õ¦æ¿ù»~¶¥¬q13-«¬ºA¤£²Å¦X
?????
¦³­þ¦ì¤j¤jª¾¹D­ì¦]¬°¦ó???
ù

µ{¦¡¦p¤U
Sub PCBCTREADGats7ALL§÷½sÂà¸mA()
Sheet48.Visible = True
Sheet49.Visible = True
Sheet49.[A2:E65536].ClearContents
X = Sheet48.[G65536].End(xlUp).Row
Y = Sheet49.[A65536].End(xlUp).Row + 1
For M = 2 To X
If Sheet48.Cells(M, 10) - Sheet10.Range("B84") = 0 And Sheet48.Cells(M, 11) - Sheet10.Range("B85") < 0 And Sheet48.Cells(M, 12) - Sheet10.Range("B85") >= 0 And Sheet48.Cells(M, 13) - Sheet10.Range("B86") = 0 And Sheet48.Cells(M, 14) - Sheet10.Range("B87") < 0 And Sheet48.Cells(M, 15) - Sheet10.Range("B87") >= 0 Then
Sheet49.Cells(Y, 1) = Sheet48.Cells(M, 7)
Sheet49.Cells(Y, 2) = Sheet48.Cells(M, 8)
Sheet49.Cells(Y, 3) = Sheet48.Cells(M, 1)
Sheet49.Cells(Y, 4) = Sheet48.Cells(M, 2)
Sheet49.Cells(Y, 5) = Sheet48.Cells(M, 3)
Y = Y + 1
End If
Next
End Sub
ù

TOP

·PÁ  stillfish00 ¤j¤j
1.ÁA¸Ñ.¥Î±z¤§¤è¦¡¤w§ä¥X°ÝÃDÂI
   THANKS*10000
ù

TOP

        ÀR«ä¦Û¦b : ¡i°±º¢¤£«e¡A²×µL©Ò±o¡j¤H³£°g©ó´M§ä©_ÂÝ¡A¦]¦Ó°±º¢¤£«e¡FÁa¨Ï®É¶¡¦A¦h¡B¸ô¦Aªø¡A¤]¤FµL¥Î³B¡A²×µL©Ò±o¡C
ªð¦^¦Cªí ¤W¤@¥DÃD