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

موضوع: conditional formating

  1. #1


    آخرین بازدید
    20 _ 08 _ 2017
    تاریخ عضویت
    June_2010
    محل سکونت
    تهران
    نوشته ها
    121
    امتیاز
    12
    سپاس
    11
    سپاس شده
    1 در 1 پست

    runmohsen به Yahoo ارسال پیام

    conditional formating

    با سلام دوستان چطور میتوان با استفاده از conditional formating مواد Dublicate رو مشخص کرد-----در صورتی که جهت مشخص کردن دابلکیتها از رنگهای مختلف و تصادفی استفاد کند و تمام تکراری ها به یک رنگ در نیاید
    اخطار: این یک موضوع قدیمی است
    به دلیل قدیمی بودن موضوع، ممکن است برخی فایل های ضمیمه به درستی کار نکنند. لطفا در صورت عدم ضرورت، از بالا آوردن موضوعات قدیمی خودداری نمایید.

  2.  

  3. #2


    آخرین بازدید
    31 _ 03 _ 2017
    تاریخ عضویت
    May_2010
    محل سکونت
    بلژیک
    نوشته ها
    175
    امتیاز
    92
    سپاس
    0
    سپاس شده
    103 در 45 پست

    RE: conditional formating

    این کد رو امتحان کن. من نمیدونم غیر از VBAهم روش دیگری هم وجود داره یا نه! حتما دوستان در این باره نظر خواهند داد. یک کد ساده به نظرم اومد که می شه هنوز روش کار کنی بهتر بشه! این کد رو در قسمت کدنویسی Sheet1 کپی کن. فقط ستون A:A رو براش اونچیزی که انتظار داشتی رو انجام میده! فقط عدد رو باید کوچک بگیری. از 1 تا 20. برای رنج های بزرگتر از فرمول دیگه ای باید استفاده کنی.

    Private Sub Worksheet_Change(ByVal Target As Range)
    If Application.WorksheetFunction.CountIf(Range("A:A") , Target.Text) > 1 Then
    Columns("A:A").Select
    Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlEqual, _
    Formula1:="=" + CStr(Target.Value)
    Selection.FormatConditions(Selection.FormatConditi ons.Count).SetFirstPriority
    With Selection.FormatConditions(1).Interior
    .PatternColorIndex = xlAutomatic
    .Color = Target.Text * 10000 + Log(Target.Text * 10000) + Sqr(Target.Text * 10000)
    .TintAndShade = 0
    End With
    Selection.FormatConditions(1).StopIfTrue = False
    End If
    End Sub

  4. #3


    آخرین بازدید
    20 _ 08 _ 2017
    تاریخ عضویت
    June_2010
    محل سکونت
    تهران
    نوشته ها
    121
    امتیاز
    12
    سپاس
    11
    سپاس شده
    1 در 1 پست

    runmohsen به Yahoo ارسال پیام

    RE: conditional formating

    تشکر میکنم از شما


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

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

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

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

  1. conditional
    توسط zarrinabbasi در انجمن موارد متفرقه كاربرد اكسل در حسابداري
    پاسخ ها: 2
    آخرين نوشته: 18 _ 06 _ 2013, 08:49
  2. conditional formating
    توسط payam در انجمن سوالات اكسل - Excel Questions
    پاسخ ها: 8
    آخرين نوشته: 25 _ 05 _ 2012, 14:18
  3. conditional formating
    توسط lahijsabz در انجمن سوالات اكسل - Excel Questions
    پاسخ ها: 2
    آخرين نوشته: 15 _ 05 _ 2012, 11:37
  4. conditional formating
    توسط SAMI در انجمن سوالات اكسل - Excel Questions
    پاسخ ها: 2
    آخرين نوشته: 13 _ 11 _ 2010, 08:34
  5. conditional sum
    توسط mrexcel در انجمن add-ins
    پاسخ ها: 0
    آخرين نوشته: 02 _ 11 _ 2010, 09:23

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

انجمن اكسل ايران , اكسل , اكسس , سوال و جواب اكسل , سوال اكسس , انجمن اكسل ايران , توابع اكسل, آموزش اكسل, آموزش اكسس, VBA, ويژوال بيسيك

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

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