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

[µo°Ý] Àx¦s®æ®æ¦¡¼gªk

[µo°Ý] Àx¦s®æ®æ¦¡¼gªk

§Ú¦b³]©wÀx¦s®æ®æ¦¡®É·Q­n¼Ðµù·í¼Æ­È±µªñ¾ã¼Æ®É±NÀx¦s®æ¶ñº¡¦â±m¥H¤è«K¿ëÃÑ
¦Ó¥Ø¼ÐÀx¦s®æ¬°:Cells(Cdt + 2, 2)¡BCells(Cdt + 2, 3)¡BCells(Cdt + 2, 4)
§Úªº¼gªk¦p¤U:
For Cdt=1 to 10
If Abs(Cells(Cdt + 2, 2) - Round(Cells(Cdt + 2, 2), 0)) <= 0.2 Then
    Cells(Cdt + 2, 2).Interior.Color = vbYellow
End If
If Abs(Cells(Cdt + 2, 3) - Round(Cells(Cdt + 2, 3), 0)) <= 0.2 Then
    Cells(Cdt + 2, 3).Interior.Color = vbYellow
End If
If Abs(Cells(Cdt + 2, 4) - Round(Cells(Cdt + 2, 4), 0)) <= 0.2 Then
    Cells(Cdt + 2, 4).Interior.Color = vbYellow
End If
Next Cdt

½ÐªO¤W¤j¤j¨ó§U§ó¦nªº¼gªk
ÁÂÁÂ

¦^´_ 1# acdx
  1. Option Explicit
  2. Sub Ex()
  3.     Dim Cdt As Integer, E As Range
  4.     Cdt = 10
  5.     For Each E In Cells(3, 2).Resize(Cdt, 3)
  6.         If Abs(E - Round(E, 0)) <= 0.2 Then
  7.             E.Interior.Color = vbYellow
  8.          Else
  9.             E.Interior.ColorIndex = xlNone
  10.          End If
  11.     Next
  12. End Sub
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

        ÀR«ä¦Û¦b : ¦³¦h¤Ö¤O¶q´N°µ¦h¤Ö¨Æ¡A¤£­n¤ß¦sµ¥«Ý¡Aµ¥«Ý¤~·|¸¨ªÅ¡C
ªð¦^¦Cªí ¤W¤@¥DÃD