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

موضوع: تابع بدست آوردن شماره رنگ یک سلول و رنگ قلم آن سلول

Threaded View

پست قبلی پست قبلی   پست بعدی پست بعدی
  1. #1


    آخرین بازدید
    2012/04/17
    تاریخ عضویت
    April 2010
    نوشته ها
    25
    امتیاز
    6
    سپاس
    0
    سپاس شده
    4 در 4 پست
    تعیین سطح نشده است

    تابع بدست آوردن شماره رنگ یک سلول و رنگ قلم آن سلول

    تابع بدست آوردن شماره رنگ یک سلول و رنگ قلم آن سلول
    می‌خواهیم تابعی بنویسیم که شماره رنگ یک سلول (fill color) یا شماره رنگ قلم (font color) را مشخص کنیم.
    (می‌دانیم که در اکسل از 56 رنگ می‌توان استفاده کرد که هر رنگ یک کد دارد مثلا کد رنگ قرمز 3 و آبی 5 است.)
    • نام تابع : CellColor
    • ورودی : تابع دو ورودی دارد ، ورودی اول آدرس سلول است و ورودی دوم مشخص می‌کند که ما می‌خواهیم رنگ زمینه سلول را داشته باشیم یا رنگ قلم آنرا .
    اگر ورودی دوم عبارت fill بود رنگ زمینه مد نظر است و اگر font بود رنگ قلم.
    • نام ورودی اول MyRange و از نوع Range است
    • نام ورودی دوم Mode و از نوع String است
    • اگر ورودی دوم داده نشده بود و یا مقادیری غیر fill و font بود ، خروجی تابع یک خطا به شکل #Mistake باشد .

    برای نوشتن این تابع از دستور شرطی IF به صورت زیر استفاده می‌کنیم :
    کد:
    Public Function Colorindex(MyRange As Range, Mode As String)
    
    Application.Volatile True
    
    If Mode = "font" Then
    Colorindex = MyRange.Font.Colorindex
    ElseIf Mode = "fill" Then
    Colorindex = MyRange.Interior.Colorindex
    Else
    Colorindex = "#Mistake"
    End If
    End Function
    عبارت As Range بیان می‌کند که ورودی اول یک خانه است.
    عبارت String As بیان می‌کند که ورودی دوم یک رشته (متن – غیر عدد) است .

    دستور Application.Volatile True به اکسل می‌گوید که هر وقت هر خانه‌ای را مجدد محاسبه کرد، باید تابع ما را نیز مجدد محاسبه کند . ( این حالت مانند تابع now() خود اکسل است که زمان را مرتب محاسبه و نشان می‌دهد.) زدن کلید F9 نیز باعث می‌شود که این تابع مجدد محاسبه شود.

    حال خانه A1 را به رنگ زرد و متن آنرا قرمز می‌کنیم و تابع را روی آن آزمایش می‌کنیم.
    فرمولهای بکار رفته در خانه B1 و B2 را به ترتیب در D1 و D2 مشاهده می‌کنید.
    ویرایش توسط حسام بحرانی : 2020/09/25 در ساعت 10:21 دلیل:قرار دادن کد در تگ

  2. سپاس ها (1)



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

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

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

موضوعات مشابه

  1. پرسش امکان کلیک راست داخل تکست باکس یوزم فرم
    توسط mreza در انجمن فرم ها در ويژوال بيسيك - Forms in VBA
    پاسخ ها: 10
    آخرين نوشته: 2018/08/08, 09:24
  2. پاسخ ها: 0
    آخرين نوشته: 2017/05/06, 11:59
  3. مشکل مطالب چپ به راست و کپی در شیت راست به چپ
    توسط alibobo در انجمن سوالات اكسل - Excel Questions
    پاسخ ها: 3
    آخرين نوشته: 2017/01/24, 16:40
  4. پرسش درخواست راهنمایی در رابطه با جست وجوی پیشرفته توسط تابع Vlookup
    توسط Ali_Sedaghat در انجمن توابع اکسل - Excel Functions
    پاسخ ها: 3
    آخرين نوشته: 2017/01/23, 17:13
  5. طراحی ستون*هاي با بست چپ و راست تك
    توسط alieddy0 در انجمن اسپريد شيت هاي مهندسي - Engineering spreadsheet
    پاسخ ها: 0
    آخرين نوشته: 2014/03/18, 12:22

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

کد رنگ در اکسل

کد رنگ سلول در اکسلیک رنگ هر سلول در EXCELدستور رنگ متن در اکسلبدست آوردن کد رنگ در اکسلتابع cell colorنحوه انتقال رنگ یک سلوله به سلول دیگر با فرمولرنگ‌در اکسلدستور رنگ کردن فونت در یک سلول در اکسلتعیین کد رنگ در اکسل شماره رنگها در vba اکسلفرمول کد رنگ در اکسلشماره رنگ قرمز در اکسسکد رنگ زرد در excelاستفاده از رنگ در برنامه نویسی اکسلانتقال رنگ فونت در اکسلhttps:forum.exceliran.comshowthread.php216-تابع-بدست-آوردن-شماره-رنگ-یک-سلول-و-رنگ-قلم-آن-سلولفرمول تشخیص نوع رنگ دراکسلکد vba بدست آوردن فونت سلول در اکسلتابع تشخیص رنگ سلول در اکسلپیدا کردن کد رنگ سلولتابع نام رنگ اگسلرنگ ها در اکسلکد رنگ ها در اکسلتابع کد رنگ سلول در اکسل

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

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

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