كد رنگ RGB

[j_kazempour]

با سلام
من ميخواستم با استفاده از حلقه for رنگ هاي RGB(0,0,0) تا RGB(255,255,255) در سلول هاي يك شيت نمايش داده شود
من اين كد را نوشتم ولي نمي دونم در قسمت cells كدوم متغير را استفاده كنم

[align=left]dim r
dim g
dim b

for r=0 to 255
for g=0 to 255
for b =0 to 255
cells(*,*).interior.color=RGB(r,g,b)
netx b
next g
next r
end sub[/align]

اگه ميشه راهنمائيم كنيم
متشكرم

[smartman]

RE: كد رنگ RGB

از این کد استفاده کنید.

Cells((r * 256) + g + 1, b + 1).Interior.Color = RGB(r,g,b)

این کد 16,777,216 رنگ را در 256 ستون و 65,536 سطر مشخص میکند که این تعداد رنگ معادل کل سلول های یک شیت در اکسل 2003 است.

بمنظور افزایش سرعت پردازش میتوانید از کد زیر استفاده کنید.

    Application.ScreenUpdating = False
    Dim r, g, b As Integer
    For r = 0 To 0
        For g = 0 To 255
            For b = 0 To 255
                Cells((r * 256) + g + 1, b + 1).Interior.Color = RGB(r, g, b)
            Next b
        Next g
    Next r
    Application.ScreenUpdating = True

اما محدودیتی که در اینجا وجود دارد اینست که حدودا 65,000 سلول را میتوان در یک فایل قالب بندی کرد!!(البته برای Excel 2013 نمیدانم این محدودیت تا چه اندازه است). لذا برای اینکه بتوانیم تمامی رنگهای موجود را داشته باشیم نیاز به 256 فایل داریم! که این کار نیز با نوشتن چند خط کد قابل انجام است.