نمایش نتایج: از شماره 1 تا 2 , از مجموع 2

موضوع: كد رنگ RGB

  1. #1

    آخرین بازدید
    2013/03/03
    تاریخ عضویت
    March 2012
    نوشته ها
    1
    امتیاز
    0
    سپاس
    0
    سپاس شده
    0 در 0 پست
    تعیین سطح نشده است

    Lightbulb كد رنگ RGB

    با سلام
    من ميخواستم با استفاده از حلقه 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]

    اگه ميشه راهنمائيم كنيم
    متشكرم
    اخطار: این یک موضوع قدیمی است
    به دلیل قدیمی بودن موضوع، ممکن است برخی فایل های ضمیمه به درستی کار نکنند. لطفا در صورت عدم ضرورت، از بالا آوردن موضوعات قدیمی خودداری نمایید.

  2.  

  3. #2


    آخرین بازدید
    2024/02/06
    تاریخ عضویت
    January 2012
    محل سکونت
    کاشان
    نوشته ها
    170
    امتیاز
    602
    سپاس
    7
    سپاس شده
    372 در 125 پست
    تعیین سطح نشده است

    smartman به  ICQ ارسال پیام smartman به MSN ارسال پیام smartman به Yahoo ارسال پیام

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


اطلاعات موضوع

کاربرانی که در حال مشاهده این موضوع هستند

در حال حاضر 1 کاربر در حال مشاهده این موضوع است. (0 کاربران و 1 مهمان ها)

بازدید کنندگان با جستجو های زیر این صفحه را پیدا کرده اند

کد rgb رنگ در اکسل

پالت رنگ با کد فایل اکسل

علاقه مندی ها (Bookmarks)

مجوز های ارسال و ویرایش

  • شما نمیتوانید موضوع جدیدی ارسال کنید
  • شما امکان ارسال پاسخ را ندارید
  • شما نمیتوانید فایل پیوست کنید.
  • شما نمیتوانید پست های خود را ویرایش کنید
  •  
  • BB code ها فعال هستند
  • شکلک ها فعال هستند
  • کد [IMG] فعال است
  • کد [VIDEO] فعال است
  • کد HTML غیر فعال است