- 帖子
- 2
- 主題
- 0
- 精華
- 0
- 積分
- 2
- 點名
- 0
- 作業系統
- XP
- 軟體版本
- Pro
- 閱讀權限
- 10
- 性別
- 男
- 註冊時間
- 2012-5-21
- 最後登錄
- 2015-4-16
|
回復 2# Hsieh
你好, 我想用三階迴圈去指定一排儲存格的RGB顏色
程式如下,但是一直出現型態不符合,在後面打好多星星的那一行
可以請教問題在哪嗎?
=========================================
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
========================================= |
|
發表於 2015-4-16 13:35
| 