[µo°Ý] ½Ð±Ð¦h¶µ¥Ø¤ñ¹ï¡A¿z¿ï

lusyfatw

¦U¦ì«e½ú¦n¡A½Ð±Ð¦h¶µ¥Ø¤ñ¹ï¡A¿z¿ï

¥­®É¾Þ§@¬Ò§Q¥Î¨ç¼Æ¸û¦h¡Avba¤§¹B¥Î¶È²¤À´¥Ö¤ò
¬Ò§Q¥Î°Q½×ª©¤º¦U¥DÃD¸ê®Æ(°ò¦³¡¥÷)¡A¦Û¤v¦b¤ÏÂдú¸Õ¨Ó¹F¨ì»Ý¨D¡C
¦ý·j´M°Q½×ª©³\¤[¡A¹ê¦bµLÀYºü¡A¬Gµo©«¦V«e½ú­Ì½Ð±Ð¡A·PÁ¦U¦ì¡C

ªþ¥ó¤u§@ªídataªºÀË´ú¶µ¥Ø»Ý¤p©ó¤u§@ªíspc¦U³W®æªºÀË´ú¶µ¥Ø¡A
²Å¦X«K±Ndata¤º¸Ó¦C¸ê®Æ½Æ»s¨ì²Å¦X³W®æ¤§¤u§@ªí


test.zip (22.12 KB)

¤U¸ü¦¸¼Æ: 12

2018-11-4 11:02

faye59

¦^´_ 1# lusyfatw


    §ÚÀ°¦£¾ã²z¤@¤U³W«h
DATA¸ê®ÆŪ¨úÀË´ú¶µ¥Ø1-13?
Ū¨ú§¹¤ñ¹ïspc¶µ¥Ø1-13?
¨Ì§Ç¥Ñ¤W¨ì¤U¤ñ¹ï²Å¦Xªº°Ñ¼Æ?
²Å¦Xªº¶ñ¤J¸ÓAÄæ¦ì¦WºÙ¹ïÀ³ªº¬¡­¶Ã¯?
¶ñ¤J«á¸Óµ§DATA¤¤ªº¸ê®Æ¬O§_²¾°£?«O¯d?
¦pªG«O¯d¡A·í­«Âаõ¦æ²Ä¤G¦¸¹ïÀ³ªº³f­¶Ã¯¤¤¤w¦s¦bÀɮ׬O§_Âл\?©¹¤U¶K¤J?
¦pªGspc AÄæ¦ì¤¤¦³¥¼«Ø¥ßªº¬¡­¶Ã¯¬O§_¸õ¹L?·s¼WAÄæ¦WºÙ¬¡­¶Ã¯?

²M·¡ªºÅÞ¿è¤Î¬yµ{¤~¦³¿ìªkÀ°¤W¦£¡C

lusyfatw

¦^´_ 2# faye59

DATA¸ê®ÆŪ¨úÀË´ú¶µ¥Ø1-13?   ¬Oªº
Ū¨ú§¹¤ñ¹ïspc¶µ¥Ø1-13?         ¦³ÀË´ú­Èªº¶µ¥Ø
¨Ì§Ç¥Ñ¤W¨ì¤U¤ñ¹ï²Å¦Xªº°Ñ¼Æ?        ¬Oªº
²Å¦Xªº¶ñ¤J¸ÓAÄæ¦ì¦WºÙ¹ïÀ³ªº¬¡­¶Ã¯?       ¬Oªº
¶ñ¤J«á¸Óµ§DATA¤¤ªº¸ê®Æ¬O§_²¾°£?«O¯d?     «O¯d
¦pªG«O¯d¡A·í­«Âаõ¦æ²Ä¤G¦¸¹ïÀ³ªº³f­¶Ã¯¤¤¤w¦s¦bÀɮ׬O§_Âл\?©¹¤U¶K¤J?   ©¹¤U¶K¤J
¦pªGspc AÄæ¦ì¤¤¦³¥¼«Ø¥ßªº¬¡­¶Ã¯¬O§_¸õ¹L?·s¼WAÄæ¦WºÙ¬¡­¶Ã¯?    ³o³¡¥÷·|¥ý«Ø¦n¡A´N¨S¦³¦¹·Qªk

lusyfatw

¦^´_ 2# faye59

¤p§Ì¥u·|¥Ö¤ò¡A§Q¥Î¤@­Ó¤@­Ó¤ñ¹ï¡AÁٽкô¥S½ç±Ð¡AÁÂÁ±z¡C

t1.zip (72.29 KB)

¤U¸ü¦¸¼Æ: 9

2018-11-5 01:14

Sub test()

Dim a, b, c, d, e, f, g

Set s1 = Worksheets("spc")
Set d1 = Worksheets("DATA")
Set d2 = Worksheets("OEM-7IMP-2Y-01")

a = s1.Range("B2")
b = s1.Range("C2")
c = s1.Range("D2")
d = s1.Range("E2")
e = s1.Range("F2")
f = s1.Range("G2")
g = s1.Range("H2")

For i = 2 To 150
If (d1.Range("N" & i) <= a) * (d1.Range("O" & i) <= b) * (d1.Range("P" & i) <= c) * (d1.Range("Q" & i) <= d) * (d1.Range("R" & i) <= e) * (d1.Range("S" & i) <= f) * (d1.Range("T" & i) <= g) Then
d1.Range("b" & i & ":Z" & i).Copy
Worksheets("OEM-7IMP-2Y-01").Activate
d2.Range("B1048576").Select
Selection.End(xlUp).Select
d2.Range("b" & ActiveCell.Row + 1).PasteSpecial Paste:=xlPasteValues
End If
Next

End Sub

n7822123

¦^´_ 4# lusyfatw


§AªºSPC ¤À­¶¦³¨ÇÀË´ú¶µ¥Ø¬OªÅ¥Õªº¡A

¦pªG¥Î0¥h¥d¡A¨º´N¤£·|¦³¦X³W®æªº§å¸¹¡A

§Aªºµ{¦¡¤]¥u¦³¤ñ7¶µ¡A8~13¶µ³£¤£¥ÎºÞ¶Ü!?

n7822123

¦^´_ 5# n7822123

ªÅ¥Õªº³¡¤À§Ú´N·í°µ¤£¥d³W®æ¡A§PÂ_¬°PASS!

Sub Ex()
Dim ¦X®æ As Boolean
Dim R%, Ri%, i%, Rn%, sh%, Spcs, Arr
Arr = Range([spc!N2], [spc!A2].End(xlDown))
Set Shs = Sheets("spc")
Spcs = Shs.[A2].End(xlDown).Row - 1
Sheets("DATA").Activate
Rn = [A1].End(xlDown).Row
For sh = 1 To Spcs
  With Sheets(Arr(sh, 1))
    Debug.Print .Name
    .Cells(2, 2).Resize(Rn, 25).ClearContents
    Ri = 2
    For R = 2 To Rn
      ¦X®æ = True
      For i = 1 To 13
        If Arr(sh, i + 1) <> "" And Cells(R, i + 12) > Arr(sh, i + 1) Then ¦X®æ = False: Exit For
      Next i
      If ¦X®æ Then .Cells(Ri, 2).Resize(, 25) = Cells(R, 1).Resize(, 25).Value: Ri = Ri + 1
    Next R
  End With
Next sh
End Sub