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

¦p¦ó¥Îvba«ö±ø¥ó¨ú¥NÀx¦s®æ¤º®e

¦p¦ó¥Îvba«ö±ø¥ó¨ú¥NÀx¦s®æ¤º®e

¨ú¥N.rar (2.09 KB) ½Ð°Ý¦p¦ó¥Î¥¨¶°§âA3:I22½d³ò¤º©MA1:I1¤º®e¬Û¦P¥]¬AªÅ®æ«O¯d,¨ä¥Lªº¥ÎX¨ú¥N

¤º®e¬Û¦P¥]¬AªÅ®æ«O¯d,¨ä¥Lªº¥ÎX¨ú¥N

¤º®e»P¤°»ò¬Û¦P¡H

TOP

¥»©«³Ì«á¥Ñ yanto913 ©ó 2011-4-17 09:38 ½s¿è

¦]¬°§Ú¬Oªì¾ÇªÌ©Ò¥H¥u·|³o¼Ë§PÂ_...¥Î¤F«Ü¦hAnd
  1. Sub ¨ú¥N()
  2. For j = 1 To 9
  3. For i = 3 To 22
  4. If Cells(i, j) <> Cells(1, 1) And Cells(i, j) <> Cells(1, 2) And Cells(i, j) <> Cells(1, 3) And Cells(i, j) <> Cells(1, 4) And Cells(i, j) <> Cells(1, 5) And Cells(i, j) <> Cells(1, 6) And Cells(i, j) <> Cells(1, 7) And Cells(i, j) <> Cells(1, 8) And Cells(i, j) <> Cells(1, 9) Then
  5. Cells(i, j) = "X"
  6. End If
  7. Next i
  8. Next j
  9. End Sub
½Æ»s¥N½X
YOYO

TOP

Sub yy()
a = Join([a1:i1&""])
For Each c In [a3:i22]
If InStr(a, c) = 0 Then c.Value = "x"
Next
End Sub

TOP

oobird :
  ´ú¸Õ¤F§Aµ¹ªº,¨ä¤¤E21¤¤"L"¥¼¯à¨ú¥N,叧½Ð°Ýa = Join([a1:i1&""])
ª½±µ¶ñ¤W"A","B","C",....""¥N´ÀJoin([a1:i1&""])¦p¦ó
¼g,ÁÂÁÂ

TOP

  1. Sub ex()
  2. For Each a In [A3:I22]
  3. If a <> "" And IsError(Application.Match(a, [A1:I1], 0)) Then a.Value = "X"
  4. Next
  5. End Sub
½Æ»s¥N½X
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

Sub yy()
For Each c In [a3:i22]
If [a1:i1].Find(c, , , 1) Is Nothing Then c.Value = "x"
Next
End Sub

TOP

¥»©«³Ì«á¥Ñ yourstory ©ó 2011-5-8 07:49 ½s¿è

½Ð°Ý Hsieh ª©¤j¤j~¬°¦ó§Ú±N§Aªº»yªk§ï¦¨¤U­±³o¼Ë¡K·|¥X²{¶¥¬q¿ù»~13...«¬ºA¤£²Å¦X©O??
§ï¦¨²Å¦X±ø¥ó´N¥´¤Ä¤Ä¡A³o¼Ë¤£¦æ¶Ü??...¤@ÀYÃú¤ô¤¤.....
°õ¦æ«á¥Ø¼ÐÀx¦s®æ¦³¥´¤Ä¤Ä»¡¡K¦ý¬O·|¥X²{«¬ºA¤£²Å¦X¡K«ç·|³o¼Ë@@
¸Ó¦p¦ó§ï...³Â·Ð·|ªº¤j¤j±Ð¤@¤U~·P¿E¤£ºÉ­ò

Sub ex()
For Each a In [A3:I22]
If a <> "" And Application.Match(a, [A1:I1], 0) Then a.Value = "v"
Next
End Sub

TOP

¥»©«³Ì«á¥Ñ GBKEE ©ó 2011-5-8 09:14 ½s¿è

¦^´_ 8# yourstory
If a <> "" And Application.Match(a, [A1:I1], 0) Then a.Value = "v"  ¬O²¤Æ«áªº¼gªk
¥¿¦¡ªº¼gªk   If a <> "" And Application.Match(a, [A1:I1], 0)=True Then a.Value = "v"  

Application.Match(a, [A1:I1], 0)) =>§ä¨ì®É¶Ç¦^¼Æ¦r Excel ¦Û°ÊÂà´«¼Æ¦r¤j©ó0 ¬° True  ¥¿½T¥i¦æ
¦ý·íMatch§ä¤£¨ì®É¶Ç¦^¿ù»~­È  #Na      ©Ò¥H·|¦³¸ê®Æ«¬ºA¤£²Åªº¿ù»~²£¥Í
½Ð­×¥¿¦p¤U
  1. Sub ex()
  2. For Each a In [A3:I22]
  3.     If a <> "" And IsNumeric(Application.Match(a, [A1:I1], 0))=True Then a.Value = "v"  '¥¿¦¡ªº¼gªk
  4.     ' If a <> "" And IsNumeric(Application.Match(a, [A1:I1], 0)) Then a.Value = "v"        '²¤Æªº¼gªk
  5. Next
  6. End Sub
½Æ»s¥N½X

TOP

ÁÂÁ GBKEE ¤j¤j¸Ñµª...²×©ó¸Ñ¨M¤F^^...
¤S¾Ç¤F¤@½Ò~~ÁÂÁ­ù

TOP

        ÀR«ä¦Û¦b : ¤£­nÀH¤ß©Ò±ý¡A­nÀH¤ß±Ð¨|¦Û¤v¡C
ªð¦^¦Cªí ¤W¤@¥DÃD