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

½Ð°Ý¦p¦ó¤@¦¸Åܧó¦h­ÓÀx¦s®æªº±ø¥ó®æ¦¡

½Ð°Ý¦p¦ó¤@¦¸Åܧó¦h­ÓÀx¦s®æªº±ø¥ó®æ¦¡

¦pÃD
¨º»ò§PÂ_¦¡¬O   ¦¨¥æ»ù>¬Q¦¬»ù¬°¬õ¦â
                             ¦¨¥æ»ù<¬Q¦¬»ù¬°ºñ¦â
¦pªG«Ü¦h®æ­n¤@°_°µ¦P¼Ëªº¨Æ±¡¡A¸Ó¦p¦ó¸Ñ¨M©O¡H

®æ¦¡¡÷³]©w®æ¦¡¤Æ±ø¥ó

TOP

¨º¦pªG¥ÎVBAªº¤è¦¡¨Ó°õ¦æ©O¡H

TOP

¤]¥i¥H¨Ï¥Î"½Æ»s®æ¦¡"ªº¨ê¤l¡A¥i¥H§Ö«Ü¦h!!

TOP

²³æ¨Ó»¡ ..
IF  A(¦¨¥æ»ù)>B(¬Q¦¬»ù) then
   range("xx").select '(Àx¦s®æ¿ï¨ú)
      With Selection.Interior
          .Pattern = xlSolid
          .PatternColorIndex = xlAutomatic
          .Color = 255
          .TintAndShade = 0
          .PatternTintAndShade = 0
      End With
  endif
    IF  A(¦¨¥æ»ù)>B(¬Q¦¬»ù) then
   range("xx").select '(Àx¦s®æ¿ï¨ú)
     
         With Selection.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .Color = 5287936
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With

TOP

¦^´_ 3# leefing
¤W¶ÇÀɮ׬ݬÝ

TOP

¦^´_ 6# GBKEE


    ¬Ý½L1.rar (8.24 KB)
ÀɮפW¶Ç¤F¡A¨º­Ó±ø¥ó®æ¦¡¥Ø«e§Ú¬O¥Î¤â°Êªº¡A¦ý¬Oı±o¦³ÂI³Â·Ð
²¦³º¥Ø«eªF¦è¤Ö¤Öªº

TOP

¦^´_ 7# leefing
  1. Sub QQ()
  2. For R = 2 To [A65536].End(xlUp).Row
  3.   If Cells(R, "F") < Cells(R, "Q") Then
  4.      Cells(R, "F").Interior.ColorIndex = 35
  5.   ElseIf Cells(R, "F") > Cells(R, "Q") Then
  6.      Cells(R, "F").Interior.ColorIndex = 38
  7.   Else: Cells(R, "F").Interior.ColorIndex = xlNone
  8.   End If
  9. Next R
  10. End Sub
½Æ»s¥N½X
¬Ý½L1.rar (10.46 KB)

TOP

¦^´_ 8# register313


    «z¡AÁÂÁÂR¤j¡A¾ã­Ó´N¬O«Ü²¼ä

§Ú¥H¬°ÁÙ­n«Å§i¤@°ï¡C³o¼Ë´N¥i¥HÀ³¥Î«Ü¦h¦a¤è¤F!

TOP

¦^´_ 8# register313


    §Ú§âVBA¶K¦^excelÀÉ¡Aµ²ªG¨S¤ÏÀ³ ¡A¬O¦]¬°§Úªº¬O³sDDEªº¶Ü¡H
§Ú¤U¸ü§AªºÀɮ׫ö  ¦³¥Î¡A  ¦ý¬O¨ì§O±isheet´N¨S¤ÏÀ³¤F

TOP

        ÀR«ä¦Û¦b : ­ì½Ì§O¤H´N¬Oµ½«Ý¦Û¤v¡C
ªð¦^¦Cªí ¤W¤@¥DÃD