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

[µo°Ý] ½Ð°Ý¸Ó¦p¦ó¦Û°Ê°O¿ý¥[Á`

[µo°Ý] ½Ð°Ý¸Ó¦p¦ó¦Û°Ê°O¿ý¥[Á`

¥»©«³Ì«á¥Ñ leefing ©ó 2012-2-9 00:32 ½s¿è

¦pÃD

·í³æ¶q>=10®É¡A§PÂ_     ¦¨¥æ=¶R¶i       °O¦b  ªÅ   ¨º¤@Äæ
                                , §PÂ_      ¦¨¥æ=½æ¥X      °O¦b  ¦h   ¨º¤@Äæ
                                ,§PÂ_     ¦¨¥æ¦P®É>¶R¶iand½æ¥X  °O¦b     ¦h    ¨º¤@Äæ
                              ,§PÂ_       ¦¨¥æ¦P®É<¶R¶iand½æ¥X   °O¦b    ªÅ    ¨º¤@Äæ

¨C¦¸¥X²{  ´N²Ö¥[¤W¦¸¡A¦Ó¤£·|¨ú¥N±¼

¨º¸Ó¦p¦ó¸Ñ¨M©O¡H
¬Ý½L1.rar (12.36 KB)

¦^´_ 1# leefing
  1. Sub RR()
  2. Range(Cells(2, "T"), Cells([A65536].End(xlUp).Row, "U")) = ""
  3. For X = 2 To [A65536].End(xlUp).Row
  4.   If Cells(X, "J") >= 10 Then
  5.      If (Cells(X, "F") = Cells(X, "D")) Then
  6.        Cells(X, "U") = "ªÅ"
  7.      End If
  8.      If (Cells(X, "F") = Cells(X, "E")) Then
  9.        Cells(X, "T") = "¦h"
  10.      End If
  11.      If (Cells(X, "F") > Cells(X, "D")) And (Cells(X, "F") > Cells(X, "E")) Then
  12.        Cells(X, "T") = Cells(X, "T") & "¦h"
  13.      End If
  14.      If (Cells(X, "F") < Cells(X, "D")) And (Cells(X, "F") < Cells(X, "E")) Then
  15.        Cells(X, "U") = Cells(X, "U") & "ªÅ"
  16.      End If
  17.    End If
  18. Next X
½Æ»s¥N½X
¬O³o¼Ë¶Ü?
¤£¤F¸Ñ ¨C¦¸¥X²{  ´N²Ö¥[¤W¦¸¡A¦Ó¤£·|¨ú¥N±¼?

TOP

¥»©«³Ì«á¥Ñ leefing ©ó 2012-2-9 01:37 ½s¿è

¦^´_ 2# register313


    "¤£¤F¸Ñ ¨C¦¸¥X²{  ´N²Ö¥[¤W¦¸¡A¦Ó¤£·|¨ú¥N±¼?"
¦]¬°§Ú¬O±µDDE¡A©Ò¥H»ù®æ¤@©w·|¤@ª½ÅÜ°Ê¡C©Ò¥H¬O¤@¥X²{³æ¶q>=10´N¶}©l°µ¨º¨Ç°Ê§@¤F
¤@ª½¥[¤W¥h
Á|¨Ò¨Ó»¡¡G²Ä¤@¦¸¸õ°Ê  ³æ¶q10¡AµM«á¦¨¥æ=¶R¶i¡A©Ò¥H"ªÅ"¤U­±¨º¤@®æ¥X²{10
                     ²Ä¤G¦¸¸õ°Ê   ³æ¶q20 ¡AµM«á¦¨¥æ=¶R¶i¡A©Ò¥H"ªÅ"¤U­±¨º¤@®æ¥X²{30

³o­Ó°Ê§@¥u»Ý­n°µ ¥x«üªñ¤ë ¨º¤@¦C´N¥i¥H¤F
­nµ¥©ú¤Ñ¶}½L¤~¯à´ú¦¡¤F¡CÁÂÁÂR¤j¦^ÂÐ

TOP

¦^´_ 3# leefing

¤u§@ªí¼Ò²Õ
  1. Private Sub WORKSHEET_CHANGE(ByVal TARGET As Range)
  2. If TARGET.Address = "$J$2" And Cells(2, "J") >= 10 Then
  3. X = Cells(2, "U")
  4. Y = Cells(2, "T")
  5.   If Cells(2, "J") >= 10 Then
  6.      If (Cells(2, "F") = Cells(2, "D")) Then
  7.        Cells(2, "U") = Cells(2, "J") + X
  8.      End If
  9.      If (Cells(2, "F") = Cells(2, "E")) Then
  10.        Cells(2, "T") = Cells(2, "J") + Y
  11.      End If
  12.      If (Cells(2, "F") > Cells(2, "D")) And (Cells(2, "F") > Cells(2, "E")) Then
  13.        Cells(2, "T") = Cells(2, "J") + Y
  14.      End If
  15.      If (Cells(2, "F") < Cells(2, "D")) And (Cells(2, "F") < Cells(2, "E")) Then
  16.        Cells(2, "U") = Cells(2, "J") + X
  17.      End If
  18.    End If
  19. End If
  20. End Sub
½Æ»s¥N½X

TOP

¦^´_ 4# register313

ÁÂÁÂR¤jªº¦^ÂСA¨º¦pªG¥t¤@±iªí¤]¥Î³o¼Ëªº°µªk¡A¬O¤£¬O­×§ïTARGET³o­Ó¦a¤è
´N¥i¥H¤@¼Ëµe¸¬Äª¤F¡H

TOP

¦^´_ 5# leefing

¤u§@ªí¼Ò²Õ
µ{¦¡¥u·|§@¥Î¦b¸Ó¤u§@ªí
­Y¥t¤@¤u§@ªí¤]¶·¬Û¦P¤§¥\¯à,«h¸Ó¤u§@ªí¼Ò²Õ¤]­n¦³¬Û¦P¤§µ{¦¡

¨Ò
sheet1¤u§@ªí¼Ò²Õ©ñ¤W­z¤§µ{¦¡
sheet2¤u§@ªí¼Ò²Õ©ñ¤W­z¤§µ{¦¡

TOP

¦^´_ 6# register313

¨º»òTERGET³oÃä»Ý­n§ï¶Ü¡H  ÁÙ¬O¥i¥H¦@¦sªº¡H

TOP

¦^´_ 7# leefing

¦U¤u§@ªí¼Ò²Õ¤§µ{¦¡¬O¤¬¤£¬Û¤zªº(¿W¥ßªº)
­n¥Î¬Û¦PªºÅܼƦWºÙ¤]¨SÃö«Y

TOP

¦^´_ 8# register313


    ¨º³o¼Ë§ÚÀ´¤F¡AÁÂÁÂ

TOP

¦^´_ 8# register313


    R¤j¡A¤µ¤Ñ´ú¸Õ¦Û°Ê°O¿ý¥[Á`
µ²ªGÀx¦s®æ³£¨S¤ÏÀ³¡A¬O¹q¸£¤£°÷§Ö¡H ÁÙ¬O¤°»ò°ÝÃD©O¡H

TOP

        ÀR«ä¦Û¦b : ¤Hªº²´·úªø¦b«e­±¡A¥u¬Ý¨ì§O¤Hªº¯ÊÂI¡Aµ·²@¬Ý¤£¨ì¦Û¤vªº¯ÊÂI¡C
ªð¦^¦Cªí ¤W¤@¥DÃD