پرفروش ترين
برترين
آخرين محصولات فروشگاه
فایل الکترونیکی آموزش اکسل پیشرفته ۲۰۱۰
آموزش ایجاد فایل چندکاربره با سطح دسترسی مشخص
یوزرفرم پیشرفته -Advanced  User Form
داشبورد (مقدماتی) – Dashboards(Elementary)
ابزارهای اعتبار سنجی و اخطار دهنده
بسته آموزشی userform
مدیریت و کنترل خطا در اکسل
توابع متنی
گرافیک در اکسل
جزوه آموزشی جداول و نمودارهای پاشنه ای
فایل آموزشی نحوه تهیه فرمت عددی دلخواه یا custom number format cell
آموزش ایجاد فایل چندکاربره با سطح دسترسی مشخص
نمایش نتایج: از شماره 1 تا 2 , از مجموع 2

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

  1. #1

    آخرین بازدید
    03 _ 03 _ 2013
    تاریخ عضویت
    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


    آخرین بازدید
    8 ساعت پیش
    تاریخ عضویت
    January_2012
    محل سکونت
    کاشان
    نوشته ها
    90
    امتیاز
    350
    سپاس
    3
    سپاس شده
    164 در 45 پست

    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 رنگ در اکسل

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

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