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

[µo°Ý] Àx¦s®æ©³¦â RGB ªº¥Îªk?

[µo°Ý] Àx¦s®æ©³¦â RGB ªº¥Îªk?

¥»©«³Ì«á¥Ñ ·t¶Â ©ó 2011-1-24 11:21 ½s¿è

½Ð±Ð¦U¦ì¥ý¶i..
  Àx¦s®æ©³¦â¬O¥Îinterior.colorindex     µM«á =   ¥N¸¹  (¦p 6)
  ¨º  ¥i¥H¥ÎARGB  ªº¤è¦¡  ©Î RGB  ¶Ü

©Î ARGB¡BRGB  ¯à°÷Âà ColorIndex
¬O¾Çµ{¦¡¦Ó¤£¬O­nµ{¦¡¡A¬O¶i¨Bªº°ò¦

¦^´_ 1# ·t¶Â

Range("A1").Interior.Color = RGB(255, 0, 0)
k = [A1].Interior.Color
[A2].Interior.Color = k
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

·PÁ  Hsieh   ¥i¥H¤F...
¬O¾Çµ{¦¡¦Ó¤£¬O­nµ{¦¡¡A¬O¶i¨Bªº°ò¦

TOP

·PÁÂ¥ý¶i¤À¨É
¾Ç²ß¤F¥t¥~¨Ï¥ÎÀx¦s®æ©³¦âªº¤èªk
ÁÂÁÂ
100 ¦r¸`¥H¤º
¤£¤ä«ù¦Û©w¸q Discuz! ¥N½X

TOP

¦^´_ 2# Hsieh


    §A¦n, §Ú·Q¥Î¤T¶¥°j°é¥h«ü©w¤@±ÆÀx¦s®æªºRGBÃC¦â
µ{¦¡¦p¤U,¦ý¬O¤@ª½¥X²{«¬ºA¤£²Å¦X,¦b«á­±¥´¦n¦h¬P¬Pªº¨º¤@¦æ
¥i¥H½Ð±Ð°ÝÃD¦b­þ¶Ü?
=========================================
Sub assign_color()

Dim i As Integer
Dim j As Integer
Dim k As Integer
Dim p As Integer

p = 3
For i = 0 To 255 Step 20
    For j = 0 To 255 Step 20
        For k = 0 To 255 Step 20
            Range("A" & p).Value = p - 2
            Range("B" & p).Value = i
            Range("C" & p).Value = j
            Range("D" & p).Value = k
            Range("E" & p).Interior.Color = RGB(Cells("B", p).Value, Cells("C", p).Value, Cells("D", p).Value)  **************
            p = p + 1
        Next
    Next
Next

End Sub
=========================================

TOP

¦^´_ 5# jazzlee37


  Cells("B", p)====>À³¸Ó¬OCells(p, "B")
Cells©MRange¦ì¸m¤£¦P¡ACells(¦C,Äæ)¡ARange("Äæ¦C")

TOP

«ôÁ«ü¾É~~¥i¥H¤F

TOP

        ÀR«ä¦Û¦b : ½_ÁJµ²±o¶V¹¡º¡¡A¶V·|©¹¤U««¡A¤@­Ó¤H¶V¦³¦¨´N¡A´N­n¶V¦³Á¾¨Rªº¯ÝÃÌ¡C
ªð¦^¦Cªí ¤W¤@¥DÃD