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

[µo°Ý] ¦h±ø¥ó¬d¸ß³]©wªº°ÝÃD

¦^´_ 2# dou10801

¥i§ï¥Î"±Æ°£ªk"
for i= 1 to 999
If Trim(MB1)<>"" and  Cells(i, "A") <> Trim(MB1) then goto i01
if Trim(MB2)<>"" and  Cells(i, "C") <> Trim(MB2) then goto i01
if Trim(MB3)<>"" and  Cells(i, "E") <> Val(MB3)  Then  goto i01
²Å¦X±ø¥ó..do something...

i01: next i

TOP

¦^´_ 11# dou10801


²³æ°µ¤@­Ó:
1) ¥u¿é¤J¶}©l¤é´Á:¨ú¥X>=«ü©w¤é´Á¸ê®Æ
2) ¥u¿é¤Jµ²§ô¤é´Á:¨ú¥X<=«ü©w¤é´Á¸ê®Æ
3) ¨âºØ³£¦³:¨ú¥X>=¤Î<=°Ï¶¡¸ê®Æ, ª`·N:¨â­Ó¤é´Á¤£¥i­Ë¿ù, §Yµ²§ô¤é´Á¤£¥i¤p¤_¶}©l¤é´Á; ­Y¨â­Ó¤é´Á¬Û¦P=¥u¨ú¦P¤@¤Ñ¸ê®Æ
4) ¨âºØ³£ªÅ:¤£¤ñ¸û¤é´Á, µø¬°¤é´Á³£²Å¦X, ¶È¤ñ¹ï¨ä¥¦±ø¥ó

Sub TEST()
Dim Arr, D1, D2, X, i&, j%, N&
Sheets(2).UsedRange.ClearContents
D1 = [j2]: D2 = [k2]: X = [L2:N2]
Arr = Range([i1], [a65536].End(xlUp))
For i = 2 To UBound(Arr)
    If IsDate(D1) Then If CDate(Arr(i, 9)) < D1 Then GoTo i01
    If IsDate(D2) Then If CDate(Arr(i, 9)) > D2 Then GoTo i01
    For j = 1 To 3
        If X(1, j) <> "" And X(1, j) <> Arr(i, Mid(135, j, 1)) Then GoTo i01
    Next j
    N = N + 1
    For j = 1 To UBound(Arr, 2): Arr(N + 1, j) = Arr(i, j): Next
i01: Next i
If N > 0 Then Sheets(2).[a1].Resize(N + 1, UBound(Arr, 2)) = Arr
End Sub


'============================

TOP

¦^´_ 14# dou10801

A20~A60

T=arr(i, 1):  V=val(mid(T,2))
if left(T, 1) <> "A" or V < 20 or V > 60 then goto i01

TOP

        ÀR«ä¦Û¦b : ¶¢¤HµL¼Ö½ì¡A¦£¤HµL¬O«D¡C
ªð¦^¦Cªí ¤W¤@¥DÃD