Re: [算表] EXCEL如何設定十種顏色在五十格內?
Sub RandColorFill()
Dim Color(10, 3)
'先隨機產生十種不同的RGB值
For i = 1 To 10
Color(i, 1) = Int(Rnd() * 256)
Color(i, 2) = Int(Rnd() * 256)
Color(i, 3) = Int(Rnd() * 256)
Next
'再將10種RGB值隨機填入A1:A50中
For i = 1 To 50
RndNum = Int(Rnd() * 10) + 1
Range("A" & i).Interior.Color = RGB(Color(RndNum, 1), Color(RndNum, 2),
Color(RndNum, 3))
'顯示RGB值
Range("A" & i).Value = Color(RndNum, 1) & "—" & Color(RndNum, 2) & "—"
& Color(RndNum, 3)
Next
End Sub
※ 引述《sscc (賣大安中心游泳卷)》之銘言:
: 軟體:Office Excel
: 版本:2010
: 大家好 我想問的問題 可能是需要寫程式的 只需要填入顏色 不需要數字
: 想把固定的10種顏色 填入50格中 (A1:E10)
: 10種顏色填入的方式為隨機
: 我現在只會將每一格 填入不同的顏色 可是是在256色的其中一個
: 但我要的是只有固定十種顏色
: 我不會用迴圈 所以我的程式是
: Sub test()
: Range("A1:A1").Interior.Color = RGB(Int(Rnd() * 256), Int(Rnd() * 256), Int(Rnd() * 256))
: End Sub
: 然後中間一直改變格子的代碼 改50次
: 可以請知道的大大教我嗎? 改成只有固定十種顏色
: 謝謝各位大大
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 203.67.30.189
討論串 (同標題文章)
本文引述了以下文章的的內容:
完整討論串 (本文為第 2 之 2 篇):