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

[µo°Ý] ¦p¦ó¨Ì¨C­ÓÀx¦s®æ¤º¼Æ­Èªº¤j¤p¡B¯Å¶Z¤£¦P¡Aµ¹¤©¤£¦PªºÃC¦â¡C

[µo°Ý] ¦p¦ó¨Ì¨C­ÓÀx¦s®æ¤º¼Æ­Èªº¤j¤p¡B¯Å¶Z¤£¦P¡Aµ¹¤©¤£¦PªºÃC¦â¡C

½Ð±Ð¦U¦ì¥ý¶i¡F
§Ú·Q¨Ì¨C­ÓÀx¦s®æ¤º¼Æ­Èªº¤j¤p¡B¯Å¶Z¤£¦P¡Aµ¹¤©¤£¦PªºÃC¦â¡C

¥i¬O¥\¯àªí¤ºªº®æ¦¡(O)/³]©w®æ¦¡¤Æªº±ø¥ó  «o³Ì¦h¥u¦³¥Î¤T­Ó±ø¥ó¡A
½Ð±Ð¦p¦ó¥ÎVBA¹F¨ì³o¼Ëªº¥Øªº¡A¦Ó¤£¨Ï¥Î°j°é¹F¨ì¦¹¥\¯à¡H

¶K¤W¤½¦¡¥i¦æ¶Ü¡H
¶K¤W®æ¦¡¥i¦æ¶Ü¡H



°Ý°ÝÃD_ÃC¦â³]©w.rar (15.36 KB)

¦^´_ 1# vesperlee


    ¬°¤°»ò­n±Æ¥¸°j°é~~
  1. Sub TEST_1()
  2. For Each rg In [b2:g14]
  3.   If rg >= 1000 Then
  4.     rg.Interior.ColorIndex = 8
  5.    ElseIf rg >= 600 Then
  6.     rg.Interior.ColorIndex = 7
  7.    ElseIf rg >= 300 Then
  8.     rg.Interior.ColorIndex = 6
  9.    ElseIf rg >= 100 Then
  10.     rg.Interior.ColorIndex = 5
  11.    ElseIf rg > 0 Then
  12.     rg.Interior.ColorIndex = 4
  13.    ElseIf rg <= -1000 Then
  14.     rg.Interior.ColorIndex = 24
  15.    ElseIf rg <= -600 Then
  16.     rg.Interior.ColorIndex = 23
  17.    ElseIf rg <= -300 Then
  18.     rg.Interior.ColorIndex = 22
  19.    ElseIf rg <= -100 Then
  20.     rg.Interior.ColorIndex = 21
  21.    ElseIf rg < 0 Then
  22.     rg.Interior.ColorIndex = 20
  23.    Else: rg.Interior.ColorIndex = 0
  24.   End If
  25. Next
  26. End Sub
½Æ»s¥N½X

TOP

        ÀR«ä¦Û¦b : ¦³Ä@©ñ¦b¤ß¸Ì¡A¨S¦³¨­Åé¤O¦æ¡A¥¿¦p¯Ñ¥Ð¤£¼½ºØ¡A¬Ò¬OªÅ¹L¦]½t¡C
ªð¦^¦Cªí ¤W¤@¥DÃD