از این کد استفاده کنید.
کد:
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 فایل داریم! که این کار نیز با نوشتن چند خط کد قابل انجام است.
علاقه مندی ها (Bookmarks)