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

موضوع: رنگ کردم سلول های حاوی فرمول

  1. #1


    آخرین بازدید
    یک هفته پیش
    تاریخ عضویت
    July_2010
    نوشته ها
    186
    امتیاز
    275
    سپاس
    99
    سپاس شده
    264 در 94 پست

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

    رنگ کردم سلول های حاوی فرمول

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

  2.  

  3. #2


    آخرین بازدید
    3 هفته پیش
    تاریخ عضویت
    February_2010
    محل سکونت
    بوشهر
    نوشته ها
    922
    امتیاز
    643
    سپاس
    29
    سپاس شده
    789 در 337 پست

    shamsololama به Yahoo ارسال پیام فرستادن پیام با Skype به shamsololama

    RE: رنگ کردم سلول های حاوی فرمول

    با درود فراوان

    این یه نمونه ماکرو که این کار رو انجام میده

    قسمتی که می خواهید بررسی کند را بصورت A12000 نوشته ام که می توانید آن را تغییر دهید و یا کل شیت را در نظر بگیرید

    Sub Macro1()
    Dim c
    With Sheet1.Range("a12000")
    Set c = .Find("*", LookIn:=xlValues, LookAt:=xlPart)

    If Not c Is Nothing Then
    firstAddress = c.Address
    Do
    If Left(c.Formula, 1) = "=" Then
    'c.Select

    With c.Interior
    .ColorIndex = 6
    .Pattern = xlSolid
    End With
    End If
    Set c = .FindNext(c)
    Loop While Not c Is Nothing And c.Address <> firstAddress
    End If

    End With
    End Sub

  4. #3


    آخرین بازدید
    یک هفته پیش
    تاریخ عضویت
    July_2010
    نوشته ها
    186
    امتیاز
    275
    سپاس
    99
    سپاس شده
    264 در 94 پست

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

    RE: رنگ کردم سلول های حاوی فرمول

    سلام
    ممنونم
    یک سوال دیگه
    میشه محدودیت ایجاد کرد مثلا فقط یک فرمول خاص که ما بهش میگیم را رنگی کنه
    یا مثلا فرمول جمع را قرمز و فرمول کانت را سبز که
    یا یک هم چین چیزی
    ممنونم از راهنمایی هاتون

  5. #4


    آخرین بازدید
    3 هفته پیش
    تاریخ عضویت
    February_2010
    محل سکونت
    بوشهر
    نوشته ها
    922
    امتیاز
    643
    سپاس
    29
    سپاس شده
    789 در 337 پست

    shamsololama به Yahoo ارسال پیام فرستادن پیام با Skype به shamsololama

    RE: رنگ کردم سلول های حاوی فرمول

    با درود فراوان
    بله میشه این کار رو انجام داد با کمی تغییر در کد قبلی شدنیه

    در این کد جدید همه فرومول ها رو زرد و فورمول های Sum رو آبی و فرمول های AVERAGE را قرمز می کنه که شما به هر صورت و تا هر چند تا فرمول های متفاوت رو می تونی به رنگ های متفاوت مشخص کنی


    Sub Macro1()
    Dim c
    With Sheet1.Range("a12000")
    Set c = .Find("*", LookIn:=xlValues, LookAt:=xlPart)

    If Not c Is Nothing Then
    firstAddress = c.Address
    Do
    If Left(c.Formula, 4) = "=SUM" Then
    With c.Interior
    .ColorIndex = 5
    .Pattern = xlSolid
    End With

    ElseIf Left(c.Formula, 8) = "=AVERAGE" Then

    With c.Interior
    .ColorIndex = 3
    .Pattern = xlSolid
    End With

    ElseIf Left(c.Formula, 1) = "=" Then

    With c.Interior
    .ColorIndex = 6
    .Pattern = xlSolid
    End With
    End If
    Set c = .FindNext(c)
    Loop While Not c Is Nothing And c.Address <> firstAddress
    End If

    End With
    End Sub

  6. #5


    آخرین بازدید
    یک هفته پیش
    تاریخ عضویت
    July_2010
    نوشته ها
    186
    امتیاز
    275
    سپاس
    99
    سپاس شده
    264 در 94 پست

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

    RE: رنگ کردم سلول های حاوی فرمول

    با سلام و احترام
    مهندس این ماکرویی که فرستادید کار نکرد
    من یک روش دیگر انجام دادم و اون هم شناسایی فرمول ها با استفاده از .formula هست
    اگه میشه شما هم یک فایل نمونه اجرایی از این ماکروای که فرستادید بذارید
    ممنونم

  7. #6


    آخرین بازدید
    3 هفته پیش
    تاریخ عضویت
    February_2010
    محل سکونت
    بوشهر
    نوشته ها
    922
    امتیاز
    643
    سپاس
    29
    سپاس شده
    789 در 337 پست

    shamsololama به Yahoo ارسال پیام فرستادن پیام با Skype به shamsololama

    RE: رنگ کردم سلول های حاوی فرمول

    با درود فراوان

    دلیل کار نکردن ماکرو به این دلیل است که در پنج خط مانده به آخر ماکرد هنگام کپی کردن در سایت تغییر کرده و زمانی که به اکسل وارد می کنید آن را باید تصحیح کنید

    Set c = .FindNext© خط از کد c که در دایره قرار گرفته در واقع c بین دو پرانتز است که به این شکل در آمده (c) به این شکل باید باشد و آن را تصحیح کن مشکل اجرا ماکرو حل می شود

    در صورت نیاز یک میل برنید تا نمونه فایل را برایتان بفرستم چرا که امروز هرکاری کردم نتوانتسم فایل رو آپلود کنم

    shamsololama@yahoo.com

  8. #7


    آخرین بازدید
    23 ساعت پیش
    تاریخ عضویت
    July_2010
    نوشته ها
    87
    امتیاز
    22
    سپاس
    67
    سپاس شده
    24 در 15 پست

    RE: رنگ کردم سلول های حاوی فرمول

    این کد رو من نوشتم ولی وقتی اجرا میکنم هیچ اتفاقی نمیافته (اون قسمت c رو هم درست کردم) ولی هیچ اتفاقی نمیافته
    اگه ممکنه یه نمونه فایل بزارید
    بعد اینکه کلا این کد چه موقعی اجرا میشه؟ من تو کلید تعریف کردم ولی بعد از زدن کلید هیچ اتفاقی نمیافته حالا اگه توی یه module جدید تعریف کنم چه موقعی اجرا میشه؟(عین فرمول های عادی اکسل هر موقع توی صفحه تغییر ایجاد بشه این هم اجرا میشه یا نه حالت دیگری هست؟)
    با تشکر

  9. #8


    آخرین بازدید
    3 هفته پیش
    تاریخ عضویت
    February_2010
    محل سکونت
    بوشهر
    نوشته ها
    922
    امتیاز
    643
    سپاس
    29
    سپاس شده
    789 در 337 پست

    shamsololama به Yahoo ارسال پیام فرستادن پیام با Skype به shamsololama

    RE: رنگ کردم سلول های حاوی فرمول

    نقل قول نوشته اصلی توسط master
    این کد رو من نوشتم ولی وقتی اجرا میکنم هیچ اتفاقی نمیافته (اون قسمت c رو هم درست کردم) ولی هیچ اتفاقی نمیافته
    اگه ممکنه یه نمونه فایل بزارید
    بعد اینکه کلا این کد چه موقعی اجرا میشه؟ من تو کلید تعریف کردم ولی بعد از زدن کلید هیچ اتفاقی نمیافته حالا اگه توی یه module جدید تعریف کنم چه موقعی اجرا میشه؟(عین فرمول های عادی اکسل هر موقع توی صفحه تغییر ایجاد بشه این هم اجرا میشه یا نه حالت دیگری هست؟)
    با تشکر
    با درود فراوان
    کدهای که می نویسیم بستگی داره آن را در چه اونتی می نویسیم (Event) مثلا اگر در اونت اوپن بوک بنویسید زمان باز شدن فایل این کد اجرا میش و اگر چنج سلکشن بنویسی زمانی که یک سلول را انتخاب میکنید این کد اجرا می شود و ... به همین تریتب در اونت های دیگر و اگر در ماژولی در یک ماکرو


    فایل نمونه:
    [attachment=1006]
    نوشته اید که با اجراری آن ماکرو کد اجرا خواهد شد
    فايل هاي پيوست شده فايل هاي پيوست شده

  10. #9


    آخرین بازدید
    23 ساعت پیش
    تاریخ عضویت
    July_2010
    نوشته ها
    87
    امتیاز
    22
    سپاس
    67
    سپاس شده
    24 در 15 پست

    RE: رنگ کردم سلول های حاوی فرمول

    ضمن تشکر میخواستم بدونم کدوم اونت باعث میشه رفتار کد مثل توابع خود اکسل بشه یعنی هر موقعی که یه تابع ابدیت میشه این کد هم عمل کنه؟اگه اشتباه نکنم با هر تغییری توی هر سلولی کل توابع ابدیت میشه البته مطمئن نیستم درسته؟
    ایا جزوه یا PDFی وجود داره که همه اونت ها رو با توضیحاتش داخلش نوشته باشه؟(ترجیحا فارسی)
    یه وال دیگه هم دارم اونم اینکه الان این کد رو توی کجا وارد کنم؟الان وقتی محیط VBA رو میارم سه جا هست که میشه وارد کرد یکی نوشته Sheet یکی ThisWorkbook و یکی هم Module ها هستن اینا چر فرقی دارن؟ و میشه چند تا کد رو توی یه Module وارد کرد یا نه باید هر کدی رو توی یه Module نوشت؟(اگه هر دو تا میشه کدوم بهتر هست؟مزیتش چی هست؟)
    با تشکر

  11. #10


    آخرین بازدید
    3 هفته پیش
    تاریخ عضویت
    February_2010
    محل سکونت
    بوشهر
    نوشته ها
    922
    امتیاز
    643
    سپاس
    29
    سپاس شده
    789 در 337 پست

    shamsololama به Yahoo ارسال پیام فرستادن پیام با Skype به shamsololama

    RE: رنگ کردم سلول های حاوی فرمول

    نقل قول نوشته اصلی توسط master
    ضمن تشکر میخواستم بدونم کدوم اونت باعث میشه رفتار کد مثل توابع خود اکسل بشه یعنی هر موقعی که یه تابع ابدیت میشه این کد هم عمل کنه؟اگه اشتباه نکنم با هر تغییری توی هر سلولی کل توابع ابدیت میشه البته مطمئن نیستم درسته؟
    ایا جزوه یا PDFی وجود داره که همه اونت ها رو با توضیحاتش داخلش نوشته باشه؟(ترجیحا فارسی)
    یه وال دیگه هم دارم اونم اینکه الان این کد رو توی کجا وارد کنم؟الان وقتی محیط VBA رو میارم سه جا هست که میشه وارد کرد یکی نوشته Sheet یکی ThisWorkbook و یکی هم Module ها هستن اینا چر فرقی دارن؟ و میشه چند تا کد رو توی یه Module وارد کرد یا نه باید هر کدی رو توی یه Module نوشت؟(اگه هر دو تا میشه کدوم بهتر هست؟مزیتش چی هست؟)
    با تشکر
    با درود فراوان
    برای اینکه هر موقع تابع های خود اکسل محاسبه میشن این کدی که نوشتی هم اجرا بشه تو این اونت بنویس

    Private Sub Worksheet_Calculate()

    End Sub

    2
    شما کدی که دارین رو تو هر سه تا می تونی بنویسی بستی گی داره که میخوای کی اون اون کدت اجرا بشه و اینکه یک کد رو وقتی یه جا ی می نویسی می تونی از چند جا اجراش کنی مثلا وقتی ماکرویی رو تو یک ماژول نوشتی به هرچند تا کلیدی که تو صفحه و تو هر شیتی از شیتها می تونی با اسین ماکرو وصلش کنی که اون کد رو اجرا کنه
    و اینکه تو هرکدوم میشه کدهای زیادی نوشت و اینکه مثلا بیایم چند تا ماژول درست کنیم و یا اینکه همش رو تو یک ماژول بنویسیم فرقی نمیکنه ولی برای اینکه بتونیم دسته بندیشون کنیم و برنامه نویسیمون ترتیب و نظرم بیشتری داشته باشه میتونی تو چند تا ماژول که نیاز داریم و هر کدوم به اسمی که نشون دهنده آن کارمون باشه تقسیم بندیشون کنیم



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

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

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

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

  1. نحوه جستجو با استفاده از تابع وی لوکاپ روی دو مقدار
    توسط shaneh در انجمن توابع اکسل - Excel Functions
    پاسخ ها: 16
    آخرين نوشته: 04 _ 02 _ 2016, 11:19

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

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

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

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