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

¦³±ø¥ó¨ú¥NÀx¦s®æ¤º®e

¦³±ø¥ó¨ú¥NÀx¦s®æ¤º®e

¨ú¥N.rar (34.07 KB) ½Ð°Ý¥i§_¸Ñ¨M³o°ÝÃD

¦^´_ 1# mmggmm
1. §Aªºµ{¦¡¦³³]±K½X, ©Ò¥H¬Ý¤£¨ì­ì©l½X, ¤£¯à°Ñ·Ó­ì©l½X°µ­×§ï
2. ±Ô­z¤¤ªº :

½Ð°Ý¥i§_§ï¬°SHEET"POST"O2:O10¦W³æ«O¯d
SHEET"POST"O11:O45¦W³æ³]©w¦³"NO"©M "YES"
¦pªG¦bSHEET"POST"G:G¬°"NO"«hÄÝ"YES"«O¯d¨ä¥L¥Î"X"¨ú¥N


¤¤¬Ý¤£¥X¨Ó "NO"©M "YES" ¨âªÌ¦³¤°»ò¤£¦P.

¦Ó§A©ÒÁ|½d¨Òªº H7:AL7 ¥u¦³ E08¡BO »P A ¤TºØ­È,
A »P O ¬O§A»¡­n "«O¯d" ªº³¡¥÷,
¦Ó E08 «hÄÝ©ó "NO" ªº³¡¥÷,
¨ä¤¤¨S¦³ "YES" ³¡¤Àªº½d¨Ò¸ê®Æ.

©Ò¥HµL±q¤U¤â­×§ï.

TOP

MM.rar (33.18 KB)

TOP

¦^´_ 3# mmggmm
"¦pªG¦bSHEET"POST"G:G¬°"NO"«hÄÝ"YES"«O¯d¨ä¥L¥Î"X"¨ú¥N"
³o¥y¸Ü¥i¥H¦A¥Õ¸Ü¨Ç¶Ü?

TOP

NNN.rar (38.22 KB) ¨ä¹ê§Ú­ì¬O¥Î¨âªí¤À§O°õ¦æ,²{·Q¨âªí¤@¦¸°õ¦æ¥¨¶°§¹¦¨

TOP

¦^´_ 5# mmggmm
¬O³o¼Ë¶Ü?
  1. Sub Ex()
  2.     Dim Ay(1), Y
  3.     With Sheets("POSIT")
  4.         Ay(0) = Application.Transpose(.Range("O2:O" & .Range("O" & Rows.Count).End(xlUp).Row))
  5.         Ay(1) = Application.Transpose(.Range("P2:P" & .Range("P" & Rows.Count).End(xlUp).Row))
  6.     End With
  7.     For Each A In ActiveSheet.[H3:AL400]
  8.         Y = Application.Match(A, Ay(0), 0)
  9.         If IsError(Y) Then
  10.             A.Value = "X"
  11.         ElseIf Y > 0 And Cells(A.Row, "G") <> Ay(1)(Y) Then
  12.             A.Value = "X"
  13.         End If
  14.     Next
  15. End Sub
½Æ»s¥N½X

TOP

GBKEE :
§Ú¥Øªº¬O±N"NO"©M"YES"¨â­¶¦X¨Ö¦b¤@­¶°õ¦æ¨ú¥N,¥i¯à¨â­¶¦U¦³¤£¦P±ø¥ó¨ú¥N¦ÓÅܱo½ÆÂø¤F,½Ð¬Ý¬Ýªþ¥ó¤¤§Ú¦b"POSIT"¤¤ªº»¡©ú¬O§_©ú¥Õ¤@¨Ç. MM2.rar (34.52 KB)

TOP

¥»©«³Ì«á¥Ñ GBKEE ©ó 2011-7-3 11:26 ½s¿è

¦^´_ 7# mmggmm
¦¹°Ï(P16:Q24)¦b°õ¦æ¥¨¶°«á¥²©w«O¯d
¤£ºÞsheet"Meals"G:G¬OÄÝ"YES" "NO" ³£«O¯d¶Ü?

Q2:Q14 ¬ONO     ->sheet"Meals"G:G¬OÄÝ"YES"¥²©w«O¯d
Q25:Q36 ¬OYES  ->sheet"Meals"G:G¬OÄÝ"NO"¥²©w«O¯d
½Ð°ÝPOSIT ªºPÄæ©Ò¦³¸ê®Æ·|­«´_¶Ü?
P15:Q15¬°¦ó¬OªÅ¥Õªº

TOP

GBKEE:
PÄæ¸ê®Æ¤£·|­«´_,P15:Q15¥i¥H§R°£,¦]¬°¥ý«e¬O¦³¸ê®Æªº.ÁÂÁÂ

TOP

¦^´_ 9# mmggmm
¨Ì¾Ú 7¼ÓªþÀɭק諸
  1. Sub Ex()
  2.     Dim Ay(1), Y
  3.     With Sheets("POSIT")
  4.         Ay(0) = Application.Transpose(.Range("P2:P" & .Range("P" & Rows.Count).End(xlUp).Row))
  5.         Ay(1) = Application.Transpose(.Range("Q2:Q" & .Range("O" & Rows.Count).End(xlUp).Row))
  6.     End With
  7.     For Each A In ActiveSheet.[H3:AL400]
  8.         Y = Application.Match(A, Ay(0), 0)
  9.         If IsError(Y) Then
  10.             A.Value = "X"
  11.         ElseIf Y > 0 Then
  12.             If (Y <= 14 Or Y >= 24) And Cells(A.Row, "G") = Ay(1)(Y) Then A.Value = "X"
  13.         End If
  14.     Next
  15. End Sub
½Æ»s¥N½X

TOP

        ÀR«ä¦Û¦b : §Ú­Ì­n°µ¦nªÀ·|ªºÀô«O¡A¤]­n°µ¦n¤º¤ßªºÀô«O¡C
ªð¦^¦Cªí ¤W¤@¥DÃD